Der Fehler liegt an der Stelle. Also die Schriftgrösse ändert sich von 8 auf 12 ohne das ich das irgendwo eingestellt habe. (Das habe ich durch suchen überpruft in meinem gesamten code wird nicht einmal die Schriftgrösse verändert).
Ich gehe davon auss, dass wenn ich das verändern der Schriftgrösse verhindere ich auch das Farben Problem löse.
Wenn ich den Code
Delphi-Quellcode:
Canvas := TCanvas.Create;
Canvas.Handle := Backpuffer.Canvas.Handle;
canvas.pen.color := cllime;
Canvas.Rectangle(10,10,50,random(60)+10);
canvas.Free;
durch
Delphi-Quellcode:
Backpuffer.canvas.pen.color := cllime;
Backpuffer.Canvas.Rectangle(10,10,50,random(60)+10);
ersetzte habe ich keine Fehler mehr
Aufruf und zeichen eines Textes ist übrigens so (in einem Timer):
Delphi-Quellcode:
Object.draw(FBackpuffer)
FBackpuffer.Canvas.textout(5,5,'jkgkj');