Abgeleiteter TButton mit Delphi Styles nicht richtig

[Uwe Raabe]

Zitat von Rolf Frei:

Was meinst du genau? Die Implementierung des TextAlign Features in der TButton Basisklasse oder was anderes?

Bezieht sich die Frage auf den QP-Eintrag?
In dem Fall würde ich TextAlign und TextVAlign als zusätzliche Features für TCustomButton/TButton vorschlagen.

Bei FMX gibt es das ja schon in TTextSettings. Dort sind es HorzAlign und VertAlign jeweils mit den Werten Center, Leading und Trailing, wobei mich die Benennung hier nicht so ganz überzeugt.

Interessanterweise gibt es das innerhalb der VCL-Styles in StyleAPI.inc auch schon:

Delphi-Quellcode:

  TSeTextAlign = (taTopLeft, taTopCenter, taTopRight, taLeft, taCenter,
    taRight, taBottomLeft, taBottomCenter, taBottomRight);

[Rolf Frei]

Zitat von Uwe Raabe:

BS_CENTER ist deklariert als 768, was hex $300 entspricht. Das ist dasselbe wie BS_LEFT or BS_RIGHT .

Das gilt übrigens auch für BS_VCENTER = 3072 = $C00 = BS_TOP or BS_BOTTOM .

Ja das ist mir schon klar, habe das ja selber schon geschrieben. Die Abfrage in den Styles ist dann aber doch falsch. Da müsste dann unterschieden werden ob es zentriert ist, also auch BS_RIGHT gesetzt ist. Also eine einfache Abfrage mit "Style AND BS_LEFT = BS_LEFT" müsste dann doch "(Style AND BS_LEFT = BS_LEFT) AND (Style AND BS_RIGHT = 0)" sein oder einfacher "Style AND BS_CENTER = BS_LEFT" damit das wirklich richtig ist oder nicht?

[Uwe Raabe]

Zitat von Rolf Frei:

Die Abfrage in den Styles ist dann aber doch falsch. Da müsste dann unterschieden werden ob es zentriert ist, also auch BS_RIGHT gesetzt ist.

Stimmt - der Code ist nicht korrekt. Fällt halt bisher nicht auf, da es ja aktuell kein TextAlign bei einem Button gibt. Die VCL setzt ja weder BS_LEFT noch BS_RIGHT oder gar BS_CENTER und somit führt der Code im Stylehook immer zu einem LTextFlags := LTextFlags or DT_CENTER .