Fontveränderung bei Resize

[Jörgi]

Hallo Liebe Gemeinde,

ich habe mich extra angemeldet wegen folgendem Problem, was ich nicht nachvollziehen kann...

Ich benutze Delphi 5

Ich lasse mir an der Y-Achse einen gedrehten Text ausgeben mit folgender Prozedur:

Delphi-Quellcode:

procedure TextOutAngle(const Canvas: TCanvas; X, Y: Integer; const AText: string; AAngle: Integer);
  var
    hcurFont: HFONT;
    LogFont: TLogFont; // Windows native Font-Struktur
  begin
    with Canvas do
    begin
      hCurFont := Font.Handle;
      try
        GetObject(Font.Handle, SizeOf(LogFont), @LogFont);
        LogFont.lfEscapement := 10*AAngle;
        LogFont.lfOrientation := Logfont.lfEscapement;
        canvas.Font.Handle := CreateFontIndirect(LogFont);
        try
          TextOut(X, Y, AText);
        finally
          DeleteObject(Font.Handle);
        end;
      finally
        Font.Handle := hCurFont;
      end;
    end;
  end;

Klappt auch soweit ganz gut...
Ziehe ich meine Grafik jetzt größer, dann verändert sich der Font.
Und nicht nur der vom gedrehten Text, sondern alle.

Hat jemand eine Idee ?

Viele Grüße,

Jörg

[HolgerX]

Zeichnest Du die Grafic nach dem Resize neu oder streckst Du nur die einmal gezeichnete Grafic?

[Jörgi]

die wird neu gezeichnet

[Jörgi]

[Jörgi]

Ich pushe noch ein letztes Mal...

[himitsu]

Das mit hCurrFont kann doch so nicht funktionieren?
Beim Setzen von Font.Handle wird das vorhandene Handle bestimmt freigegeben, womit dieses gespeicherte Handle dann ungültig wäre.

TFontRecall?

[edit] Jupp, steht so auch in der OH geschrieben.

Zitat:

Durch das Setzen von Handle wird die aktuelle Windows-Schriftressource freigegeben.

Und das DeleteObject gibt dann auch nochmal das neue Handle doppelt frei.

PS: http://docwiki.embarcadero.com/Libra...s.TFont.Handle -> http://docwiki.embarcadero.com/CodeE...t_%28Delphi%29
Hier werden die Handle auch nicht freigegeben. (wobei das nichts heißen muß )