TPngBitBtn mit WordWrap

[DCoderHH]

Hallo,

ich habe mir eben die PngComponents von Uwe Raabe (https://bitbucket.org/uweraabe/pngcomponents) heruntergeladen und nutze einen TPngBitBtn mit WordWrap = true. Doch leider bricht der Text nicht um. Woran liegt das? Wie bekomme ich den Umbruch hin? Danke!

[Uwe Raabe]

Zitat von DCoderHH:

Woran liegt das?

Vermutlich daran, daß der als Vorlage dienende TBitBtn zu Delphi 7 Zeiten das ebenfalls noch nicht implementiert hatte. Da das in den seitdem vergangenen Jahren offenbar niemand benutzt hatte ist das bis jetzt auch nicht aufgefallen.

Seitdem ein Standard TButton seit einiger Zeit ja auch ein Bildchen haben kann und diese ja bequem über die ImageList (auch PngImageList) bereit gestellt werden können, stellt sich schon die Frage nach der Sinnhaftigkeit des TPngBitBtn .

Das gleiche gilt wohl auch für die anderen visuellen Komponenten der Library.

[DCoderHH]

Zitat von Uwe Raabe:

Vermutlich daran, daß der als Vorlage dienende TBitBtn zu Delphi 7 Zeiten das ebenfalls noch nicht implementiert hatte. Da das in den seitdem vergangenen Jahren offenbar niemand benutzt hatte ist das bis jetzt auch nicht aufgefallen.

Also der TBitBtn von D10 bricht den Text um. Ich hab jetzt mal in den Code vom TPngBitBtn geguckt und in der Prozedure TPngBitBtnStyleHook.DrawButton gibt es den Code:

Code:

  LFormats := TTextFormatFlags(DT_NOCLIP or DT_CENTER or DT_VCENTER
    or btn.DrawTextBiDiModeFlags(0) or WordBreakFlag[btn.WordWrap]);

Es sieht als so aus, als ob WordWrap behandelt wird. Merkwürdigerweise kann ich dort aber keinen Breakpoint drauf setzen...

Zitat von Uwe Raabe:

Seitdem ein Standard TButton seit einiger Zeit ja auch ein Bildchen haben kann und diese ja bequem über die ImageList (auch PngImageList) bereit gestellt werden können, stellt sich schon die Frage nach der Sinnhaftigkeit des TPngBitBtn .

Danke, diese Neuheit ist komplett an mir vorbei gegangen. Allerdings gefällt mir da die Ausrichtung des Bildes nicht, wenn es über der Caption angezeigt wird. Damit es schön aussieht, muss da mit den ImageMargins gearbeitet werden. Die aber wieder komplett geändert werden müssen, wenn der Button in der Größe verändert wird.

[Uwe Raabe]

Zitat von DCoderHH:

Also der TBitBtn von D10 bricht den Text um.

Deswegen mein Verweis auf Delphi 7, unter dem der ursprüngliche Entwickler die Library noch gepflegt hat.

Zitat von DCoderHH:

in der Prozedure TPngBitBtnStyleHook.DrawButton gibt es den Code

Der StyleHook wird zwar nur bei aktivem VCL-Style verwendet, aber auch dort ist noch ein Fehler drin.