Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.02;
Скачать: CL | DM;

Вниз

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

 
Igorek ©   (2002-11-21 13:07) [0]

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


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

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


 
Igorek ©   (2002-11-21 13:24) [2]


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

Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2002.12.02;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
3-4255
Varbend
2002-11-15 01:45
2002.12.02
БД и локальные сети


14-4586
vopros
2002-11-11 09:17
2002.12.02
Эпопея или любовные похождения продолжаються


1-4459
Азазелло
2002-11-20 12:33
2002.12.02
Crystal Report 8.5 + VCL


1-4385
Comp
2002-11-21 16:05
2002.12.02
ShellAPI


6-4541
Дмитрий К.К.
2002-10-06 19:11
2002.12.02
MSHTML_TLB.pas