** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
** Exemple  :  ICONDIALOG(l_Var_name   or L_String) T_RETURNING : found ou not found
** REQUIRE is optionnal
**
 
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"


char : IconName:128 := "c:\EndUser4gl\4gl\hlp\pgmicon\4.ico" ;

integer :    exit_trans1  ,x ; 
 
   

 begin_transaction : Trans1     Execute   Transaction with  exit_trans1  !=  1    
 begin_dialog  
  BackgroundBmp :   "c:\EndUser4gl\4gl\hlp\PgmBmp\printer.bmp" 
 
  WinExtendstyle :  :WS_EX_DLGMODALFRAME
 	  	  Winstyle 	 :  :WS_OVERLAPPED & :WS_CAPTION &    :WS_SYSMENU    
				&  :WS_MINIMIZEBOX   &    :WS_MAXIMIZEBOX 
				 
  
 100,20,450,250, " EndUser 4 GL : Icon Dialog  " ,BoiteDlgUser
              PushButton  1, 200, 88, 21, "Cancel", BoutonCancel 

 end_dialog   
 

 Begin_Initialize
 
  IconDialog(BoiteDlgUser:IconName) returning (x) ;
  if (x  Not_Void) then display "Icon Not Found" ; end_if;

 End_Initialize
 
    OpenDialog(BoiteDlgUser)  ; 
       
  require  GetPush(BoutonCancel) returning (x);  
         if(  x   Not_Void ) 
          then  
               
                              MsgBox  : TITLE "My First Icon Application "  
                   Message :      " Push is ok : Cancel Transaction" 
                    button  :       MB_OK
                   icon    :        MB_ICONEXCLAMATION           returning (x) ; 
               exit_trans1  :=  1     ;
         end_if; 
  
   
   
 end_transaction ;