Hallo,
ich hoffe das ist die richtige Sparte.
Ich will sehr viel Text als Grafik ausgeben, denn ich programmiere gerade meinen uralten Bild-Nach-
Ascii-Converter neu^^. dabei will ich den benutzer die Möglichkeit geben, die Ausgabe wiederum als Grafik speichern zu können. Das Problem ist, das Drawtext dafür offensichtlich viel zu langsam ist.
Das komische ist, dass der Text in einem Memo sehr viel schneller - nämlich sofort - ausgegeben wird. Hat jemand eine Idee, wie ich das ganze schneller ausgeben könnte? Habe ich vielleicht irgendwelche Performance-bremsenden Parameter drin?
Delphi-Quellcode:
procedure TGraphicToText.ToGraphic(const dst: TGraphic);
var
tmp: TBitmap;
myrect: TRect;
begin
tmp := tBitmap.Create;
try
tmp.Canvas.Font.Name := 'Courier New';
tmp.Canvas.font.Size := 6;
myrect.top := rect(0,0,0,0);
// Text-Dimensionen ermitteln, wenn ich die Onlinehilfe richtig verstanden habe
DrawText(tmp.Canvas.Handle,pansichar(fresult),length(fresult),myrect,
DT_NOPREFIX or DT_CALCRECT or DT_NOCLIP);
// Bitmapgröße einstellen
tmp.Width := myrect.Right-myrect.Left;
tmp.height := myrect.bottom-myrect.top;
// text zeichnen
DrawText(tmp.Canvas.Handle,pansichar(fresult),length(fresult),myrect,
DT_NOPREFIX or DT_NOCLIP);
// Ergebnis übernehmen
dst.assign(tmp);
finally
tmp.free;
end;
end;
In fresult steht der Text.