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

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




 begin_transaction : Trans1     Execute   Transaction with  exit_trans1  !=  1   
 begin_dialog
BACKGROUNDHATCHBRUSH : HS_DIAGCROSS color(180,250,94) 
  WinExtendstyle :  :WS_EX_DLGMODALFRAME
 	  	  Winstyle 	 :  :WS_OVERLAPPED & :WS_CAPTION &    :WS_SYSMENU  &  :WS_THICKFRAME  
				&  :WS_MINIMIZEBOX   &    :WS_MAXIMIZEBOX 
				 
  
 300,300, 450,300 , " EndUser 4 GL : Load  BITMAP Region Master and Child   ",UserDialog
	 
      pictureBmp 50, 50,"c:\EndUser4gl\4gl\hlp\PgmBmp\printer.bmp",Bmp1
           ButtonRegionChild  65, 55 ,50,50 , Bmp2  create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" 
           ButtonRegionChild  65, 118 ,50,50 , Bmp3  create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
           ButtonRegionChild  145, 55 ,50,50 , Bmp4   create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
           ButtonRegionChild  145, 118 ,50,50 , Bmp5  create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"

         PushButton  1, 250, 88, 21, "Cancel", BoutonCancel
 end_dialog   
  /* -------------------       INIT (optional)  --------------------------------- */    
	 Begin_Initialize 
     		  setcolortext(hwdisplay:RED,YELLOW);
     		 	 Display "Please , Move Mouse into Button Push Bitmap Region Master";
      		 	 Display "svp , bouger la souris  dans Button Bitmapregion Master";
			setcolortext(hwdisplay:BLUE,ORANGE); skip_line 3;
 			 Display "And Push button Bitmap Region Child into Cercle";
                       skip_line 3;
  		        IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\shuttle.ico");
	 End_Initialize
/* -------------------      SHOW DIALOGUE  --------------------------------- */ 
 
 
    OpenDialog  (UserDialog)  ;

/* Push Bitmap region Child */
   require  GetPush(Bmp2) returning (x); 
	if(  x   Not_Void ) 
         then 
                      setcolortext(hwdisplay: black,red);
                       Display "Is Mouse into Button Bitmap Region CHILD : Bmp2";
           end_if;
  require  GetPush(Bmp3) returning (x); 
	if(  x   Not_Void ) 
         then 
                      setcolortext(hwdisplay: white,black );
                       Display "Is Mouse into Button Bitmap Region CHILD : Bmp3";
          end_if;
  require  GetPush(Bmp4) returning (x); 
	if(  x   Not_Void ) 
         then 
                      setcolortext(hwdisplay: black,green);
                       Display "Is Mouse into Button Bitmap Region CHILD : Bmp4";
           end_if;
  require  GetPush(Bmp5) returning (x); 
	if(  x   Not_Void ) 
         then 
                      setcolortext(hwdisplay: black,blue);
                      Display "Is Mouse into Button Bitmap Region CHILD : Bmp5";
           end_if;

isOnSetCursor( Bmp1) returning (x);  
		 if(  x   Not_Void ) 
         then 
         	DrawFocusRect(Bmp1);   
	  end_if;
isOnSetCursor( Bmp2) returning (x);  
		 if(  x   Not_Void ) 
         then 
         	DrawFocusRect(Bmp2);   
	  end_if;
isOnSetCursor(Bmp3) returning (x);  
		 if(  x   Not_Void ) 
         then 
         	DrawFocusRect(Bmp3);   
	  end_if;
isOnSetCursor( Bmp4) returning (x);  
		 if(  x   Not_Void ) 
         then 
         	DrawFocusRect( Bmp4);   
	  end_if;
isOnSetCursor( Bmp5) returning (x);  
		 if(  x   Not_Void ) 
         then 
         	DrawFocusRect( Bmp5);   
	  end_if;




          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 ;