| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как нарисовать фон в виде серо-белой шахматки?

Igorek ©   (2002-11-21 13:07:00) 

Напр как фон полосы прокрутки в Вин98.
спасибо

---

Igorek   (2002-11-21 13:24:00) [1]

> Игорь Шевченко © (21.11.02 13:09)

Спасибо!

---

Игорь Шевченко   (2002-11-21 13:09:00) [2]

function TPatternManager.CreateBitmap(BkColor, FgColor: TColor): TBitmap;
var
X, Y: Integer;
begin
Result := TBitmap.Create;
try
with Result do
begin
Width := 8;
Height := 8;
with Canvas do
begin
Brush.Style := bsSolid;
Brush.Color := BkColor;
FillRect(Rect(0, 0, Width, Height));
for Y := 0 to 8 do
for X := 0 to 8 do
if (Y mod 2) = (X mod 2) then { toggles between even/odd pixles }
Pixels[X, Y] := FgColor; { on even/odd rows }
end;
Dormant;
end;
except
Result.Free;
raise;
end;
end;

RTFS: Graphics.pas

---

Наверх