Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Text im Button (https://www.delphipraxis.net/11054-text-im-button.html)

Hansa 30. Okt 2003 12:30


Text im Button
 
Stehe aufm Schlauch. Ich habe 4 Buttons direkt untereinander. Die sind auch gleich groß nur die Caption nicht. Und die ist zentriert. Sieht seltsam aus. Wo kann man das linksbündig einstellen ?

flomei 30. Okt 2003 12:37

Re: Text im Button
 
:roll: Ich denke es ist schwierig an nem Button was in der Richtung zu drehen. Einfacher wäre es du nimmst ein Panel.
Beim Panel einfach Alignment auf LeftJustify und fertig. :)
Ein Panel ist auch noch flexibler was das Design angeht. Farben usw...

MfG Florian

Christian Seehase 30. Okt 2003 12:43

Re: Text im Button
 
Moin Hansa,

vielleicht funktioniert es, wenn Du Dir einen eigenen Buttontyp von TButton ableitest, hierbei die CreateParams überschreibst, und den ExStyle um WS_EX_LEFT ergänzt.
Ich kann's gerade nicht ausprobieren, weil sich gerade mein Delphi "verabschiedet" hat. :?

himitsu 30. Okt 2003 12:43

Re: Text im Button
 
Oder du nimmst BitBtn (unter Zusätzliches).

Lässt einfach das Bild (Glyph) weg.
Und stellst in der Eigenschaft Margin einen Wert >= 0 ein - ohne Bild ist das der Abststand vom Rand. (-1 ist zentriert)

Linksbündig: Layout = blGlyphLeft
Rechtsbündig: Layout = blGlyphRight
...

Add:
@Chris - auch wenns mein Motto ist, muss aber nicht immer sein

Alexander 30. Okt 2003 13:12

Re: Text im Button
 
Das hier müsste theoretisch auch funktionieren:
Delphi-Quellcode:
 SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_LEFT);
Getestet unter XP.


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz