Split Text on Button Prompt

[Rick Lipkin]

To All

Very rarely do I use standard 'push buttons' but I am doing a 'retro' look with xp themes and the old button style looks pretty good.

Just curious how you can split the Prompt text of a button in to two rows .. this code does not work ..

Rick Lipkin

Code: Select all  Expand view

 REDEFINE BUTTON oBtn6 Prompt "Tier"+CRLF+"Summ" ID 117 of oMieA ;
            ACTION ( _MieRate( oWndMDI,@oWndChildB ) )
 

[ukoenig]

Rick,

instead of class TButton, You can change to :

REDEFINE BTNBMP oBtn[1] OF oDlg ;
ID 140 PIXEL 2007 ;
NOBORDER ;
PROMPT " &Print" + CRLF + "1. Image" ;
FILENAME c_path1 + "Print.Bmp" ;
ACTION ( IMGREPORT( 1, 1 ) ) ;
FONT oFont1 ;
LEFT
oBtn[1]:lTransparent := .t.
oBtn[1]:cToolTip = { "Print" + CRLF + "selected Images","Print", 1, CLR_BLACK, 14089979 }
oBtn[1]:SetColor( 0, )

Best regards
Uwe

[Marcelo Via Giglio]

http://forums.fivetechsupport.com/viewtopic.php?p=98653#p98653

[Franklin Demont]

Rick ,

From code

Code: Select all  Expand view

  #define BS_MULTILINE 8192
@ 142 ,90 BUTTON oButIns PROMPT "test" OF oDlg PIXEL SIZE 40 , 25;
oButIns:nStyle  := NOR( oButIns:nStyle, BS_MULTILINE )

From resources 8192 , in rc

PUSHBUTTON "Technische fiche (Excel)", 425, 10 , 33 , 40 , 22 , 8192

 

[Rick Lipkin]

Franklin

Thank you .. 8192 was the trick .. added to the PUSHBUTTON line in the .rc

Rick Lipkin