hallo,
ihr wisst ja sicher wie eure Form in Delphi aussieht, also überall sind punkte (raster halt).
Ich habe versucht das in meinem Programm nachzumachen, es wird aber nur die erste Line gepunktet und nicht weiter, kann mir jemand sagen wieso?
Ich habe es so versucht:
Delphi-Quellcode:
procedure TForm4.FormPaint(Sender: TObject);
var
x, y: integer;
begin
x := 0;
y := 0;
Form4.Canvas.Pixels[x, y] := clBlack;
while y < Form4.Height do
begin
while x < Form4.Width do
begin
Application.ProcessMessages;
Form4.Canvas.Pixels[x, y] := clBlack;
inc(x, 10);
end;
inc(y, 10);
end;
end;
ihr könnt es ja mal in euer OnPaint ereignis in eurer form einfügen dann seht ihr was ich meine