GDI+ wie Schriftgröße bei DrawText verändern?

[Tenobaal]

Ja, danke. Dein erstes Beispiel hat mich schon auf den richtigen Weg gebracht. Mein Programm ist allerdings sehr langsam geworden, nachdem der Text hinzugefügt wurde.
Werde dann mal TextOut probieren

Edit: Hab das Programm nun mit TextOut realisiert und es ist wesentlich schneller geworden.

Delphi-Quellcode:

var myFont:HFONT;RectStr:TRect; dc:HDC;
//...      
myFont := CreateFont(RectStr.Height, 0, 0, 0, 0, 0, 0, 0,ANSI_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,
         DEFAULT_QUALITY,DEFAULT_PITCH,'Arial');
OldFont:=SelectObject(dc,MyFont);
ExtTextOut(dc,RectStr.Left,RectStr.Top,ETO_CLIPPED,RectStr,pstr,Length(pstr),nil);
SelectObject(dc,OldFont);
DeleteObject(MyFont);

//...

http://www.delphipraxis.net/attachme...1&d=1406020162