** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
** Exemple  :  PictureBmp  x, y , (L_Name_Var or L_String) Path , L_NameWindow
**
**
**

#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
integer :    exit_trans1  ,x ; 
 
  



 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 
				&   CENTERDIALOG

   1, 350,300 ,250, " EndUser 4 GL : Load  BITMAP BackGround    ",UserDialog
	 
      PictureBmp   50, 50,"c:\EndUser4gl\4gl\hlp\PgmBmp\printer.bmp",Bmp1
   
         PushButton  1, 250, 88, 21, "Cancel", BoutonCancel
 end_dialog  
  
  IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\shuttle.ico");


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