** **********************************************************************************************************
** PRESENTATION MsgFrame
**
** **********************************************************************************************************
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

INTEGER : Exit_TRANSFRAMMSGWAIT :=0,I;
CHAR  : NbDay:128, NbDayString : 128 ;	
INTEGER : Inverse := 1,Noinverse :=0 ;   
		CHAR  : PostalAddress:512 := " $n $n $n 15 rue des Halles  $n 75001 Paris $n FRANCE 
		$n New Branches Opening Soon :$n .Bordeaux, FRANCE $n .Austin, USA $n .Montreal, CANADA ";
	 
		LONG : Color1 ;
		CHAR :FilePath:255,FileCurrentDir:255, fileMgPlaneteLogo:128, filehandlcur:128 ;
		
GetInputArgument(1:NbDay); 
  Concatene  NbDay , " DAYS",into NbDayString;
	Begin_Transaction : Trans1 Execute Transaction With Exit_TRANSFRAMMSGWAIT != 1
		Begin_Dialog
             BackgroundColor : Color(192,193,218)
 			WinExtendStyle :  :WS_EX_CLIENTEDGE
			WinStyle 	   :  :WS_OVERLAPPED & CenterDialog
			
			1, 1, 800,600, "MS 4  : Presentation  ",UserDialog
       End_Dialog
Begin_Splash
		 BackgroundColor : Color(192,193,218)
			WinExtendStyle :  :WS_EX_CLIENTEDGE
			WinStyle 	   :  :WS_OVERLAPPED & CenterDialog  0,0,800,600 ,"MS4  :  Wait APP ",Splash1
					
			** Frame0 is Shadow/Ombre
			Frame 12,1,753, 593, Frame0 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"	
			
			Frame 10,1,750, 590, Frame1 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"	
			
			Frame 10, 2,750, 50, Wtitle1 Attribut :
			FillColor : 144,136,176
			FrameColor : 250,250,250
			ShadowText : 1,2 Color(0,0,0)
			SetColorText : 185,8,90
			DrawText : Dt_CENTER
			SetFonts :
			30,18,0,0,Fw_EXTRABOLD,0,0,0,"Calibri"
			
			/* Bar des options ----------------------------------------------------------------------*/
			Frame 15,60,155, 438, Frame2 Attribut :
			FillColor :  192,193,218
			FrameColor : 255,255,255
			SetColorText : 166, 69,111
			DrawText : Dt_LEFT
			SetFonts :
			12,8,60,0,Fw_EXTRABOLD,0,0,0,"Arial"
			
			Frame 15,60,155, 32, Wtitle2 Attribut :
			FillColor : 255,255,255 **144,16,176
			FrameColor : 250,250,250
			SetColorText : 185,50,90
			DrawText : Dt_LEFT
			SetFonts :
			12,8,0,0,Fw_NORMAL,1,1,0,"Arial"
			
			PictureGIF 94,62, "#SYSPATHMS4BI+\zPicture\Gif\droite01.gif",Gifms42 ** or constante path or see you : loadPicture ..
	 		/* -Text Demo---------------------------------------------------------------------------------------------------------- */
			
			Frame 170,60,560,435, Frame3 Attribut :
			FillColor : 236,255,191
			FrameColor : 166, 69,111
			SetColorText : 0,0,0
			DrawText : Dt_LEFT
			SetFonts :
			12,8,0,0,Fw_NORMAL,0,0,0,"Arial"
			
			Frame 170,61,560, 32, Wtitle3 Attribut :
			FillColor : 236,215,191
			FrameColor : 166, 69,111
			SetColorText : 255,255,0
			DrawText : Dt_CENTER
			SetFonts :
			21,12,0,0,Fw_EXTRABOLD,0,1,0,"Arial"
			
			PictureBMP 180,110,"#SYSPATHMS4BI+\zPicture\Bmp\mgplanete.bmp",Bmpeu ** or constante path or see you : loadPicture ..
			
			Frame 450,110,260,360, Frame4 Attribut :
			FillColor : 236,215,191
			FrameColor : 166, 69,111
			SetColorText : 0,0,0
			DrawText : Dt_LEFT
			SetFonts :
			12,8,0,0,Fw_NORMAL,0,0,0,"Arial"
			
			Frame 450,110,260,30, Wtitle4 Attribut :
			FillColor : 236,215,143
			FrameColor : 166, 69,111
			SetColorText : 0,0,0
			DrawText : Dt_LEFT
			SetFonts :
			12,8,0,0,Fw_NORMAL,0,0,0,"Arial"
			
	
			 
			PictureGIF 60, 540,"#SYSPATHMS4BI+\zPicture\Gif\GifAnimate\iExplorer.gif",Gifexplorer ** or constante path or see you : loadPicture ..
			
			ButtonText 140 ,540, 180,25, "  www.mgplanete.com ", Buttonwww
			Create :	
			Info " Internet  @  www.mgplanete.com",
			PictureGIF 340, 540,"#SYSPATHMS4BI+\zPicture\Gif\courrier.gif",Gifcourrier ** or constante path or see you : loadPicture ..
			ButtonText 140 ,560, 180,25, "  getms4bi.com ", Buttonwwwgetms4bi	
 		Create :	
			Info " Internet  @  getms4bi.com",	

			ButtonText 370, 540,220,25, " contact@mgplanete.com" ,Buttonemail
			Create : 
			Info " Option Internet @ Email : Contact Mandragore",
		 
	 	
		Frame 50,250,545,195, wtitleSplash Attribut :
		FillColor : 144,136,176
			FrameColor : 250,250,250
			ShadowText : 1,2 Color(0,0,0)
			SetColorText : 185,50,90
		    DrawText : Dt_CENTER
	 	    SetFonts : 38,10,1,0,Fw_NORMAL,0,0,0,"ARIAL"
		
  		
        Frame 240, 360,120,40, NbDayWin Attribut :
		FillColor : 144,136,176
			FrameColor : 250,250,250
			ShadowText : 1,2 Color(0,0,0)
			SetColorText : 185,50,90
		DrawText : Dt_CENTER
		SetFonts : 38,10,1,0,Fw_NORMAL,0,0,0,"ARIAL"
End_Splash

	Begin_Initialize
			SetWinTxt(Wtitle1:"   MS4BI : Ultra light, Simple , Agile && Full Responsive ");
			SetWinTxt(wtitleSplash:" MANDRAGORE PLANETE  ");
 	 		 
			SetWinTxt(Frame4:PostalAddress);
			 
			Color(192,193,218) return(Color1);
			SetColorText(Buttonwww:Blue, Color1); SetColorText(Buttonwwwgetms4bi:Blue, Color1);
			SetColorText(Buttonemail: Blue, Color1);
  	            SetWinTxt(wtitleSplash:"    MS4BI PROFESSIONAL   (S E R V E R)                           TRIAL VERSION   ");
 
        SetWinTxt(NbDayWin:NbDayString );    
    			
	 	End_Initialize
                
		ShowSplash(Splash1: 5000) ;
		 SetStatusDialog(UserDialog:Sw_HIDE);    

		  DestroyDialog(UserDialog);
		Exit_TRANSFRAMMSGWAIT := 1 ;
			 	
	End_Transaction ;