#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"

 
char : FileApp:255:= "c:\EndUser4gl\4gl\doc\bergou.txt  ";
 integer : exit_transConsult :=0,x;
 
 begin_transaction : Trans1     Execute   Transaction with  exit_transConsult   !=  1    
 begin_dialog
  	 	  	 Backgroundcolor : color(192,193,218)  
	 		 WinExtendstyle :  :WS_EX_DLGMODALFRAME 
 	  	     Winstyle 	 :  :WS_POPUP   & CENTERDIALOG
  
 1, 1, 800,600, "EndUser4gl 4 GL : Presentation Bergougnoux Consulting  ",UserDialog

** Announce0 is Shadow/Ombre
Announce    52,1,683,   553, Announce0  Attribut :
				   FillColor     :  144,136,176 
				   FrameColor     : 144,136,176 
 				   SetColorText  :  166, 69,111
				   DrawText : DT_LEFT
				   SetFonts :
				   12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"	

 Announce    50,1,680,   550, Announce1  Attribut :
				   FillColor     :  192,193,218
				   FrameColor     : 255,255,255
 				   SetColorText  :  166, 69,111
				   DrawText : DT_LEFT
				   SetFonts :
					   12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"	
  Announce    52, 2,675,   40, Wtitle1  Attribut :
				   FillColor     :  144,136,176
				   FrameColor     : 250,250,250 
				   SetColorText  :  185,50,90 
				   DrawText : DT_CENTER
				   SetFonts :
					  18,12,0,0,FW_EXTRABOLD,0,0,0,"Arial"
											   
  	  Elliptical 2,540,48,48, Cercle1 Attribut    :
						 FillColor  :  201,255,160	
						 FrameColor     : 144,136,176
 						ShadowText :  -1, -3  color(0,255,0)
 						  SetColorText  :  166, 69,111
						  DrawText : DT_CENTER
						  SetFonts :
						   20,9,0,0,FW_EXTRABOLD,1,1,0,"Arial"	
	  PictureGIF   300, 510, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\home.gif",GifSponsor
				   	
	ButtonRegionChild  2,540,48,48, ButtonQuit  
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option       @   Quit     "  

 end_dialog  
  Begin_Initialize  
	 SetWinTxt(Announce1:  LoadFileTxt(FileApp));
	 SetWinTxt(Wtitle1:"Presentation  BERGOUGNOUX CONSULTING   ");
SetWinTxt(Cercle1:"Quit");
 end_Initialize 
	     OpenDialog(UserDialog)  ;

		 isOnSetCursor(ButtonQuit) returning (x);  
		 if(  x   Not_Void ) 
         then 
         DrawFocusRect(ButtonQuit);   
		  end_if;

		  Begin   /* Exit Transaction */
  		require  GetPush(ButtonQuit ) returning (x);  
         	if(  x   Not_Void ) 
         	then
			  SetStatusDialog(UserDialog:SW_HIDE);
				 exit_transConsult   :=  1     ;  
    		end_if;

	 end_begin ;
									   	
end_transaction ;