Delphi-Quellcode:
procedure TForm4.FormCreate(Sender: TObject);
begin
form1.color := // Deine Farbe 1
form1.canvas.pen.color := // Deine Frabe 2
end;
// *********************************************
procedure TForm4.Button1Click(Sender: TObject);
var i,j:word;
begin
with form4.canvas do
begin
i := 1;
j := 1;
repeat
moveto(0,j*2);
lineto(i*2,0);
inc(i,2);
inc(j,2);
until
(i > form4.Height) and (j > form4.Width);
end;
end;
ist aber nur für ca. die hälfte des formulars, den rest musst du schon selber schreiben
[edit] sollte jetzt ganz funktionieren, mein fehler sry