Guten Morgen zusammen,
entschuldigt bitte, dass ich diesen etwas älteren Thread wieder auskrame. Ich habe aber einer Erklärung dafür [
]: habe keine Ergebnisse gefunden über Google und der Referenz-Suche, die mich weiterbringen.
Also mein Problem ist, dass der besagte Canvas.Pen nicht die Farbe darstellt, die ich ihm zugewiesen habe.
So hab ich es in meinem Code eingebunden.
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
Step := 1;
Const_X := 44;
Const_Y := 147;
imGraphOut.Canvas.Pen.Color :=
RGB( 33, 0, 127 );
imGraphOut.Canvas.MoveTo( Const_X, Const_Y );
end;
procedure TForm1.tiTimerTimer(Sender: TObject);
begin
IF imGraphOut.Canvas.PenPos.X > ( Const_X + 120 ) THEN
imGraphOut.Left := ( imGraphOut.Left - 1 );
imGraphOut.Canvas.LineTo( Const_X + Step, Const_Y - Random ( 140 ) );
INC( Step );
end;
Wo liegt der Fehler? Oder gibt es keinen?
Schönen Morgen euch allen noch und vielen Dank schonmal im Voraus für die Hilfe.
Gruß,
Marcel