Was meinst du genau? Die Implementierung des TextAlign Features in der TButton Basisklasse oder was anderes?
Ich habe es übrigens nun mit Änderung der Flags lösen können. Ich untze BS_CENTER nciht mehr, da das anscheinend der Default ist. Ist mir zwar nachwievor unklar, wieso BS_CENTER auch BS_LEFT enthält und die Auswertung "Style AND x" hier eigentlich falsch ist.
Alte Version, die nicht geht, wegen BS_CENTER
Delphi-Quellcode:
const
TextAligns: Array[TrfTextAlign] of Cardinal =
(BS_LEFT or BS_TOP, BS_LEFT, BS_LEFT or BS_BOTTOM,
BS_CENTER or BS_TOP, BS_CENTER, BS_CENTER or BS_BOTTOM,
BS_RIGHT or BS_TOP, BS_RIGHT, BS_RIGHT or BS_BOTTOM);
Neue Version, die so zu funktionieren scheint
Delphi-Quellcode:
const
TextAligns: Array[TrfTextAlign] of Cardinal =
(BS_LEFT or BS_TOP, BS_LEFT, BS_LEFT or BS_BOTTOM,
BS_TOP, BS_VCENTER, BS_BOTTOM,
BS_RIGHT or BS_TOP, BS_RIGHT, BS_RIGHT or BS_BOTTOM);