TButton align to left

[mr_fahrrad]

How i make to align to left a text in the Button component?

Idont find solution for this, anybody can helpme?

[MrKnogge]

Moin mr_fahrrad,

du musst dir eine eigene Komponente vom Typ TButton ableiten und die Eigenschaft Align selbst hinzufügen.
Welche Delphi-Version hast du ?

Gruß

[DGL-luke]

Maybe TSpeedButton or TBitButton have a text-align property...

If you have to draw the text yourself (e.g. following MrKnogge's suggestion), you might want to draw the text yourself: DrawText.

On the other Hand, you should be able to tell the WinAPI to align the text... but I don't know how.

[marabu]

Hi Lukas,

Zitat von DGL-luke:

... On the other Hand, you should be able to tell the WinAPI to align the text... but I don't know how.

it is a matter of style:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  dwStyle: LongWord;
begin
  with Sender as TButton do
  begin
    dwStyle := GetWindowLong(Handle, GWL_STYLE);
    dwStyle := dwStyle and not BS_CENTER or BS_LEFT;
    SetWindowLong(Handle, GWL_STYLE, dwStyle);
    Invalidate;
  end;
end;

Regards