Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.003 c