Главная страница
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.009 c
14-58466
Julliete
2003-07-23 17:35
2003.08.18
Удаление всех записей из таблицы


14-58426
Best Gun
2003-08-02 19:26
2003.08.18
Обновления для Win2000 + SP4


14-58441
Bill Gates
2003-08-01 19:59
2003.08.18
Windows must live!


14-58468
Driverrr
2003-04-23 13:20
2003.08.18
Рисунки


14-58487
II
2003-07-23 15:31
2003.08.18
Как сделат всgлывающее окошко при наведении на ячейку в TDBGridEh