Multiline button on a window

[Franklin Demont]

Next code seems not to work on a window. In dialog's it works.

Code: Select all  Expand view

#include 'FIVEWIN.CH'
static oWinMain := nil

PROCEDURE Main()
   local oFont, oDlg , oBut
   define font oFont name 'MS Sans Serif' size 6,15

   define window oWinMain from 5,5 to 30,85 title "TestBtns"// menu BuildMenu()

   @ 3,10 BUTTON oBut PROMPT "Button 01" + CRLF +  "Test" size 60,50 font oFont OF oWinMain ACTION MsgInfo("Button 01 Test on oWinMain")
  oBut:nStyle := NOR( oBut:nStyle, 8192 )
   @ 3,40 BUTTON "Button 02 Test" size 100,50 font oFont OF oWinMain ACTION MsgInfo("Button 02 Test on oWinMain")


   set message of oWinMain to "TestBtns" date time noinset
   activate window oWinMain maximized
return
 

[Franklin Demont]

Sorry , TBTBMP solves the problem

[nageswaragunupudi]

Please add MULTILINE clause to BUTTON command like this.

Code: Select all  Expand view

  @ 3,10 BUTTON oBut PROMPT "Button 01" + CRLF +  "Test" size 60,50 font oFont OF oWinMain MULTILINE ACTION MsgInfo("Button 01 Test on oWinMain")
 

Please do not do anything else with the Style