Msgbar on dialog As MDICHILD inside a oWnd MDI

[Silvio.Falconi]

First of all I don't see the status bar (MsgBar) and I don't understand why it isn't created, I need the msgbar because I have to insert a progressbar, furthermore the dialog must be inside the oWnd Mdi and instead it is outside, why?

I create a dialog AS MDICHILD from a class, where I inserted the creation of the msgbar




BUT THE CLAUSOLE AS MDICHILD NOT WORK !!

this is the test

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

    #define AS_MDICHILD  1
    #define AS_DIALOG    2

FUNCTION Main()
local oWnd

   RddSetDefault( "DBFCDX" )

   SetHandleCount( 100 )

   SET DATE FORMAT "dd-mm-yyyy"
   SET DELETED     ON
   SET CENTURY     ON
   SET EPOCH TO    year( date() ) - 20
   SET MULTIPLE    OFF

   


   DEFINE WINDOW oWnd   ;
      FROM 0, 0 TO 24, 79  ;
      TITLE "TEST"     ;
      COLOR CLR_BLACK, CLR_WHITE ;
      MENU BuildMenu()        ;
      MDI  VSCROLL HSCROLL


   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2015

   DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test(oWnd)
   ACTIVATE WINDOW oWnd

    return nil

  function BuildMenu();return nil



function test(oWnd)
  local  oAnalisi  := NewDlg():New( "Test", 10, 10, 300, 300,oWnd)
  local oBar

   DEFINE BUTTONBAR oBar TOP _3D OF oAnalisi SIZE 65,24 2015  NOBORDER

  oAnalisi:Activate()

 return nil








CLASS NewDlg

   DATA oDlg

   METHOD NEW()
   METHOD ACTIVATE()
   METHOD END()

ENDCLASS

METHOD NEW( cTitle, nTop, nLeft, nBottom, nRight,oWnd ) CLASS NewDlg

   DEFINE DIALOG ::oDlg TITLE cTitle OF oWnd;
          FROM nTop, nLeft TO nBottom, nRight PIXEL ;
          STYLE NOR( WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX )

RETURN ::oDlg

METHOD ACTIVATE() CLASS NewDlg
   LOCAL oDlg

   ::oDlg := oDlg

   ::oDlg:bInit  := { || StatusBar( ::oDlg ) }

   ACTIVATE DIALOG ::oDlg AS MDICHILD


RETURN NIL

METHOD END() CLASS NewDlg

   ::oDlg:End()

RETURN NIL

STATIC FUNCTION STATUSBAR(oDlg)
   //LOCAL oDlg

   oDlg := ::oDlg

   SET MESSAGE OF ::oDlg;
        TO "status bar";

RETURN NI

[Antonio Linares]

Dear Silvio,

Method New() must return Self

also,

DEFINE BUTTONBAR oBar TOP _3D OF oAnalisi SIZE 65,24 2015 NOBORDER

must be created from the ON INIT clause of the dialog

[Silvio.Falconi]

Dear Silvio,

Method New() must return Self

also,

DEFINE BUTTONBAR oBar TOP _3D OF oAnalisi SIZE 65,24 2015 NOBORDER

must be created from the ON INIT clause of the dialog

Antonio I not see the msgbar (set message to)

[Silvio.Falconi]

I corrected the class Now is inside of oWnd but I not see the msgbar




the test

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

    #define AS_MDICHILD  1
    #define AS_DIALOG    2

FUNCTION Main()
local oWnd

   RddSetDefault( "DBFCDX" )

   SetHandleCount( 100 )

   SET DATE FORMAT "dd-mm-yyyy"
   SET DELETED     ON
   SET CENTURY     ON
   SET EPOCH TO    year( date() ) - 20
   SET MULTIPLE    OFF

   


   DEFINE WINDOW oWnd   ;
      FROM 0, 0 TO 24, 79  ;
      TITLE "TEST"     ;
      COLOR CLR_BLACK, CLR_WHITE ;
      MENU BuildMenu()        ;
      MDI  VSCROLL HSCROLL


   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2015

   DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test(oWnd)
   ACTIVATE WINDOW oWnd

    return nil

  function BuildMenu();return nil



function test(oWnd)
  local  oAnalisi  := NewDlg():New( "Test", 10, 10, 300, 300,oWnd)
  local  aBtnBar:= array(1)
  oAnalisi:Activate()


   DEFINE BUTTON aBtnBar[1] OF oAnalisi:oBar PROMPT "Nuovo" RESOURCE "NEW_REC"  ;
          ACTION msginfo("btn")


 return nil








CLASS NewDlg

   DATA oDlg
   DATA oBar

   METHOD NEW()
   METHOD ACTIVATE()
   METHOD END()
    METHOD ButtonBar(oDlg)
     METHOD STATUSBAR(oDlg)
ENDCLASS

METHOD NEW( cTitle, nTop, nLeft, nBottom, nRight,oWnd ) CLASS NewDlg

   DEFINE DIALOG ::oDlg TITLE cTitle OF oWnd;
          FROM nTop, nLeft TO nBottom, nRight PIXEL ;
          STYLE NOR( WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX )

RETURN self

METHOD ACTIVATE() CLASS NewDlg
    local oThis:= self
   oThis:oDlg:bInit  := { || ::StatusBar( oThis:oDlg ),::ButtonBar(oThis:oDlg) }

   ACTIVATE DIALOG oThis:oDlg AS MDICHILD

RETURN NIL

METHOD END() CLASS NewDlg
   ::oDlg:End()

RETURN NIL
METHOD ButtonBar(oDlg) CLASS NewDlg
          DEFINE BUTTONBAR ::oBar TOP _3D OF oDlg SIZE 65,24 2015  NOBORDER
      RETURN ::oBar

METHOD STATUSBAR(oDlg)  CLASS NewDlg
   //LOCAL oDlg



   SET MESSAGE OF oDlg;
        TO "status bar";

        RETURN NIL