Drehen der Schrift im Panel

[CIADelphianer]

Hey,

hab mal ne ziemlich banale Frage...steh aber gerade total aufm Schlauch!
Und zwar will ich die Schrift im Panel um 90° drehen, sodass es quasi hochkant ist...

Glg CIADelphianer

[himitsu]

Geht nicht, aber du kannst selber eine gedrehte Schrift auf das Canvas des Panels malen.

[stahli]

... oder Fremdkomponenten nutzen, die so etwas können
(weiß aber nicht welche)

[Bummi]

Ich würde Dir Selbst Malen empfelen aber vielleicht hilft die das auch weiter:

Delphi-Quellcode:

var
  HFont:Integer;
begin
HFont := CreateFont(-12,  // height
0,          // width
90*10,   // escapement
0,          // orientation
0,0,0,0,
1,          // char set
4,          // output precision
$10,        // clip precision
2,          // quality
4,          // pitch and family
PCHAR('Arial'));
Panel.Font.Handle := Hfont;

// beim abräumen dann ein : DeleteObject(HFont)