Forum: Win32/Win64 API (native code)
by DeddyH,
22. Mär 2012
Wieso Image? Er hat doch direkt auf das Formular gezeichnet.
Forum: Win32/Win64 API (native code)
by DeddyH,
15. Dez 2011
Wenn er ASMs Code 1:1 übernommen hat, kann es daran ja eigentlich nicht liegen, da dort der Font erzeugt, übergeben und anschließend ausgewertet wird.
Forum: Win32/Win64 API (native code)
by DeddyH,
15. Dez 2011
Das kann ich aus dem Hut leider auch nicht sagen. Evtl. bringt ein Blick in die Delphi-Sourcen Licht ins Dunkel.
Forum: Win32/Win64 API (native code)
by DeddyH,
15. Dez 2011
Also bei mir sieht das hier ganz ordentlich aus:
procedure TFormTest.FormPaint(Sender: TObject);
const
DRAWFLAGS = DT_SINGLELINE or DT_CENTER or DT_VCENTER;
YOffset = 35;
var
s: string;
R: TRect;
OldFont: TFont;