Abgeleiteter TButton mit Delphi Styles nicht richtig

[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 .