Hi,
warum so kompliziert.
Delphi-Quellcode:
case TextAlign of
taCenter : myAlignment := DT_CENTER;
taLeftJustify : myAlignment := DT_LEFT;
taRightJustify : myAlignment := DT_RIGHT;
end;
case Layout of
tlTop : myAlignment := myAlignment or DT_TOP;
tlCenter : myAlignment := myAlignment or DT_VCENTER;
tlBottom : myAlignment := myAlignment or DT_BOTTOM;
end;
IF FWordWrap then myAlignment := MyAlignment or DT_WORDBREAK;
DrawText(self.Canvas.Handle, PChar(FText), -1, TextRect, myAlignment);
und alles ist super.
Um mal kurz auf das Thema runde Ecken zu kommen. Wie es in echt gemacht wird ist mir auch nicht bekannt. Aber such mal CombineRGN und CreateRGN hier im Forum. Da wirst du was zu Transparenz und "Durchklickbar" finden. Ich denke zu zeichnes dann deinen Rahmen mit runden Ecken und kombinierst zwei Ranges miteinander. Einer ist begrenzt durch BoundsRect, der Zweite durch deinen Rahmen. Somit wird der äußere Bereich transparent und Durchklickbar.
guckst du hier
hier
Gruß oki