Hab auch grad gemerkt, TCanvas besitzt nichtmal Destroy/Free-Methoden, um da überhaupt was beim Löschen freigeben zu können.
Das Ergebnis sieht nun so aus
Code:
Canvas := TCanvas.Create;
[b]Try[/b]
Canvas.Handle := GetDC(GetDesktopWindow);
[color=gray]ResizeTextComp(Comp, Canvas, 1, 1.0);[/color]
ReleaseDC(GetDesktopWindow, Canvas.Handle);
[b]Finally[/b]
Canvas.Free;
[b]End[/b];
Und laut Taskmanager bleiben die
GDI-Objecte auch konstant (ohne ReleaseDC stiegen die wirklich an)
also Danke nochmal an alle
