** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
 **
**
**

#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 
	 300,120, 500, 500, " EndUser 4 GL :  GIF ANIMATED   ",UserDialog

 PictureGIF   50, 100, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\newenter.gif",GifEndUser1
 PictureGIF   150, 100,"c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\enduser4gl1.gif",GifEndUser2
 PictureGIF   50, 240, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\fa1prec.gif",GifEndUser3
 PictureGIF   150, 240, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\fa1next.gif",GifEndUser4
PictureGIF   10, 300, "c:\EndUser4gl\4gl\hlp\PgmGif\baranimated\ahr024.gif",GifEndUser5
 
 PictureGIF   150, 400, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\theend.gif",GifEndUser6
	
ButtonRegionChild 130, 400,78,48, BoutonCancel  
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		info " Informations  @  CopyRight EndUser4gl  Mai 2001 Ph Bergougnoux "

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

         ** exit_trans1  :=  1     ;
       
 end_transaction ;