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

[Tenobaal]

Hallo,
mein Problem ist eigentlich recht simpel.
Ich möchte eine Vektorgrafik beschriften, aber die Schriftgröße lässt sich nicht beeinflussen, sodass der Text abgeschnitten wird.
Im nachfolgenden Code habe ich versucht das Problem übersichtlich zu rekonstruieren. Wie in meinem Programm wird auf eine Image-Komponente gezeichnet.
Die interne Auflösung der Grafik (Window) ist 10x größer als die des Viewports bzw. Image-Clientbereichs.
Wenn die Zeile "Image1.Canvas.Font.Height:=1" auskommentiert wird, dann erscheint der Text sehr klein, was durch die höhere interne Auflösung des Bildes entsteht (logisch).
Befindet sich die Zeile "Image1.Canvas.Font.Height:=1" jedoch im Quellcode, dann wird der Text skaliert. Scheinbar spielt es aber keine Rolle, welcher Wert für "Height" eingegeben wird. Die Textgröße ist immer identisch.
Die Eigenschaft "Canvas.Font.Size" verhält sich genauso. Würde mich freuen, wenn mir jemand auf die Sprünge helfen könnte.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var dc:HDC; MyRect:TRect; pstr:PChar;
begin
dc:=Image1.Canvas.Handle;
SetMapMode(dc,MM_ISOTROPIC);
SetWindowExtEx(dc,Image1.Clientwidth*10,Image1.Clientheight*10,nil);
SetViewportExtEx(dc,Image1.Clientwidth,Image1.Clientheight,nil); // Clientwidth=600, Clientheight=600

//Beschriftung
MyRect:=Rect(10,10,200,200); //Abmessung bezieht sich auf Window! Nicht Viewport!
pstr:='Test'; //Irgentein Text
Image1.Canvas.Font.Height:=1; //Wenn auskommentiert Schrift sehr klein, Wert hat jedoch keinen Einfluss auf Schriftgröße
DrawText(dc, pstr, length(pstr),MyRect,DT_Top);
end;

[EWeiss]

Zitat:

mein Problem ist eigentlich recht simpel.

Wenn es so einfach ist warum behebst du es dann nicht.

Zum Thema!
Kann nirgends erkennen wo du GDI+ verwendest.

DrawText hat nichts mit GDI+ zu tun. Oder?

gruss

[Tenobaal]

Zitat von EWeiss:

Wenn es so einfach ist warum behebst du es dann nicht.

Weil Google mir keine Hilfe war und stundenlanges Probieren ebenfalls nicht geholfen hat.

Zitat von EWeiss:

Kann nirgends erkennen wo du GDI+ verwendest.
DrawText hat nichts mit GDI+ zu tun. Oder?

In meiner Literatur steht die Funktion unter GDI. Das "+" ist mir so rausgerutscht.

[EWeiss]

Zitat:

Image1.Canvas.Font.Height

Hat halt nichts mit dem Size des Fonts zu tun

Ob DrawText das wahre ist mag dahin gestellt sein.
Hab mal ein Beispiel angehängt.

Allerdings ändert dieses Beispiel auch nicht den Font-Size
sondern skaliert diesen nur.

Wenn du den Font-Size ändern willst würde ich eher zu
CreateFont/CreateFontIndirect und TextOut tendieren.


gruss

[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