** ****************************************************************************************** *
** EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
**
** EndUser4gl   Ph Bergougnoux : DEMO  ENDUSER 4GL
** *******************************************************************************************
 
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
char : FrEndUserTitle:512 := "le NOUVEAU langage de 4ème génération informatique pour TOUS !!!\\n\\n D  E  C  O  U  V  R  E  Z "+" :\\n QUERY: Interrogation d'une base de Données\\n\\n" + 
"SQL : Interrogation EXPERTE d'une base de donnée\\n\\nTRI ET REPORTING :Trier un fichier Texte ,Imprimer un Reporting\\n\\n INTERNET :"+
" Acces à Explorer\url Outlook \\n\\n WINDOW : Comment construire des applications Windows SIMPLES à programmer et EFFICACES fonctionnellement... ";
char:  UsEndUserTitle:512 :=  "  a NEW language of  4th data-processing generation for ALL!!!  \\n\\n D  I  S  C  O  V  E  R"+"  :  \\n QUERY:  Interrogation of a data base \\n\\n" +
 "SQL   EXPERT  interrogation of a base of data \\n\\n"+
"SORT AND REPORTING:Sort a text file, To print a Reporting \\n\\n \\n\\n INTERNET :  Explorer\url Outlook\\n\\nWINDOW:  How to build Windows  applications SIMPLE to program and EFFECTIVE functionally... ";  
char  :Component:255 := " EndUser4gl :  Bergougnoux Consulting \\n	 Adresse :  14 rue Jean Moulin \\n37550 St Avertin FRANCE\\n
Fax : 00 33 2 47 28 58 19 THANK YOU FOR EVALUATING VERSION EndUser4gl www.enduser4gl.com Email : bergou@club-internet.fr	 ";
char : Copyright:255 := " Copyright (c) 2001 EndUser4gl  : Bergougnoux Consulting ,France Tous droits réservés Ph Bergougnoux.                " ; 

char : Usnota:255 := " Ph Bergougnoux Consulting may not be accused in any way if this programm affects your computer in any negative way. Use at your own risk ! you are a beta site";
char: Frnota:255 :=   " Ph Bergougnoux Consulting ne  peut être accusée de quelque façon si ce programm affecte votre  ordinateur de n'importe quelle manière négative.C'est l'utilisation à  votre propre risque! vous êtes SITE pilote "; 

  Begin_splash
  Backgroundcolor : color(192,193,218)  
  WinExtendstyle :  :WS_EX_DLGMODALFRAME
      Winstyle 	   :   :WS_POPUP   &   CENTERDIALOG   0,0,450,660 ,"EndUser4gl 4 GL : Prject EndUSer4gl ",Splash1    
	 Text : 
	  WinExtendstyle :  :0    
	  Winstyle 	:  :SS_LEFT 
	  10, 10,380,30, " Project EndUser4gl                         " ,ttext1 
	   Announce    10, 30,380,30,    Wtitle1  Attribut :
					   FillColor     :  144,136,176
					   FrameColor     : 250,250,250 
					   ShadowText : 1,2  color(0,0,0)
					   SetColorText  :  185,50,90 
					   DrawText : DT_CENTER
					   SetFonts :
					   24,12,0,0,FW_EXTRABOLD,0,0,0,"Arial"

 	    Announce    10, 60,380,310, ttext2  Attribut :
					   FillColor     : 171,220,195  	
					   FrameColor     : 255,255,100
					   ShadowText : 1,1  color(0,0,0)
					   SetColorText  :  0,145,145 
					   DrawText : DT_CENTER
					   SetFonts :
						   18,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"	
		Announce    10, 375,280,25, ttext3  Attribut :
					   FillColor     : 171,220,195  	
					   FrameColor     : 0,255,100
					   ShadowText : 1,2  color(0,0,0)
	 				   SetColorText  :  0,0,255 
					   DrawText : DT_LEFT
					   SetFonts :
					   20,15,0,0,FW_EXTRABOLD,1,0,0,"Arial"	

 	  OptionGroup  8, 400, 380, 250,"", GroupeOpts2 
 	  Announce    10, 420,360,120, ttext4  Attribut :
				   FillColor     :  144,208,213	
				   FrameColor     : 55,255,255 
				   ShadowText : 1,2  color(255,255,255)
				   SetColorText  :  0,0,0 
				   DrawText : DT_CENTER
				   SetFonts :
					   12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"	
 	
	  Announce    10, 550,360,40, ttext5  Attribut :
				   FillColor     :  140,98,190	
				   FrameColor     : 0,0,0 
			 	   SetColorText  :  0,0,0 
				   DrawText : DT_LEFT
				   SetFonts :
					   14,9,0,0,FW_BOLD,1,0,0,"Arial"	
  		Announce    10, 595,360,50, ttext6  Attribut :
				   FillColor     :  255,0,0	
				   FrameColor     : 0,0,0 
			 	   SetColorText  :  0,0,0 
				   DrawText : DT_LEFT
				   SetFonts :
					   8,7,0,0,FW_BOLD,0,0,0,"Arial"	

  End_splash ;
  Begin_splash
  Backgroundcolor : color(192,193,218)  
  WinExtendstyle :  :WS_EX_DLGMODALFRAME
      Winstyle 	   :   :WS_POPUP     1,1,450,360 ,"EndUser4gl 4 GL : Conception EndUSer4gl  ",Splash2    
 	   Announce    10, 30,200,30,    Wtitle21  Attribut :
					   FillColor     :  144,136,176
					   FrameColor     : 250,250,250 
					   ShadowText : 1,2  color(0,0,0)
					   SetColorText  :  185,50,90 
					   DrawText : DT_CENTER
					   SetFonts :
					   24,12,0,0,FW_EXTRABOLD,0,0,0,"Arial"
	   Announce    10, 80,400,180,    Wtitle22  Attribut :
					   FillColor     :  144,136,176
					   FrameColor     : 250,250,250 
					   ShadowText : 1,2  color(0,0,0)
					   SetColorText  :  185,50,90 
					   DrawText : DT_CENTER
					   SetFonts :
					   24,12,0,0,FW_EXTRABOLD,0,0,0,"Arial"

 End_splash ;
 	 Begin /* init  require is optional*/
	 require SetWinTxt(Wtitle1:"ENDUSER4GL"); require SetWinTxt(Wtitle21:"ENDUSER4GL");
	 require SetWinTxt(ttext3: "Ph. Bergougnoux     ");
 	 require SetWinTxt(ttext4: Component);     require SetWinTxt(ttext5:Copyright); 

 
 require SetWinTxt(ttext2:FrEndUserTitle ); require SetWinTxt(ttext6:Frnota); 
 	 require SetWinTxt(Wtitle22:"Cette démonstration a été entièrement écrite avec le nouveau langage ENDUSER4gl.\\n\\nPh Bergougnoux :\\n Concepteur du langage");
 
		SetColorText(ttext1:blue,white) ;
 		 SetFonts(ttext1:  25, 12, 0, 0,FW_BLACK, 0,0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
               	   CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS, "Times New Roman") ; 
  			ShowSplash (Splash2:  1500)  ; 
			ShowSplash (Splash1:  40000 )  ; ** CPU*x
			 
 	 end_begin ;
 
 SetStatusDialog(Splash2:SW_HIDE);SetStatusDialog(Splash1:SW_HIDE);