Hallo!
Ich habe ein kleines Problem beim Benutzen der folgenden Prozedur.
Sie soll theoretisch das Formular strukturieren. Das klappt auch ganz gut, nur wird es in horionzontaler Richtung bis zur Formularmitte ausgeführt, ab dann gibt es nur Streifen nach rechts. Am besten selbst mal ausprobieren
Form1.Width in Form1.Width*2 zu Ändern liefert zwar das korrekte Resultat, aber das muss sich doch auch anders beheben lassen...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var color: array[0..2] of dword;
row,col: integer;
begin
color[0] := $00CCCCCC;
color[1] := $00999999;
color[2] := $00666666;
Randomize;
Canvas.MoveTo(0,0);
for col:=0 to Form1.Height do begin
for row:=0 to Form1.Width do begin
Canvas.Pen.Color := color[random(2)];
Canvas.LineTo(row,col);
end;
end;
end;
MfG Julian Jetter