topic-26917

Board index FiveWin for Harbour/xHarbour Multiline button on a window

Posts: 166

Joined: Wed Aug 29, 2012 08:25 AM

Multiline button on a window
Posted: Mon Aug 05, 2013 09:06 AM

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

#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

test

Franklin Demont

Posts: 166

Joined: Wed Aug 29, 2012 08:25 AM

Re: Multiline button on a window SOLVED
Posted: Mon Aug 05, 2013 10:10 AM

Sorry , TBTBMP solves the problem

test

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Multiline button on a window
Posted: Mon Aug 05, 2013 02:11 PM

Please add MULTILINE clause to BUTTON command like this.

Code (fw): Select all Collapse

   @ 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

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion