Button Bar
Posted: Tue Aug 31, 2010 2:14 pmHi All
When I used FWH 7.12 I was able to place a button bar on the bottom of a window
DEFINE BUTTONBAR oBar 3DLOOK SIZE 45, 45 OF oWnd 2007
DEFINE BUTTONBAR oBar1 3DLOOK SIZE 45, 45 OF oWnd 2007
oBar1:nMode := 4
I am now using 9.11 version and the both buttonbars are at the top.
I have stripped down the code and removed other controls but still no luck.
When I used FWH 7.12 I was able to place a button bar on the bottom of a window
DEFINE BUTTONBAR oBar 3DLOOK SIZE 45, 45 OF oWnd 2007
DEFINE BUTTONBAR oBar1 3DLOOK SIZE 45, 45 OF oWnd 2007
oBar1:nMode := 4
I am now using 9.11 version and the both buttonbars are at the top.
I have stripped down the code and removed other controls but still no luck.
- Code: Select all Expand view
#include "fivewin.ch"
#include "cms.ch"
#include "xbrowse.ch"
function test2(oMainWnd,cPath,aPrivs,nGstRate,nDivisor)
local oDlg,oWnd,oBar,oBar1,oBtn1,oBtn2
DEFINE WINDOW oWnd MDICHILD of oMainWnd ;
FROM 0,0 TO 37.5,110;
STYLE CMSWIN ;
TITLE OemToAnsi( "Purchase Orders" )
oWnd:bGotFocus := { || oDlg:SetFocus() }
DEFINE DIALOG oDlg RESOURCE 'PO1' of oWnd
DEFINE BUTTONBAR oBar 3DLOOK SIZE 45, 45 OF oWnd 2007
DEFINE BUTTONBAR oBar1 3DLOOK SIZE 45, 45 OF oWnd 2007
oBar1:nMode := 4
DEFINE BUTTON oBtn1 of oBar RESOURCE "BTN_EXIT";
FLAT ;
PROMPT 'Exit' ;
ACTION(lExit := TRUE,oDlg,oWnd:End());
TOOLTIP('Exit Purchases Screen')
DEFINE BUTTON oBtn2 of oBar1 RESOURCE "SAVE";
FLAT ;
PROMPT 'Exit' ;
ACTION(lExit := TRUE,oDlg,oWnd:End());
TOOLTIP('Exit Purchases Screen')
ACTIVATE DIALOG oDlg NOWAIT ;
VALID(lExit)
ACTIVATE WINDOW oWnd ;
VALID(WinOpen(oMainWnd,1),lExit)
return(nil)
Any Ideas ??
Cheers
Colin