как поменять цвет фона при стилей кисти 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;

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