Zitat von
claudi3006:
Also zu Bild 3 hab ich das jetzt soweit erstellt. Die Dreiecke kommen zwar raus, aber ob das so richtig ist weiß ich leider nicht. Vielleicht kann mir jemand noch andere Tips geben.Außerdem weiß ich nicht wie ich jetzt für jedes einzelne Dreieck eine Zufallsfarbe erzeugen soll, die sich dann beim Öffnen des Bildes aber immer wieder ändert.Weiß zwar das ich dafür randomize verwenden muss..aber sonst nicht.
Also mein bisheriger Code:
Delphi-Quellcode:
with image2.Canvas do
begin
for i:=0 to 20 do
begin
Moveto(0,200);
Lineto(100,0+i*15);
Moveto(200,200);
Lineto(100,0+i*15);
end;
Vielleicht kann mir jetzt jemand helfen, wäre echt dankbar!!
Na siehste
Das sollte funktionieren.
Eventuell solltest du das ganze noch an die Gesamtgröße des Images anpassen. Hört sich allerdings schlimmer an als es ist.
du musst einfach nur statt 200 Image1.Width bzw Image1.Height machen, und statt 15 Image1.Height div Anzahl der Dreiecke nehmen.
zur Zufallsfarbe:
Sieh dir mal an wie TColor definiert ist.
das ganze ist eine
RGB-Farbe (um aus den einzelnen R, G und B-Werten ein TColor zu machen...siehe in der Codelib^^)
Randomize; ist richtig...das initialisiert den Zufallsgenerator. (EInmal ganz am Anfang)
um dann noch eine Zufallszahl zu bekommen gibt es Random (aus hier sollte ein Blick in die Delphi-Hilfe genügen)
soweit...
