12.06.2010, 00:34
|
|
Прохожий
|
|
Регистрация: 01.06.2010
Сообщения: 19
Репутация: 12
|
|
Цитата:
|
Сообщение от Страдалецъ
Код:
procedure TForm1.FormPaint(Sender: TObject);
var
x,y: Integer;
begin
for y := 0 to Form1.Height
do for x := 0 to Form1.Width
do if (y mod 5 = 0) and (x mod 5 = 0)
then Form1.Canvas.Pixels[x,y] := clBlack;
end;
Цитата:
|
Сообщение от DJ PhoeniX
Тов. Страдалецъ, как и многие, иногда путает Height с ClientHeight, и Width с ClientWidth...
|
|
Код:
procedure TForm1.FormPaint(Sender: TObject);
var
x,y: Integer;
begin
for y := 0 to Form1.ClientHeight
do for x := 0 to Form1.ClientWidth
do if (y mod 5 = 0) and (x mod 5 = 0)
then Form1.Canvas.Pixels[x,y] := clBlack;
end;
Так что ли? |