Mehrzeiliger Speedbutton funktioniert nicht

[Inventio]

Hallo,
ich habe vor einigen Tagen nachgefragt, wie ich mehrzeilige Buttons realisieren kann und wurde auf die Speedbuttons verwiesen. Dies klappt auf meinem Rechner (Win7 64bit) auch wunderbar. Jetzt habe ich das Programm an einen Kumpel weitergegeben und bei ihm wird der Inhalt des Buttons nicht mehrzeilig dargestellt. Er benutzt Win Vista 32 bit.
Kann es sein, dass dieses "Trick" mit Speedbuttons einfach nicht auf seinem Betriebssystem funktioniert ?


Lg Inventio

[theo]

Bei sowas ist "gegen den Strom schwimmen" immer problematisch.
Kennst du eine professionelle Software, wo klassische Buttons mehrzeilig sind? (Firefox, Openoffice...) Das würde mich interessieren.
Mach's einfach anders, mit Label, Hint oder Logo.

[kirchfritz]

Meine Antwort kommt sehr spät, aber mein Vorredner interessiert sich für professionelle Software mit mehrzeiligen Buttons:
Microsoft Outlook ist doch ein schönes Beispiel für den intensiven Einsatz mehrzeiliger Buttons:
Guckst Du hier: https://www.screencast.com/t/PAkW3Lv1K

[wp_xyz]

Das sind keine Speedbuttons, sondern ein komplett anderes Control (Ribbon). Unter Lazarus kommt dem die SpkToolbar am nächsten (im Online-Package-Manager). Und ich meine, es gibt auch unter den BGRAControls (oder wie auch immer die genau heißen) eine Variante davon.

[gladio]

Man muss nicht alles nachmachen.
Die Menüs in MS-Office etc. sind grausam.

[Winni]

Hi!

Selber machen:

Schreibe Deine mehrzeilige Caption auf den Canvas des SpeedButton.

Winni

[wp_xyz]

Aber nimm dafür das OnPaint Event des Speedbutton:

Code: Alles auswählen

procedure TForm1.SpeedButton3Paint(Sender: TObject);
var
  ts: TTextStyle;
  R: TRect;
begin
  R := Rect(0, 0, SpeedButton3.Width, SpeedButton3.Height);
  with SpeedButton3.Canvas do
  begin
    ts := TextStyle;
    ts.Wordbreak := true;
    ts.SingleLine := false;
    ts.Alignment := taCenter;
    ts.Layout := tlCenter;
    TextRect(R, 0, 0, 'Hallo' + LineEnding + 'Welt', ts);
  end;
end;

Die Caption des SpeedButton muss in diesem Code leer sein.

[Winni]

Hi!

Es gibt noch einen Trick, wie man die Caption des SpeedButtons doch benutzen kann:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var cap  : String;
....
cap := SpeedButton1.Caption;
SpeedButton1.Tag := PtrInt(@cap);
SpeedButton1.Caption := '';   
....

Und in der oben gezeigten procedure SpeedButton1Paint machst Du

Code: Alles auswählen

var cap: string;
P: Pstring; 
.....
P := Pointer(SpeedButton1.Tag);
cap := P^;
TextRect(R, 0, 0, cap , ts);

Dies ist also nebenbei ein Beispiel, wie man die Property Tag aller Componenten sinnvoll nutzen kann.


Winni

[Warf]

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var cap  : String;
....
cap := SpeedButton1.Caption;
SpeedButton1.Tag := PtrInt(@cap);
SpeedButton1.Caption := '';   
....

Und in der oben gezeigten procedure SpeedButton1Paint machst Du

Code: Alles auswählen

var cap: string;
P: Pstring; 
.....
P := Pointer(SpeedButton1.Tag);
cap := P^;
TextRect(R, 0, 0, cap , ts);

Dies ist also nebenbei ein Beispiel, wie man die Property Tag aller Componenten sinnvoll nutzen kann.

Den pointer einer Lokalen variable in den Tag zu schreiben ist wahrscheinlich das einzige Beispiel wie man den Tag einer Komponente nicht sinnvoll nutzen kann. Sobald die Funktion endet ist das einfach nur noch ne Tretmine die darauf wartet hoch zu gehen wenn man das nächste mal drauf zugreift.

Was du machen kannst ist:

Code: Alles auswählen

PString(@SpeedButton1.Tag)^ := SpeedButton1.Caption;

Was den Tag im grunde als String variable fungieren lässt und damit die Referenzzählung von Strings berücksichtigt, aber den Pointer einer Property zu nehmen ist extrem unsauber und sehr instabil, da die umstellung auf getter das direkt zerschießt (MMn. ist das mehr ein Bug als ein Feature)

[Winni]

Hi!

1000fach benutzt ohne Probleme.

Winni

[Warf]

1000fach benutzt ohne Probleme.

Dann würde ich mal ganz stark deine Tests infrage stellen. Ganz einfaches Beispiel, 2 Buttons:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject); 
var
  Cap: String;
begin
  Cap := 'Tausend mal Berührt, tausendmal ist nichts passiert';
  Button1.Tag := PtrInt(@Cap);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  s: String;
begin
  s := 'Tausend und eine Nacht und es hat zoom gemacht';
  ShowMessage(PString(Button1.Tag)^);
end;  

Also bei mir machts zoom

[wp_xyz]

ich habe vor einigen Tagen nachgefragt, wie ich mehrzeilige Buttons realisieren kann und wurde auf die Speedbuttons verwiesen. Dies klappt auf meinem Rechner (Win7 64bit) auch wunderbar. Jetzt habe ich das Programm an einen Kumpel weitergegeben und bei ihm wird der Inhalt des Buttons nicht mehrzeilig dargestellt. Er benutzt Win Vista 32 bit.
Kann es sein, dass dieses "Trick" mit Speedbuttons einfach nicht auf seinem Betriebssystem funktioniert ?

Hab' das gerade auf diversen Windows-Versionen ausprobiert (Vista habe ich allerdings nicht), und muss feststellen, dass auch mit Win 11, Win 7, Win XP und Win 2000 die Beschriftung eines Standard-SpeedButtons, in der ein Zeilenumbruch eincodiert ist, zweizeilig erscheint. Alles 32 Bit.

Vielleicht liegt das Missverständnis darin, dass der Zeilenumbruch nicht automatisch erfolgt, sondern dass an der Stelle des Umbruchs schon ein LineEnding in der Caption enthalten sein muss, den man allerdings nur im Quellcode eingeben kann

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpeedButton1.Caption := 'Hallo' + LineEnding + 'Welt';
end; 

[kirchfritz]

@wp_xyz

Dass

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpeedButton1.Caption := 'Hallo' + LineEnding + 'Welt';
end; 

die SpeedButton.Caption umbrechen lässt, ist klar.
Nicht klar ist, warum die mehrzeilige Caption dann nicht zentriert, ist, wenn beim SpeedButton die Layout-Eigenschaft auf blGlyphTop gesetzt ist.
Dann wir zwar die Caption umgebrochen, aber sie wird linksbündig dargestellt. Und das ist lästig!

[kirchfritz]

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var cap  : String;
....
cap := SpeedButton1.Caption;
SpeedButton1.Tag := PtrInt(@cap);
SpeedButton1.Caption := '';   
....

Und in der oben gezeigten procedure SpeedButton1Paint machst Du

Code: Alles auswählen

var cap: string;
P: Pstring; 
.....
P := Pointer(SpeedButton1.Tag);
cap := P^;
TextRect(R, 0, 0, cap , ts);

Dies ist also nebenbei ein Beispiel, wie man die Property Tag aller Componenten sinnvoll nutzen kann.

Den pointer einer Lokalen variable in den Tag zu schreiben ist wahrscheinlich das einzige Beispiel wie man den Tag einer Komponente nicht sinnvoll nutzen kann. Sobald die Funktion endet ist das einfach nur noch ne Tretmine die darauf wartet hoch zu gehen wenn man das nächste mal drauf zugreift.

Was du machen kannst ist:

Code: Alles auswählen

PString(@SpeedButton1.Tag)^ := SpeedButton1.Caption;

Was den Tag im grunde als String variable fungieren lässt und damit die Referenzzählung von Strings berücksichtigt, aber den Pointer einer Property zu nehmen ist extrem unsauber und sehr instabil, da die umstellung auf getter das direkt zerschießt (MMn. ist das mehr ein Bug als ein Feature)

Ich habe das jetzt bei zwei SpeedButtons, die eine identische OnPaintRoutine verwenden, so gelöst, und es funktioniert wunderbar.:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  PString(@SpeedButton1.Tag)^ := SpeedButton1.Caption;
  SpeedButton1.Caption := '';
  PString(@SpeedButton2.Tag)^ := SpeedButton2.Caption;
  SpeedButton2.Caption := '';
end;

procedure TForm1.SpeedButtonPaint(Sender: TObject);
var
  ts: TTextStyle;
  R: TRect;
begin
  R := Rect(0, 0, TSpeedButton(Sender).Width, TSpeedButton(Sender).Height);
  with TSpeedButton(Sender).Canvas do
  begin
    ts := TextStyle;
    ts.Wordbreak := true;
    ts.SingleLine := false;
    ts.Alignment := taCenter;
    ts.Layout := tlTop;
    TextRect(R, 0, 40, PString(@TSpeedButton(Sender).Tag)^, ts);
  end;
end;   

[kirchfritz]

So siehts jetzt aus:
https://www.screencast.com/t/WFUkcmjWRdM

2022-02-07_09-37-31.png (8.82 KiB) 1466 mal betrachtet