HMGforum.com

Code: Select all

#include <minigui.ch>

PROC Main()

*  DECLARE frmSecond, frmThird 
  
  DEFINE WINDOW frmMFMain ;
	 AT 138, 235 ; 
	 WIDTH   550 ;
	 HEIGHT  350 ;
	 TITLE "Main Form" ;
	 MAIN 
		 
	 DEFINE BUTTON Button_1
		ROW    40
		COL    50
		WIDTH  150
		HEIGHT 30
		ACTION Make2ndForm()
		CAPTION "Second Form"
	 END BUTTON
/*
	 DEFINE BUTTON Button_2
		ROW    60
		COL    50
		WIDTH  150
		HEIGHT 30
		ACTION frmSecond.Release
		CAPTION "Release Second Form"
	 END BUTTON
	 	 
	 DEFINE BUTTON Button_3
		ROW    80
		COL    50
		WIDTH  150
		HEIGHT 30
		ACTION frmThird.Release
		CAPTION "Release Third Form"
	 END BUTTON
*/	 	 
  END WINDOW // frmMFMain 
  
  frmMFMain.Activate
  
Return // Main()


Procedure Make2ndForm()

  DEFINE WINDOW frmSecond OF frmMFMain;
	 AT      50, 50  ; 
	 WIDTH   250 ;
	 HEIGHT  150 ;
	 TITLE "Second Form (CHILD)" ;
	 CHILD

	 DEFINE BUTTON Button_1
		ROW    40
		COL    50
		WIDTH  150
		HEIGHT 30
		ACTION Make3thForm() 
		CAPTION "Make 3th Form"
	 END BUTTON

	 DEFINE BUTTON Button_2
		ROW    80
		COL    50
		WIDTH  150
		HEIGHT 30
		ACTION  this.Release 
		CAPTION "Release this (2nd) window"
		AUTOSIZE .T.
	 END BUTTON
	 	 
		 
  END WINDOW // frmSecond 
  
  frmSecond.Activate
	 
Return // Make2ndForm()


PROC Make3thForm()

  DEFINE WINDOW frmThird  OF frmMFMain;
	 AT      150, 150  ; 
	 WIDTH   250 ;
	 HEIGHT  150 ;
	 TITLE "Third Form (CHILD)" ;
	 CHILD
	 
	 DEFINE BUTTON Button_1
		ROW    40
		COL    50
		WIDTH  150
		HEIGHT 30
		ACTION This.Release
		CAPTION "Release THIS (3rd) Form"
	 END BUTTON
	 	 
		 
  END WINDOW // frmThird 
  
  frmThird.Activate
	 
RETU // Make3thForm()

Code: Select all

#include <hmg.ch>

Function Main

   DEFINE WINDOW main            ;
      AT 0,0               ;
      WIDTH 635            ;
      HEIGHT 460            ;
      TITLE 'Item Group Setup'   ;
      main

      DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 50,30 FLAT RIGHTTEXT BORDER

      BUTTON btnFirst       ;
         CAPTION '&Top' ;
         picture "HP_TOP" ;
         autosize

      BUTTON btnPrev    ;
         CAPTION '&Prev'    ;
         PICTURE "HP_BACK" ;
         autosize

      BUTTON btnNext   ;
         CAPTION '&Next'    ;
         PICTURE "HP_NEXT" ;
         autosize

      BUTTON btnLast       ;
         CAPTION '&Last'    ;
         PICTURE "HP_END" ;
         autosize

      BUTTON btnAdd       ;
         CAPTION '&Add'    ;
         PICTURE "MINIGUI_EDIT_NEW" ;
         autosize

      BUTTON btnModify       ;
         CAPTION '&Modify'    ;
         PICTURE "MINIGUI_EDIT_EDIT" ;
         autosize

      BUTTON btnDelete    ;
         CAPTION '&Delete'   ;
         PICTURE "MINIGUI_EDIT_DELETE" ;
         autosize

      END TOOLBAR
end window
main.center
main.activate
return nil