topic-19725

Posts: 310

Joined: Mon Oct 10, 2005 05:10 AM

Button Bar
Posted: Tue Aug 31, 2010 02:14 PM

Hi 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.

Code (fw): Select all Collapse

#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

FiveTech Support Forums

Continue the discussion