VPF::фон типа диагональных линий - Форум программистов

hawkins

Дата 22.8.2008, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

Пытаюсь закрасить прям-ую область на канве с фоном типа диагональных линий.
Вобщем код приблизительно такой:

Код


...
var
 lrect: TRect;
begin
 Image4.Picture.Bitmap.Width:=Image4.Width;
 Image4.Picture.Bitmap.Height:=Image4.Height;
 Image4.Canvas.Brush.Style:=bsBDiagonal;
 // Image4.Canvas.Pen.Color:=clWhite;
 Image4.Canvas.Brush.Color:=clRed; 
 lRect.Left:=0;
 lRect.Top:=0;
 lRect.Right:=100;
 lRect.Bottom:=50;
 Image4.Canvas.FillRect(lRect);
end;

Но в результате промежутки между диагоналями получаются всегда черными, даже если выставить
Image4.Canvas.Pen.Color:=clWhite. Подскажите как сделать чтобы промежутки были белыми.

bems

Дата 5.9.2008, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 1
Всего: 88

Код


Image4.Picture.Bitmap.Width:=Image4.Width;
 Image4.Picture.Bitmap.Height:=Image4.Height;
 Image4.Canvas.Brush.Style:=bsBDiagonal;
 Image4.Canvas.Brush.Color:=clRed;
 lRect.Left:=0;
 lRect.Top:=0;
 lRect.Right:=100;
 lRect.Bottom:=50;
 SetBkColor(Image4.Canvas.Handle,$00FFFFFF);
 Image4.Canvas.FillRect(lRect);

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »