Are there TButton equivalents whose labels support word wrap?

[vfclists]

Are there TButton equivalents whose labels support word wrap?

[Luke Snowmaker]

Hi there,
actually, you can put a standard TButton without a caption on your form and then implement the following code into the FormCreate event:

Code: [Select]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := 'first' + #13#10 + 'second' + #13#10 + 'third';
end;

At the end, you get a button with three lines...is that what you meant...?

cheers..!

[typo]

Are there TButton equivalents whose labels support word wrap?

Try the solution above on a TSpeedButton.

[vfclists]

This is rather awkward because the need for word wrap can only be computed when the size of the text is known. It has been available since Delphi 7.
Isn't the label on a button a stand label which can be set to word wrap even if it means subclassing TButton?

Can a message be sent to it that will effect the wordwrap, it is needed?

Hi there,
actually, you can put a standard TButton without a caption on your form and then implement the following code into the FormCreate event:

Code: [Select]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := 'first' + #13#10 + 'second' + #13#10 + 'third';
end;

At the end, you get a button with three lines...is that what you meant...?

cheers..!

[Luke Snowmaker]

if its so necessary, you can try this using BitBtn (instead of OnClick, you can use Form OnCreate event, or if you need it realtime, Id use a timer OnTimer event):

Code: [Select]

procedure TForm1.BitBtn1Click(Sender: TObject);
  var S: AnsiString;
    R: TRect;
    stl:TTextStyle;
begin
    S:='Hello World Hello World Hello World Hello World';
    BitBtn1.Glyph.Canvas.Font := BitBtn1.Font;
    BitBtn1.Glyph.Width := BitBtn1.Width - 6;
    BitBtn1.Glyph.Height := BitBtn1.Height - 6;
    R := Bounds(0, 0, BitBtn1.Glyph.Width, BitBtn1.Glyph.Height);
    BitBtn1.Caption := '';
    BitBtn1.Glyph.Transparent:=false;
    BitBtn1.Glyph.Canvas.Brush.Color:=clBtnFace;
    BitBtn1.Glyph.Canvas.FillRect(R);
    stl.Alignment:=taCenter;
    stl.Wordbreak:=true;
    stl.Layout:=tlCenter;
    stl.SingleLine:=false;
    R := Bounds(1, 1, BitBtn1.Glyph.Width-1, BitBtn1.Glyph.Height-1);
    BitBtn1.Glyph.Canvas.TextRect(R,0,0,S,stl);
end;                               

This works for me.