Align button caption

[Hansvb]

The caption is alway in the middle of the button. How to align the caption to the left?

[BitBangerUSA]

kludge way - add spaces to the right of the Caption.

[dietmar]

I found an older thread regarding this issue, perhaps it is a help for you:

http://forum.lazarus.freepascal.org/index.php?topic=21647.0

Dietmar

[ChrisF]

For a "standard" pushbutton, I'm not sure it's possible with the LCL (it's different for the other non-native buttons that are "painted").

Windows only solution (don't know if it's possible for the other OS): modify the style of the existing button using the Windows API.

Demonstration code:

Code: [Select]

...
uses
  Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLongPtr(Button1.Handle, GWL_STYLE, GetWindowLongPtr(Button1.Handle, GWL_STYLE) and (not BS_CENTER) or BS_LEFT);
  Button1.Refresh;
end;
...


[Hansvb]

i followed the link. The examples only work on TButton. i use TBitbtn.