Ich habe Momentan (wie immer) ein kleines Problem...
Ich habe noch nie mit MetaFiles in Delphi gearbeitet. Wie kann ich etwas auf ein MetafileCanvas Zeichnen, ohne den Inhalt der Aktuellen Metafile zu überschreiben?
Da ich bei jedem Mausklick einen Kreis Zeichnen möchte, der dann auch sichtbar wird, muss ich den MetafileCanvas immer wieder frei geben.
Delphi-Quellcode:
procedure OnMouseDown;
begin
mc := TMetafileCanvas.Create(mf,0);
//Hier müsste ich jetzt irgendwie den Aktuellen Inhalt "Assignen".
with mc do
begin
Brush.Color := c;
Pen.Color := c;
Ellipse(round((lx-w div 2)),round((ly-w div 2)),round((lx+w div 2)),round((ly+w div 2)));
end;
mc.free;
end;
procedure Create;
begin
mf := TMetafile.Create;
mf.Width := 630;
mf.Height := 315;
end;
Danke!