Alles klar. Vielen Dank.
Dann muss ich mal schauen, wie ich das alles in den Timer eingebaut bekomme...
Edit:
So, ich hab es geändert, aber der Stift bleibt immernoch schwarz. Jetzt weiß ich nichtmehr weiter...
Code:
procedure TFahrtenschreiber.FormCreate(Sender: TObject);
begin
[...]
FirstRunTimer := True;
[...]
end;
procedure TFahrtenschreiber.tiTimerTimer(Sender: TObject);
begin
IF FirstRunTimer = True THEN
begin
imGraphOut.Canvas.Pen.Color :=
RGB( 33, 0, 127 );
imGraphOut.Canvas.MoveTo( Const_X, Const_Y );
end;
FirstRunTimer := False;
IF ( imGraphOut.Canvas.PenPos.X > ( Const_X + 120 ) ) AND ( imGraphOut.Canvas.PenPos.X < ( Const_X + 1220 ) ) THEN
imGraphOut.Left := ( imGraphOut.Left - 1 );
imGraphOut.Canvas.LineTo( Const_X + Step, Const_Y - Random ( 140 ) );
INC( Step );
end;
Gut, ist bestimmt nicht die sauberste Lösung, aber ich weiß es nicht besser zu lösen.
Woran könnte es denn noch liegen, dass der Stift immernoch schwarz ist und bleibt?
Schönen Abend noch.