Button always has center alignment

[elioenaishalom]

Can anyone help me how to add alignment property to TSpeedButton caption (left, center and right justify) - Button always has center alignment

[Blaazen]

You can change Margin property to something > -1. It will align Caption to the left (or to the right if it BiDi mode is RightToLeft).
If you want full alignment, probably the best way is to change the flags. Caption is painted via ThemeServices.DrawText, so you will change flags DT_CENTER and DT_VCENTER to DT_TOP, DT_LEFT, DT_BOTTOM or DT_RIGHT. It will align the text to the edges of the control rectangle.

[elioenaishalom]

Mr. Blaazen,
I appreciate the attention and readiness to respond.
It does not seem so easy for me to use ThemeServices.DrawText - I've read the documentation on lazarus http://wiki.freepascal.org/Theme_library and the post http://forum.lazarus.freepascal.org/index.php?topic=21526.0.
For now I'll use the Margin, but if you can have patience for more detail how to write the TSpeedButton.Caption changing the default alignment I am very grateful because my power is not enough to translate the example for the component.

[Blaazen]

The important part is in method TCustomSpeedButton.MeasureDraw in file speedbutton.inc on line 675-681:

Code: [Select]


      TextFlags := DT_LEFT or DT_TOP;
      if UseRightToLeftReading then
        TextFlags := TextFlags or DT_RTLREADING;

      if Draw then
        ThemeServices.DrawText(Canvas, DrawDetails, Caption, PaintRect,
          TextFlags, 0);       
All you need is to modify and add a case .. of construction:

Code: [Select]

case Alignment of
  alTop: TextFlags := TextFlags or DT_TOP;
  alRight: TextFlags := TextFlags or DT_RIGHT;
  //etc. for other positions
end;
And test, test, test for all possible combinantions, i.e. with glyph, without glyph, LeftToRight, RightToLeft, glyph only (no caption) etc.

[elioenaishalom]

Not enough words to thank your attention - I'll try asap ...