Folgender Code führt zu Grafikfehlern. Farben und Schriftgrösse ändern sich, wenn man mit der Maus das Fformular verlässt. (und nach dem Aufruf der Methode nach auf das Bild zeichnet).
Der Code ist gekürtzt. Ich möchte eigendlich an eine
dll nur den Canvas
Handle weitergeben.
Delphi-Quellcode:
procedure TKlasse.draw(var Backpuffer: TBitmap
var
Canvas: TCanvas;
begin
Canvas := TCanvas.Create;
Canvas.Handle := Backpuffer.Canvas.Handle;//!!!
canvas.pen.color := cllime;
Canvas.Rectangle(10,10,50,random(60)+10);
canvas.Free;
end;