** ****************************************************************************************** *
** EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
**
** EndUser4gl   Ph Bergougnoux : DEMO  QUERY  
** *******************************************************************************************
 
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
** ***************************************************************************************************************
** Declare DATA : char,integer,LONG, FLOAT,DOUBLE,const_num,const_string table etc...
** ***************************************************************************************************************
 
integer : exit_trans1 ,itemid,x  ; 
 
 
char : Component:255 := " EndUser4gl :  Bergougnoux Consulting 	 Adress :  14 rue Jean Moulin 37550 St Avertin FRANCE
Fax : 00 33 02 47 28 58 19
THANK YOU FOR EVALUATING VERSION EndUser4gl 	  QUERY  	
Email : bergou@club-internet.fr	 ";

char : Copyright:255 := " Copyright (c) 2001 EndUser4gl  : Bergougnoux Consulting ,France Tous droits réservés Ph Bergougnoux.                " ; 
 
 
constant_num :  ID_PRINT 101 ,
                ID_COPY  102 ,
                ID_CANCEL 106 ;
constant_string : CUTBMP "c:\EndUser4gl\4gl\hlp\PgmBmp\cut.bmp",
                  ITEMCUT "Cut" ;
 
 
 
 begin_transaction : Trans1     Execute   Transaction with  exit_trans1  !=  1     
 
   begin_dialog 
		  WinExtendstyle :  :WS_EX_DLGMODALFRAME
 	  	  Winstyle 	 :  :WS_OVERLAPPED & :WS_CAPTION &    :WS_SYSMENU  &  :WS_THICKFRAME  
				&  :WS_MINIMIZEBOX   &    :WS_MAXIMIZEBOX 
				 
    	  0,0,880,680 , "Project EndUser4gl : Presentation statusBar ",UserDialog
 Begin_Menu :  TOTO1 
      Begin_PopMenu  :   PopMenu11  "O&ption "
          		MenuItem "&Print"   , ID: 101 create : pictureBmp "c:\EndUser4gl\4gl\hlp\PgmBmp\print.bmp"
                 	MenuItem return_carriage    
                	MenuItem "&Exit Demo"   , ID: ID_CANCEL create : pictureBmp "c:\EndUser4gl\4gl\hlp\PgmBmp\cancel.bmp"
               END_PopMenu 
  	 
  END_Menu

      	  statusBar  :CCS_BOTTOM NbParts  3  create : Part 1: 150 , Part 2 :280 POPOUT, Part 3 : 1280 , WinStatusBar
     	  **statusBar  :CCS_TOP NbParts  2  create : Part 1:  50  POPOUT, Part 2 :  280 , WinStatusBar2


  end_dialog 
** ************************************************************************************************************
** INITIALIZE :ONE
** ***********************************************************************************************************
   
 
	 Begin_Initialize /*  1 only one */
 		 IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\EndUser4gl.ico");
	  	 SetTxtSB(WinStatusBar:1,"EndUser4gl     ");
		 SetTxtSB(WinStatusBar:2,"Demo statusBar    ",POPOUT);
		 SetTxtSB(WinStatusBar:3,"No file .....    ");
    	          OpenDialog  (UserDialog )  ;
  	 End_Initialize 
** ******************************************************************************************************* 
** MENU SELECT
** *******************************************************************************************************
 Begin_Message_Dialog(UserDialog)::OnClickMenuSelect(void) **WM_MENUSELECT(void)
 Begin /* ************ SELECT ITEM ******************** */
	Clear ItemId  ; 
         GetselectPopMenuItemID() returning(ItemID);
		if(ItemId  Not_Void)
 		then  
                        case_of ItemId
 	 		when   106 :
 			 	 MsgBox  : TITLE "End Presentation EndUser4gl    "  
                   	 	 Message :      " Push is ok : Cancel Transaction" 
                   	 	 button  :     MB_OK 
                   		 icon    :        MB_ICONEXCLAMATION    returning (x) ; 
            			 exit_trans1  :=  1     ;exit_pgm();
			end_when;
			end_case; 
		end_if; 

 end_begin  ;
 End_Message_Dialog /* WM_xxxxx       */ 
 
  		
 end_transaction ;