Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.18;
Скачать: CL | DM;

Вниз

как поменять цвет фона при стилей кисти bsHorizontal и т.п.   Найти похожие ветки 

 
Man ©   (2003-08-04 20:44) [0]

Привет всем! Такой вопрос: рисую на канве со стилем кисти-пересечение,диагональная штриховка и т.п.,получаю линии выбранного цвета кисти на чёрном фоне,как поменять цвет фона. Зараннее всем большое спасибо.


 
Ученик ©   (2003-08-04 21:52) [1]

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1, Canvas do begin
Brush.Color := clRed;
Brush.Style := bsHorizontal;
SetBkColor(Handle, clLime);
( ClientRect) procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1, Canvas do begin
Brush.Color := clRed;
Brush.Style := bsHorizontal;
SetBkColor(Handle, clLime);
FillRect(ClientRect)
end
end;



Страницы: 1 вся ветка

Текущий архив: 2003.08.18;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.007 c
14-58383
Miralex
2003-08-04 14:32
2003.08.18
как сохранить в файл тип Record


14-58439
syte_ser78
2003-07-31 15:47
2003.08.18
Удаление записи из ДБ


14-58498
wonderu
2003-08-01 15:42
2003.08.18
Освобождение памяти


14-58406
artgamer
2002-12-12 23:56
2003.08.18
Караул!!! Не могу запустить приложение MCK!!!


14-58434
VID
2003-08-02 17:05
2003.08.18
Разгон PII 450MHz до макс значения (550MHZ)