** ****************************************************************************************** *
** EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
**
** EndUser4gl   Ph Bergougnoux : DEMO  ENDUSER 4GL
** *******************************************************************************************
 GLOBAL 
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
** ***************************************************************************************************************
** Declare DATA : char,integer,LONG, FLOAT,DOUBLE,const_num,const_string table etc...
** ***************************************************************************************************************
long    : color1 ,color2 ; 
integer : exit_trans1,g_Langue :=0  , x,Ival,iLevel,itemTabCtl,y, ItemID,VT_VERTICAL1 :=27 ,VT_VERTICAL2 :=30,Drap :=FALSE ; 
integer : inverse := 1,noinverse :=0 ;
char    : text1:255,LabelText:255, szMsg:255  ,firstCar:1 , DirectorySysEndUser4gl:255 := "c:\EndUser4gl\4gl\bin\EndUser4gl.exe",
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 : file1:255 := "c:\EndUser4gl\4gl\hlp\instructionsQuery\" ,filePath:255; 
Char :  UsTitle1:50 :=  " 1 End-users    ", UsTitle2 :50 :=  " 2 Users and the EndUser4gl  tool:  ",  UsTitle3 :50 :=  " 3 Data processing specialists:    "; 
tableBtree : OtherPresentPgm
{   "0 - Structure Programm EndUser"
}
 tableBtree : OtherPresentQuery
{   
   	"1 - Standard Query" ,
	"2 - Query Excel" ,
	"3 - Query Excel Batch",
	"4 - Query Access" ,
	"5	Etc...."
}
 tableBtree : OtherPresentSort
{   
    	"6 - sort ascendant" ,
	"7 - sort descendant" ,
	"8 - simple report",
	"9 : etc.." ,
} 
tableBtree : OtherPresentSql
{    "10 - SELECT  clients.contact FROM   comptoir.clients" ,
      "11 - Update ...",
	  "12 -  Insert..." , "13 - Delete...  ", "14 Etc ..."  
} 
tableBtree : OtherPresentWin
{    "14 - Dialog/Transactions/TextBox, text..." ,      
"15 - Api: Rectangel,Announce,RoundRect,Ellip..", "16 - Buttons",  "17 - ListBox",	  "18 - Combobox","19 - Menu",
"20 - Icon",  "21 - Bitmap",  "22 - ListView",  "23 - TreeView",  "24 - Grid", "25 - Display", "26 etc.." ,
} 
 tableBtree : OtherPresentInternet
{  "27 - SendMail ", "28- Internet Explorer" }

 tableBtree : PresentTokens
{   
   	"1 - Structure Compilateur" ,
	"2 - Structure Compilateur EndUserg4gl" ,
	"3 - Depile String" ,"4 - Depile AlphaNum" ,
	"5 - Depile Integer",
	"6 - Depile Long" ,"7 - Depile Float ",
	"8 - Depile Double ","9 - If.cpp","10 -Calcul.cpp ", "11 - Move.cpp", "12 -Sql.cpp",
	"13 - By Explorateur"
}

 End_global 
** *************************************************************
** BEGIN PRG    
** *************************************************************  
 Begin_Main
   EndUser4gl_Sp_Scrn_EndUser4gl(void);
    EndUser4gl_LanguePresent(void); 
    EndUser4gl_Sp_Scrn_presentation(void);
   Eu_PresentationGeneral(void) ;

 end_main
/* *********************************************************************************************************** */
/*                             DISPLAY FLASH WINDOW                                                            */
/* *********************************************************************************************************** */ 
 proc EndUser4gl_Sp_Scrn_EndUser4gl(void)
begin_procedure

Begin_splash
     WinExtendstyle :  :WS_EX_DLGMODALFRAME
 	  	  Winstyle 	 :  :WS_OVERLAPPED   &   CENTERDIALOG
	 1,1, 720, 320, " EndUser 4 GL :  PictureJpg   ",UserDialog

 PictureJpg   1, 1, "c:\EndUser4gl\4gl\hlp\PgmJpg\enduser4gl.jpg",JpgEndUser1
   
 End_splash ;   
 
      ShowSplash (UserDialog:  4500)  ; 
          
  SetStatusDialog(UserDialog:SW_HIDE); 
end_procedure 
  
********************************************************************************************
** PRESENTATION  GENERAL
**  
** ********************************************************************************************

**********************************************************************************************************
** PRESENTATION  GENERAL
**  
** **********************************************************************************************************

proc  Eu_PresentationGeneral(void)
begin_procedure
Local
  integer : exit_transPresentGene :=0,IsTab1,iLeval,line,Icol,i,itemcount,LocalItemId,x,y;
  char : LabelText:128,firstCar:1 ,fileName:50,FileRun:255,LocalFilePath:255,szMsg:255;
  char : FrSztextEU:512  :=  "Tous les programmes ENDUSER4GL  sont développés au sein d'un fichier TEXTE.\\n L'extension de ces fichiers  est .EU4glExe et non pas l'extension conventionnelle soit  .txt .\\n\\n Donc avec Explorateur ," + " il suffit d'utiliser la commande de création\\n d'un fichier texte, d'insérer le code de programmation souhaité et de sauvegarder le fichier sous un nom quelconque .\\n N'oubliez surtout pas  l'extension du fichier .Eu4glExe.\\n";
  char : FrSztextEU2:512 := "Puis, toujours avec Explorateur, Cliquez sur le fichier pour éxécuter le programme EndUser4gl.\\n\\nExemple :  créer un fichier Example.Eu4glExe qui permet d'afficher le message suivant :";
  char : FrSztextEU3:128 := "\\n\\n\\t\\t\\t \\"Welcome to EndUser4gl\\"   ";  
  char : FrSztextEU4:1024   ;  
char:  EnSztextEU:512  :=  " All programs ENDUSER4GL are  developed within a textual file.  \\n The extension of these  files is EU4glExe and not the conventional extension is txt.  \\n\\n  Therefore with Explorer, " + " it is enough to use the ordering of  creation \\n of a textual file, to insert the code of programming  wished and to safeguard the file under an unspecified name.  \\n  Do not forget especially the extension of the Eu4glExe file.  \\n";
char:  EnSztextEU2:512 :=  " Then, always with Explorer, Click on the  file for éxécuter the EndUser4gl program.  \\n\\nExemple   to create a  Example.Eu4glExe file which makes it possible to post the following  message: ";  
char:  EnSztextEU3:128 :=  " \\n\\n\\t\\t\\t \\"Welcome to EndUser4gl \\"   ";  
char:  EnSztextEU4:1024;  
constant_num :  MAXLINEGRID  100,MAXCOL 6,HCol 20,HLINE 25 ;
long :  table:l_sheet occurs 10,color1,color2,color3 ,color4,color5;
end_Local   
** **************************************************************************************
** BEGIN T R A N S  A  C T I O N
** **************************************************************************************
 begin_transaction : Trans1     Execute   Transaction with  exit_transPresentGene   !=  1    
 begin_dialog
 **Backgroundcolor :  color (97,220,195)  **color (126,164,180)  
BackgroundBmp :   "c:\EndUser4gl\4gl\hlp\PgmBmp\presentEUfond.bmp"
  WinExtendstyle :  :WS_EX_DLGMODALFRAME & :WS_EX_WINDOWEDGE
 	  	  Winstyle 	 :  :WS_OVERLAPPED & :WS_CAPTION &    :WS_SYSMENU  & :WS_VSCROLL   & :WS_HSCROLL 
				  
				&   FULLDIALOG
  1, 1, 800,600, "EndUser4gl 4 GL : Presentation General  ",UserDialog
** PictureJpg   1, 1, "c:\EndUser4gl\presenteufond1.jpg",JpgEndUser11        
 PushIcon 14, 80, 32,32,    ICON_EU_NOTEPAD ,   BoutonNotePad      Create :  Info " Option  Notepad @ Afficher/Display Pgm Source "
 
 **Rectangle    13,122,166,   33, BkColor90  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
 
 
**ButtonIconDrawLabel 10, 120, 165,32,  "c:\EndUser4gl\4gl\hlp\pgmicon\EndUser4gl.ico", BoutonSelection
**  Create :text "Selection EndUser4gl"  Info " Option @ Select Applicaton EndUser4gl" ,Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
**  Rectangle    13,162,93,   33, BkColor9012  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
  PictureGif   2, 116, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\SelectionEU.gif",GifSelection
 ButtonRegionChild 2,116, 195,  25 , BoutonSelection
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option @ Selection EndUser4gl programm"  

** ButtonIconDrawLabel 14, 160, 90,32,  "c:\EndUser4gl\4gl\hlp\pgmicon\table.ico", BoutonQuery   Create :text "Query" 
** Info " Option Query @  Interrogation Data Base" ,Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"

  PictureGif   2, 159, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\QueryEU.gif",Gifquery
ButtonRegionChild 2,159, 165,  25 , BoutonQuery
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option Query @  Interrogation Data Base"  


** Rectangle    13,202,93,   33, BkColor900  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
** ButtonIconDrawLabel 14, 200, 90,32,    "c:\EndUser4gl\4gl\hlp\pgmicon\sql.ico" , BoutonSql   Create :  text "Sql   "  
 **	Info " Option Sql @ Base de données \\n Data Base Management",Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
  	PictureGif   2, 200, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\SqlEU.gif",GifSql
	ButtonRegionChild 2,200, 165,  25 , BoutonSql
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  Info " Option Sql @ Base de données \\n Data Base Management"

** Rectangle    13,242,93,   33, BkColor901  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
 **ButtonBmpDrawLabel 14, 240, 90,32,    "c:\EndUser4gl\4gl\hlp\pgmbmp\tria.bmp" , BoutonSort   Create :  text "sort/Tri "  
 **	Info " Option  @ Pgm File :  Sort/Tri",Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
    PictureGif   2, 240, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\SortEU.gif",GifSort
ButtonRegionChild 2,240, 165,  25 , BoutonSort
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  Info " Option Sql @ Base de données \\n Data Base Management"

  ** Rectangle    13,282,93,   33, BkColor902  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
** ButtonIconDrawLabel 14, 280, 90,32, "c:\EndUser4gl\4gl\hlp\pgmicon\report.ico",  BoutonReport   Create : text "Reporting " 
  **Info " Option  @ Pgm File : Report",Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
  **  Rectangle    13,322,93,   33, BkColor903  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
 	PictureGif   2, 280, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\ReportEU.gif",GifReport
	ButtonRegionChild 2,280, 165,  20 , BoutonReport
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  Info " Option  @ Pgm File : Report" 

** ButtonIconDrawLabel 14, 320, 90,32,   "c:\EndUser4gl\4gl\hlp\pgmicon\window.ico" , BoutonWindow   Create : text "Window"
**  Info " Option  @ Pgm File : Window" , Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
** Rectangle    13,362,93,   33, BkColor904  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
	PictureGif   2, 320, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\WindowsEU.gif",GifWindow
	ButtonRegionChild 2,320, 165,  20 , BoutonWindow
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	    Info " Option  @ Pgm File : Window" 

 **  ButtonIconDrawLabel 14, 360, 90,32,   "c:\EndUser4gl\4gl\hlp\pgmicon\file.ico" , BoutonFile   Create : text "File"
 ** Info " Option File  @  Gestion de Fichier \\n File Management" , Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 **     Rectangle    13,402,93,   33, BkColor905  Attribut :   	FillColor     :   0,0,0   		FrameColor     : 255,255,255  
	PictureGif   2, 360, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\FileEU.gif",GifFile
	ButtonRegionChild 2,360, 165,  20 , BoutonFile
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	    Info " Option File  @  Gestion de Fichier \\n File Management" 

**   ButtonIconDrawLabel 14, 400, 90,32,   "c:\EndUser4gl\4gl\hlp\pgmicon\lamp2.ico" , BoutonInst   Create : text "Instructions"
**  Info " Option Instructions  @  Mot clés \\n key word" , Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"

	PictureGif   2, 400, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\InstructionsEU.gif",GifInstruction
	ButtonRegionChild 2,400, 165,  20 , BoutonInst
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	    Info " Option Instructions  @  Mot clés \\n key word"

	PictureGif   2, 440, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\ExcelEU.gif",GifExcel 
	ButtonRegionChild 2,440, 165,  20 , BoutonExcel
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	    Info " Option Excel  @  Connection"


RoundAnnounce    1,480, 135, 45, Wtitle4  Attribut :
 				   RoundDimension : 20,20
				  FillColor     :  255,250,110   FrameColor     : 181,24,246
  				ShadowText : 1,1  color(255,255,255)   SetColorText  :  0,0,0
					  DrawText : DT_CENTER
					 SetFonts :		   12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"
  ButtonRegionChild 1,480, 135,  45 , ButtonTabCtl4   
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option @ More information Query     "  
 Announce    1,530, 135, 45, OtherQuery  Attribut :
 				  FillColor     :  120, 50,180   FrameColor     : 181,24,246
  				**ShadowText : 1,1  color(255,255,255)  
				 SetColorText  : 255,255,255
					  DrawText : DT_CENTER
					 SetFonts :	  12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"
  ButtonRegionChild 1,530, 135,  45 , ButtonOtherQuery
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option @ Autre Presentation Query     "  
 PictureGif   60, 640, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\offreEU.gif",Gifoffre
*********************************************************************
** MENU :** Création des ITems    
** ******************************************************************

   Announce    50,50,640,   25, MENU1  Attribut :
	 			  FillColor     :   101,28,246   FrameColor     :  101,28,246 
				SetColorText  :  255,255,255	  DrawText : DT_CENTER
				  SetFonts :
				  14,9,0,0,FW_HEAVY,1,1,0,"Arial"
 
				  	
 Rectangle    50,74,200,   30, MENU2  Attribut :
	 			  FillColor     :   255,128,124  FrameColor     :  101,28,246   
 Rectangle    209,74,210,   30, MENU3  Attribut :
	 			  FillColor     :   255,128,124  FrameColor     :  101,28,246   
 Rectangle    368,74,322,   30, MENU4  Attribut :
	 			  FillColor     :   255,128,124  FrameColor     :  101,28,246   

Elliptical 5,5, 68,38, CercleExit  Attribut    :
	 			 FillColor  :  0,145,145 FrameColor     : 185,50,90
  	 	 		  SetColorText  :  255,255,255   DrawText : DT_CENTER
				  SetFonts :  14,9,0,0,FW_EXTRABOLD,0,1,0,"Arial"	
 PictureGif   76, 5, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\byebye.gif",GifExit

 ButtonRegionChild  5,5, 100,38, ButtonIconCancel
  create :	info "Option @ Exit.."  ,use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" 

  PictureGif   120, 2, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\CopyRightEnduser.gif",GifCopyRight

 ButtonText   60, 80,140, 20, " Level 1: EndUser4gl" ,ButtonTabCtl1
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 				info " Option 1 @ More information Level 1 :  EndUser4gl/Utilisateur final"  
 ButtonText   215, 80,110, 20, " Level 2:  User4gl" ,ButtonTabCtl2
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
			 info " Option 2 @ More information Level 2 :   User4gl/Utilisateur 4gl"  
 ButtonText   405, 80,270, 20, " Level 3:  Informaticiens" ,ButtonTabCtl3
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 				 info " Option 3 @ More information Level 3 :  Informaticiens/Specialist"  
 		 	
   
** ****************************************************************************************
** Bergou Consulting
**  ****************************************************************************************
 Rectangle    429, 114,160,    72, Announce91  Attribut :
				   FillColor     : 255,0,0	   FrameColor     : 255,0,0
  
    Announce    425, 110,160,    70, Announce11  Attribut :
				   FillColor     :  255,0,0   FrameColor     : 255,255,255
 	 				   ShadowText : 1,1  color(0,0,0)
				   SetColorText  : 255,255,255
				   DrawText : DT_CENTER
				   SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"	
	ButtonText  430,150,150,20, "www.enduser4gl.com" ,buttonWWW
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"

** Announce9 is Shadow/Ombre
Rectangle    582, 112,250,    72, Announce9  Attribut :
				   FillColor     : 144,136,176   FrameColor     : 144,136,176
 
    Announce    580,110,250,    70, Announce1  Attribut :
				   FillColor     :  192,193,218   FrameColor     : 255,255,255
 	 				   ShadowText : 1,1  color(0,0,0)
				   SetColorText  : 255,255,255
				   DrawText : DT_CENTER
				   SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"	
 ButtonText  605,150,190,20, "bergou@club-internet.fr" ,buttonEmail
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 
 ButtonText   210, 110,205,15, "EndUser4gl Internet Order" ,buttonOrder1
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   210, 130,205,15, "EndUser4gl Write Order" ,buttonOrder2
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   210, 150,205,15, "EndUser4gl SPONSORS" ,buttonSponsor
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   210, 170,205,15, "EndUser4gl RESEARCH" ,buttonResearch
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"

    ** ************************************************************************************
 begin_dialogChild  :UserDialog
  Backgroundcolor :  color (126,164,180)  
    WinExtendstyle : :WS_EX_CLIENTEDGE ** :WS_EX_DLGMODALFRAME **:WS_EX_TRANSPARENT ** 
 Winstyle 		 :  :WS_DLGFRAME  
   200,200,640,   420, "EndUser4gl 4 GL : TabCtl1 ",UserDialogTabCtl1
 
     Announce    0,0,640,   420, Announce12  Attribut :
				   FillColor     :   120, 50,180 **129,0,247
				   FrameColor     :  255,255,255
   					ShadowText : 1,1  color(0,0,0)
	 			   SetColorText  : 255,255,255	   DrawText : DT_CENTER
				   SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial"		
 
  PictureGif   50,210, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\cinema.gif",Gifcinema
 ButtonRegionChild  50,210, 40,38, BoutonAvi
  Create : Info " Avi @ Film/Avi File    "  ,use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" 


  ButtonIconDrawLabel width  Icon: 32 ,height Icon : 32,100,210, 40,40, "c:\EndUser4gl\4gl\hlp\pgmicon\notepad.ico" , BoutonNotePadAvi   Create : Info " Edite @ Exemple/Example      "
  ButtonIconDrawLabel width  Icon: 32 ,height Icon : 32,150, 210, 40,40,  "c:\EndUser4gl\4gl\hlp\pgmicon\explorer1.ico" , BoutonAviExplorer   
		Create : Info " Option Explorer @ Run Example/Execute Fichier Exemple   "
 ButtonText  200,210, 140,15, "Query Standard" ,buttonQuerySt
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 
 ButtonText   343,210,140,15, "Query Excel" ,buttonQryExcel
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   487, 210,140,15, "Query Access" ,buttonQryAccess
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
  ButtonText  200,228,140,15, "Sort/ Tri Croissant" ,buttonSortAsc
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 
 ButtonText   343,228,140,15, "Sort/Tri Décrois." ,buttonSortDesc
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   487, 228,140 ,15, "Report" ,buttonReport

 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
  ButtonText  200,246,140,15, "Sql Standard" ,buttonSqlST
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 
 ButtonText   343,246,140,15, "Sql Select" ,buttonSqlSel
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   487, 246,140 ,15, "Sql Application" ,buttonSqlAppl 
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText  200,264,140,15, "Avi" ,buttonAvi
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 
 ButtonText   343,264,140,15, "Dialog" ,buttonDailog
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   487, 264,140 ,15, "Connect to Excel" ,buttonccc 
			create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText  200,282,140,15, "Navigate Internet" ,buttonNagivate
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
 
 ButtonText   343,282,140,15, "Load  Html" ,buttonHtml
 	 	 		create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"
ButtonText   487, 282,140 ,15, "SendEmail" ,buttonEmail2
create :    use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"

   end_dialogChild
 begin_dialogChild  :UserDialog
  Backgroundcolor :  color (126,164,180)  

 WinExtendstyle :       :WS_EX_CLIENTEDGE 
   Winstyle 		 :  :WS_DLGFRAME  

160,200,630,   405, "EndUser4gl 4 GL : TabCtl2 ",UserDialogTabCtl2
 
 TreeView :   :TVS_HASLINES & :TVS_EDITLABELS 10,10, 280, 350, TreeView1 
	create : with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\help1.ico"   
	 TextBox    : 
	 WinExtendstyle :  :WS_EX_CLIENTEDGE  	 Winstyle :  :ES_MULTILINE    & :ES_LEFT  & :WS_VSCROLL  & :WS_HSCROLL
       	 290,  10, 310, 350,  DataOther
 
ButtonText   10,375, 380, 25, "" ,ButtonPathCtl2
Elliptical 400,360, 228,28, CercleRunapplExplorerCtl2  Attribut    :
	 			 FillColor  :  180,145,145	 FrameColor     : 185,50,90
  	 	 		  SetColorText  :  255,255,255  DrawText : DT_CENTER
				  SetFonts :  12,9,0,0,FW_EXTRABOLD,0,1,0,"Arial"	
 ButtonRegionChild 400,360, 228,28 , BoutonExplorerCtl2 
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option @ Run Application EndUser4gl by Explorer"  

   end_dialogChild
 begin_dialogchild : UserDialog 
  Backgroundcolor :  color (126,164,180)  

   WinExtendstyle :       :WS_EX_CLIENTEDGE 
   Winstyle 		 :  :WS_DLGFRAME  
 
 160,200,630,   405, "EndUser4gl 4 GL : TabCtl3 ",UserDialogTabCtl3
   Begin_TabControl  TabCtl12: :TCS_HOTTRACK width  Icon: 32 ,height Icon : 32 , 
			  1,1, 600,390  
     Begin_TabControlItem 1 : "Tokens" with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\help1.ico"
     		 TextBox    : 
	 WinExtendstyle :  :WS_EX_CLIENTEDGE  
	 Winstyle 	:  :ES_MULTILINE    & :ES_LEFT  & :WS_VSCROLL  & :WS_HSCROLL
       	 1, 40, 590, 340,  DataTokens
    	   End_TabControlItem 
       Begin_TabControlItem 2 : "rules/Règles" with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\help1.ico"
     		 TextBox    : 
	 WinExtendstyle :  :WS_EX_CLIENTEDGE  
	 Winstyle 	:  :ES_MULTILINE    & :ES_LEFT  & :WS_VSCROLL  & :WS_HSCROLL
       	 1, 40, 590, 340,  DataRules
    	   End_TabControlItem 
        Begin_TabControlItem 3 : "Code Execution" with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\help1.ico"
     		 TextBox    : 
	 WinExtendstyle :  :WS_EX_CLIENTEDGE  
	 Winstyle 	:  :ES_MULTILINE    & :ES_LEFT  & :WS_VSCROLL  & :WS_HSCROLL
       	 1, 40, 590, 340,  DataCodeExe
    	   End_TabControlItem 
      Begin_TabControlItem 4 : "KeyWord" with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\helpexpress.ico"
     		 TextBox    : 
	 WinExtendstyle :  :WS_EX_CLIENTEDGE  
	 Winstyle 	:  :ES_MULTILINE    & :ES_LEFT  & :WS_VSCROLL  & :WS_HSCROLL
       	 1, 40, 590, 340,  DataKeyWord
    	   End_TabControlItem 
   Begin_TabControlItem 5 : "Exemples" with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\enduser4gl.ico"
     	TreeView :   :TVS_HASLINES & :TVS_EDITLABELS 10,40, 180, 350, TreeView2 
	create : with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\help1.ico"   
	 TextBox    : 
	 WinExtendstyle :  :WS_EX_CLIENTEDGE  
	 Winstyle 	:  :ES_MULTILINE    & :ES_LEFT  & :WS_VSCROLL  & :WS_HSCROLL
       	 190,  40, 410, 350,  DataExample

	  
    	   End_TabControlItem 
        End_TabControl

   end_dialogchild 
   end_dialog 
 
 
** *******************************************************************************
** GRID
** *******************************************************************************

begin_dialog 
 Backgroundcolor :  color (126,164,180)  

   WinExtendstyle :     :WS_EX_CLIENTEDGE 
   Winstyle 	  :		:WS_DLGFRAME  
   
  160,170,670,450,   " EndUser Grid : End User4gl"   ,UserDialogGD
 Begin_TabControl  TabCtl1 : :TCS_HOTTRACK   1,1, 650,350
    Begin_TabControlItem 1 : "Grid EndUser4gl" with pictureicon :32516 
    grid      2,30, 650,320, Grid1  Property : 
     HeightColumn HCOL HeightLine HLINE, 
	 Max Column MAXCOL, Max lines MAXLINEGRID
    	create :   
		    column 1  : "Number" ,Property :PushButton,size 50 
    		column 2  : "Choose" ,Property : size 50, pictureicon : "c:\EndUser4gl\4gl\hlp\pgmicon\10.ico"                                                                                                          width  Icon: 32 ,height Icon : 16 
  			column 3  : "Run    ",Property : Checkbox,size 60  
 			column 4  : "Notepad   ",Property : Check,size 60  
            column 5  : "Pgm Enduser4gl" ,Property : char,size 200,LEFT
 			column 6  : " path" ,Property : char,size 255,LEFT
   
 	       End_TabControlItem


  End_TabControl
   Announce    155,1,610,  20, ApplicationGD  Attribut :
				   FillColor     :   101,28,246   	   FrameColor     :  98,176,224  
				   ShadowText : 1,1  color(0,0,0)	   SetColorText  :  255,255,255
				   DrawText : DT_LEFT		   SetFonts :  13,8,0,0,FW_NORMAL,0,0,0,"Arial"	
 Elliptical 10,360,30,30, CercleCloseGD Attribut    :
	 			 FillColor  :  171,220,102	 FrameColor     : 185,50,90
 	  	 		  SetColorText  :  166, 69,111	  DrawText : DT_CENTER
				  SetFonts :	  12,8,0,0,FW_EXTRABOLD,1,0,0,"Arial"	
	ButtonRegionChild  10,360,30,30, ButtonCLoseGD  
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option       @  Close/Fermer Grid  "  

   Elliptical 60,360, 228,28, CercleRunapplGD  Attribut    :
	 			 FillColor  :  0,145,145	 FrameColor     : 185,50,90
  	 	 		  SetColorText  :  255,255,255  DrawText : DT_CENTER
				  SetFonts :  12,9,0,0,FW_EXTRABOLD,0,1,0,"Arial"	
  ButtonRegionChild  60,360, 228,28 , ButtonRunApplGD   
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option @ Run Application EndUser4gl"  
 Elliptical 310,360, 228,28, CercleRunapplExplorerGD  Attribut    :
	 			 FillColor  :  180,145,145	 FrameColor     : 185,50,90
  	 	 		  SetColorText  :  255,255,255  DrawText : DT_CENTER
				  SetFonts :  12,9,0,0,FW_EXTRABOLD,0,1,0,"Arial"	
 ButtonRegionChild 310,360, 228,28 , BoutonExplorerGD 
     	create :        use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,
		 	  info " Option @ Run Application EndUser4gl by Explorer"  
 
	
 end_dialog 
** *********************************************************************
** INITIALIZE
** *********************************************************************
   Begin_Initialize 
 	  IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\19.ico");
 SetFontsGroup( 11, 7, 0, 0,FW_NORMAL,0,1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
                			  CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS,  "Arial":
buttonEmail,buttonwww );
  SetFontsGroup( 12, 9, 0, 0,FW_NORMAL,0,1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
                			  CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS,  "Arial":
ButtonPathCtl2,buttonQuerySt,buttonQryExcel,buttonQryAccess, buttonSortAsc,buttonSortDesc,buttonReport, buttonSqlST, buttonSqlSel, buttonSqlAppl,  buttonAvi ,buttonDailog
  buttonccc,  buttonNagivate, buttonHtml ,buttonEmail2);
color (192,193,218) returning(color1); color(126,164,180) returning(color2);
color (101,28,246)  returning(color3); color (255,128,124) returning(color4);
  
 SetColorText(ButtonPathCtl2:White,color1);
SetColorText(buttonEmail:blue,color1  );SetColorText(buttonWWW:blue,red  );
color (126,164,180)  returning(color5);
  	 	 		
SetColorText(buttonQuerySt:White,color1); 
SetColorText(buttonQryExcel:Black,color1);SetColorText(buttonQryAccess:yellow,color1);
SetColorText(buttonSortAsc:blue,color1);SetColorText(buttonSortDesc:red,color1);
SetColorText(buttonReport:color3,color1);
SetColorText(buttonSqlST:red,color1);  SetColorText(buttonSqlSel:green,color1);  SetColorText(buttonSqlAppl:White,color1);  SetColorText(buttonAvi :black,color1);SetColorText(buttonDailog:yellow,color1);  SetColorText(buttonccc:color2,color1);  SetColorText(buttonNagivate:brown,color1); SetColorText(buttonHtml:color3,color1);  SetColorText(buttonEmail2:red,color1); 
 SetWinTxt(menu1:"Help Info EndUserg4gl");
  SetFontsGroup(  11, 6, 0, 0,FW_BOLD,0,1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
             			  CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS,"Arial":
						  ButtonTabCtl1,ButtonTabCtl2,ButtonTabCtl3) ;  

 
SetWinTxt(Wtitle4:"Help Query Express "); 
SetWinTxt(CercleExit:"Exit");  
SetWinTxt(CercleRunapplGD:"Run Programm File");
SetWinTxt(CercleRunapplExplorerGD:"Run Programm File by Explorer");
SetWinTxt(CercleRunapplExplorerCtl2:"Run Programm File by Explorer");
SetWinTxt(CercleCloseGD:"X");

SetColorText(ButtonTabCtl1:color3,color4) ;SetColorText(ButtonTabCtl2:color3,color4) ;SetColorText(ButtonTabCtl3:color3,color4) ;
SetWinTxt(Announce11:"EndUser4gl  ");
SetWinTxt(Announce1:" Bergougnoux Consulting\\n14 Rue Jean Moulin \\n37550 St Avertin  FRANCE " );
 SetColorText(BoutonSort:red,brown);SetColorText(BoutonReport:yellow,red);
  SetColorText(BoutonQuery:green,orange);SetColorText(BoutonWindow:pink,white);
   SetColorText(BoutonSql:brown,cyan); SetColorText(BoutonFile:yellow,gray);SetColorText(BoutonInst:blue,green);
SetColorText(BoutonSelection:red,yellow);
if( g_Langue = 1) ** 1 French
then 
	SetWinTxt(ButtonTabCtl3:" Level 3 :Informaticiens");
	StringConcat FrSztextEU,"\\n",FrSztextEU2,"\\t",FrSztextEU3 to FrSztextEU4;
 	SetWinTxt(Announce12:FrSztextEU4);
		SetWinTxt( OtherQuery:"Autre Presentation\\n Query");
else 
	SetWinTxt(ButtonTabCtl3:" Level 3 :Data processing specialists ");
 	StringConcat EnSztextEU,"\\n",EnSztextEU2"\\t",EnSztextEU3 to EnSztextEU4;
 	SetWinTxt(Announce12:EnSztextEU4);
			SetWinTxt( OtherQuery:"Other Query \\n Presentation ");

end_if;

  IsTab1 :=1; ** Active 1 tabCtl
    	** Save Color 
	 GetColorText(ButtonTabCtl1:l_sheet[1],l_sheet[2]);
 
SetFontsGroup(  12, 8, 0, 0,FW_BOLD,1,1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
   CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS,  "CG times":
   buttonOrder1,buttonOrder2,buttonSponsor,buttonResearch,DataOther) ; 
 SetFontsGroup (  10, 8, 0, 0,FW_EXTRABOLD,0,0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
   CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS,  "CG times": Datatokens,
   Datarules,Datacodeexe,datakeyword ,dataexample); 

 ** ******************************************
**   Init first TreeView    :TV            **
** ******************************************
 AddItemTV(TreeView1:1,"a fews Examples/Quelques Exemples........."); 
 AddItemTV(TreeView1:2," Structure Program EndUser4gl  :");
 				AddItemTV(TreeView1:3,LoadBtree(OtherPresentPgm)); 
 AddItemTV(TreeView1:2," Query Dialog  :");
 				AddItemTV(TreeView1:3,LoadBtree(OtherPresentQuery)); 
        		AddItemTV(TreeView1:2," Demonstration Sort with EndUser4gl  :");
	 			AddItemTV(TreeView1:3,LoadBtree(OtherPresentSort)); 
       			AddItemTV(TreeView1:2," Demonstration Sql with EndUser4gl  :");
	 		 	AddItemTV(TreeView1:3,LoadBtree(OtherPresentSql)); 
	 			AddItemTV(TreeView1:2," Demonstration Windows with EndUser4gl  :");
	 			AddItemTV(TreeView1:3,LoadBtree(OtherPresentWin));
	 AddItemTV(TreeView1:2," Demonstration Internet with EndUser4gl  :");
	 	AddItemTV(TreeView1:3,LoadBtree(OtherPresentInternet)); 

	 	AddItemTV(TreeView1:2," To morrow :Demonstration Html with EndUser4gl  :");
 
** ******************************************
**   Init second TreeView    :TV            **
** ******************************************
 AddItemTV(TreeView2:1,"a fews Examples/Quelques Exemples........."); 
 AddItemTV(TreeView2:2,LoadBtree(PresentTokens)); 
** *************************
** LEVEL 3 :Specialist
** *************************
	  LocalfilePath := "c:\Enduser4gl\4gl\bin\tokenRules\enduserTokens.txt";
				SetWinTxt(Datatokens:  LoadFileTxt(LocalfilePath));
		LocalfilePath := "c:\Enduser4gl\4gl\bin\tokenRules\enduserrules.txt";
				SetWinTxt(Datarules:  LoadFileTxt(LocalfilePath));
		LocalfilePath := "c:\Enduser4gl\4gl\bin\tokenRules\enduserCodeexe.txt";
				SetWinTxt(Datacodeexe:  LoadFileTxt(LocalfilePath));
			LocalfilePath := "c:\Enduser4gl\4gl\bin\tokenRules\enduserKeyWord.txt";
				SetWinTxt(DataKeyWord:  LoadFileTxt(LocalfilePath));
	 
	      end_Initialize 
** *********************************************************************
** END INITIALIZE
** *********************************************************************
   SetColorText(ButtonTabCtl1:color3,color4) ;SetColorText(ButtonTabCtl2:color3,color4) ;SetColorText(ButtonTabCtl3:color3,color4) ;
 SwapColor(buttonwww:red,yellow,red,blue );
 
  SwapColor(buttonOrder1:blue,red,blue,green);  SwapColor(buttonOrder2:blue,green,blue,yellow );  
 SwapColor(buttonSponsor:blue,orange,blue,white );SwapColor(buttonResearch:blue,red,blue,cyan);
** *********************************************************************
** OPENDIALOG
** *********************************************************************
case_of IsTab1  
** **************
** Level 1
** **************
when 1 : SetColorText(ButtonTabCtl1:white,color4) ;  
 	SetStatusDialog(UserDialogTabCtl2:SW_HIDE);
	SetStatusDialog(UserDialogTabCtl3:SW_HIDE);
		SetStatusDialog(UserDialogGD:SW_HIDE);
		 OpenDialog(UserDialog,UserDialogTabCtl1);
		end_when;
** **************
** Level 2
** **************
when 2 : SetColorText(ButtonTabCtl2:white,color4) ; 
		SetColorText(ButtonTabCtl1:color3,color4) ; 
 		SetStatusDialog(UserDialogTabCtl1:SW_HIDE);
 	    	SetStatusDialog(UserDialogTabCtl3:SW_HIDE); 
				SetStatusDialog(UserDialogGD:SW_HIDE);
 			do(4)SwapColor(ButtonPathCtl2:color2,red,color2,white);end_do;
		 OpenDialog(UserDialog,UserDialogTabCtl2  );
	 	 end_when;
** **************
** Level 3
** **************
 when 3 : 	SetColorText(ButtonTabCtl3:white,color4) ;   SetColorText(ButtonTabCtl1:color3,color4) ;
 		SetStatusDialog(UserDialogTabCtl1:SW_HIDE);   SetStatusDialog(UserDialogTabCtl2:SW_HIDE);
	   	SetStatusDialog(UserDialogGD:SW_HIDE);
 		 OpenDialog(UserDialog,UserDialogTabCtl3  );
		 InputData();
	 end_when;
** **************
** Grid
** **************
when 4 :  
 			SetColorText(ButtonTabCtl2:white,color4) ; 
 			SetColorText(ButtonTabCtl1:color3,color4) ;  
  			OpenDialog(UserDialog,UserDialogGD);
 end_when;
end_case;
 ** ************************************************************************************ 
** If Click on Dialog : Message Windows
** ************************************************************************************ 
	
 Begin_Message_Dialog(UserDialog)::OnClickDialog(void) 
 
   	  Begin   /* Exit Transaction */
		require  GetPush(ButtonIconCancel ) returning (x);  
         	if(  x   Not_Void ) 
         	then DestroyAnimateGif(GifExit, Gifcinema,GifCopyRight);
	 			exit_pgm();
	     		end_if;
 	
 End_begin ;
  require GetPush(BoutonNotePad)
  returning (x); 
	 if(  x   Not_Void ) 
          then SetHourGlassCursor();
 			Clear LocalfilePath; LocalfilePath := "c:\EndUser4gl\presentgeneralEndUser4gl.Eu4glExe"; 
  					Load_File_NotePad(LocalfilePath); 
 				Return_Begin_transaction(Trans1) ; 	
		end_if;
   	require GetPush(buttonSponsor ) returning (x); 
	 if(  x   Not_Void ) 
          then SetHourGlassCursor();
		if(g_Langue  =1)
		then
		 NavigateInternet("c:\EndUser4gl\4gl\doc\FrEndUser4glMarketing.htm");Return_Begin_transaction(Trans1) ;
		else
 			 NavigateInternet("c:\EndUser4gl\4gl\doc\EnEndUser4glMarketing.htm");Return_Begin_transaction(Trans1) ;
			end_if;
			Return_Begin_transaction(Trans1) ; 	
         end_if;
   Begin /*   Click on  EndUser4gl WWW  */
 	 require GetPush(buttonWWW) returning (x); 
	 if(  x   Not_Void ) 
          then SetHourGlassCursor();
		NavigateInternet("www.enduser4gl.com");		Return_Begin_transaction(Trans1) ; 	
         end_if;

   End_begin ;
  Begin /*   Click on  EndUser4gl Email  */
 		 require GetPush(buttonEmail) returning (x); 
	 if(  x   Not_Void ) 
          then SetHourGlassCursor();
		 SendMail(UserDialog: "bergou@club-internet.fr",
				"Objet: Info","bergou@club-internet.fr	Message to Ph Bergougnoux    :  ");
		Return_Begin_transaction(Trans1) ; 	
         end_if;

   End_begin ;
 
require GetPush(ButtonTabCtl1 ) returning (x); 
 if(  x   Not_Void ) 
 then   	refreshWin(UserDialogTabCtl1);		IsTab1 :=1;  
 	Return_Begin_transaction(Trans1) ; 	
 end_if;
require GetPush(ButtonTabCtl2 ) returning (x); 
 if(  x   Not_Void )  
    then    refreshWin( UserDialogTabCtl2);	IsTab1 :=2;
	  		Return_Begin_transaction(Trans1) ; 	
    end_if;

require GetPush(ButtonTabCtl3 ) returning (x); 
 if(  x   Not_Void ) 
    then    	 IsTab1 :=3;
	 OpenDialog(UserDialog,UserDialogTabCtl3  );
	 	SetActiveWinItemTC(TabCtl12: 3);**  rules
		LocalfilePath := "c:\Enduser4gl\4gl\bin\tokenRules\enduserrules.txt";
				SetWinTxt(Datarules:  LoadFileTxt(LocalfilePath));
 	 	Return_Begin_transaction(Trans1) ; 	
    end_if;
require GetPush(ButtonOtherQuery)returning (x); 
	 if(  x   Not_Void ) 
      then  	
			Clear LocalfilePath,szMsg; SetHourGlassCursor(); 
		LocalfilePath   := "c:\EndUser4GL\DemoQuery.EU4glExe" ;
		   	 	szMsg  := "Execute DemoQuery.Eu4glExe";
				 		Load_File_NotePad(LocalfilePath);
 			 IsTab1 :=1;	EndUser4gl_Run_THREADProcessWin( LocalfilePath,szMsg ); 
		Return_Begin_transaction(Trans1) ; 	
         end_if;
require GetPush(ButtonTabCtl4 ) returning (x); 
 if(  x   Not_Void ) 
    then   IsTab1 :=1;
    		Clear LocalfilePath,szMsg; SetHourGlassCursor(); 
			LocalfilePath   := "c:\EndUser4gl\DemoHelpQuery.Eu4glExe";
		   	 	szMsg  := "Execute DemoHelpquery.Eu4glExe";
				 		Load_File_NotePad(LocalfilePath);
 				EndUser4gl_Run_THREADProcessWin(  LocalfilePath,szMsg ); 

			Return_Begin_transaction(Trans1) ; 	
    end_if;


Begin /*   Click on  EndUser4gl  Buttons Applications EndUser4gl */
** SELECTION ENDUSER4GL
require GetPush(BoutonSelection) returning (x); 
	 if(  x   Not_Void ) 
      then  Clear LocalfilePath,FileName ; 
	   LocalfilePath   := "c:\EndUser4gl\4gl\Demo" ;
	   LabelText :="S E L E C T I O N   ENDUSER4GL :  ";
  	SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
 	 Eu_Init_Grid(Grid1,UserDialogGD,ApplicationGD,LocalfilePath,LabelText,color2,color1);
		  	IsTab1 :=4;	 Return_Begin_transaction(Trans1) ; 	 
		end_if;

** QUERY 
require GetPush(BoutonQuery) returning (x); 
	 if(  x   Not_Void ) 
      then  Clear LocalfilePath,FileName ; 
	  	 	LocalfilePath   := "c:\EndUser4gl\4gl\hlp\instructionsQuery" ;
			LabelText := "Q U E R Y  :  ";
				SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
  	  Eu_Init_Grid(Grid1,UserDialogGD, ApplicationGD,LocalfilePath,LabelText,color1,color3);
		  	IsTab1 :=4;	  Return_Begin_transaction(Trans1) ; 	
		end_if;
** SQL
** See you : SetCursor

** SORT 
require GetPush(BoutonSort) returning (x); 
	 if(  x   Not_Void ) 
      then  Clear LocalfilePath ;  
		LocalfilePath   := "c:\EndUser4gl\4gl\hlp\instructionsSort" ;
		LabelText := "S O R T / T R I :";
			SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
    Eu_Init_Grid(Grid1,UserDialogGD, 	ApplicationGD,LocalfilePath,LabelText,white,cyan);
		  	IsTab1 :=4;	Return_Begin_transaction(Trans1) ; 	
		end_if;

** report
require GetPush(BoutonReport) returning (x); 
	 if(  x   Not_Void ) 
      then  Clear LocalfilePath,LabelText ;  
		LocalfilePath   := "c:\EndUser4gl\4gl\hlp\instructionsReport" ;
		LabelText := "    R E P O R T I N G     "; 
			SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
 	  Eu_Init_Grid(Grid1,UserDialogGD, ApplicationGD,LocalfilePath,LabelText,green,color1);
		  	IsTab1 :=4;	 Return_Begin_transaction(Trans1) ; 	
		end_if;

** File
 require GetPush(BoutonFile ) returning (x); 
 if(  x   Not_Void ) 
      then 	 Clear LocalfilePath ; 
		LocalfilePath   := "c:\EndUser4gl\4gl\hlp\instructionsFile" ;
		LabelText  := " F I L E S     :";
		SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
  Eu_Init_Grid(Grid1,UserDialogGD, ApplicationGD,LocalfilePath,LabelText,color1,color2);
		  	IsTab1 :=4;	Return_Begin_transaction(Trans1) ; 	
	end_if;

** SQL
 require GetPush(BoutonSQl) returning (x); 
	 if(  x   Not_Void ) 
    		  then   SetHourGlassCursor(); 	DrawFocusRect(BoutonSQl);
			  	clear localfilePath; 
			TracKPoPMenuSQL(UserDialog) returning (localItemId,LocalfilePath);
	if(LocalItemID > 0) 
	then 	LabelText := "   S Q L      "; 
		SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
   	Eu_Init_Grid(Grid1,UserDialogGD, ApplicationGD,LocalfilePath,LabelText,color2,color1);
				IsTab1 :=4;	
    		end_if;
			 Return_Begin_transaction(Trans1) ; 	
	end_if;
** Windows
 require GetPush(BoutonWindow) returning (x); 
	 if(  x   Not_Void ) 
    		  then   SetHourGlassCursor();	DrawFocusRect(BoutonWindow);
			  	clear localfilePath; 
			TracKPoPMenuWin(UserDialog) returning(LocalItemID, LocalfilePath);
	if(LocalItemID > 0) 
	then 
	 	LabelText := "    W I N D O W S     ";	
		SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
   		Eu_Init_Grid(Grid1,UserDialogGD, ApplicationGD,LocalfilePath,LabelText,color2,color1);
				IsTab1 :=4;	
    		end_if;
			 Return_Begin_transaction(Trans1) ; 	
    		end_if;
** Instruction
 require GetPush(BoutonInst) returning (x); 
	 if(  x   Not_Void ) 
    		  then   SetHourGlassCursor(); DrawFocusRect(BoutonInst);		 
			TracKPoPMenuInst(UserDialog) returning(LocalItemID, LocalfilePath);
		if(LocalItemID > 0) 
	then 	
	LabelText  := " I N S T R U C T I O N  S     :";
	SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
   	Eu_Init_Grid(Grid1,UserDialogGD, ApplicationGD,LocalfilePath,LabelText,color3,color2);
				IsTab1 :=4;	
    		end_if;
			 Return_Begin_transaction(Trans1) ; 	
 		end_if;
**Excel
 require GetPush(BoutonExcel) returning (x); 
 if(  x   Not_Void ) 
	 	LabelText  := "CONNECTION     MS EXCEL      :";
	SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
		LocalfilePath   := "c:\EndUser4gl\4gl\hlp\instructionsExcel" ;
   	Eu_Init_Grid(Grid1,UserDialogGD, ApplicationGD,LocalfilePath,LabelText,color1,color2);
				IsTab1 :=4;	
    	 		 Return_Begin_transaction(Trans1) ; 	
 		end_if;


 End_begin ;
 
** ******************************************************************************************************* 
** buttonEndUser4gl 4GL
** *******************************************************************************************************

  Begin /*   Click on  EndUser4gl order  */
	require GetPush(buttonOrder1) returning (x); 
	 if(  x   Not_Void ) 
          then   
  		 EU_Order(); Return_Begin_transaction(Trans1) ; 		
         end_if;
	 GetPush(buttonOrder2) returning (x); 
	  if(  x   Not_Void ) 
           then   Clear LabelText;
		if(g_Langue  =1) ** french
		then
		 	LabelText := "c:\EndUser4gl\frcommande.wri" ;
  			else 	
			LabelText := "c:\EndUser4gl\encommande.wri" ;
		end_if;	
		 Load_File_Write(LabelText) ; Return_Begin_transaction(Trans1) ; 	
			Return_Begin_transaction(Trans1) ; 	
         end_if;
    End_begin ;

   End_Message_Dialog /* WM_xxxxx       */


** ************************************************************************************ 
** If Click on DialogChild :EndUSer4gl LEVEL 1  Message Windows
** ************************************************************************************ 
	
 Begin_Message_Dialog(UserDialogTabCtl1)::OnClickDialog(void) 
 
require GetPush(BoutonNotePadAvi) returning (x); 
	 if(  x   Not_Void ) 
	 then
  		Clear localfilePath,szMsg; SetHourGlassCursor(); 
			localfilePath   := "c:\EndUser4gl\4gl\example.Eu4glExe";
		   	 	szMsg  := "Execute Essai.Eu4glExe";
	 			 		Load_File_NotePad(LocalfilePath);
 				EndUser4gl_Run_THREADProcessWin(  LocalfilePath,szMsg ); 

 Return_Begin_transaction(Trans1) ; 
    end_if;
require GetPush( BoutonAvi) returning (x); 
	 if(  x   Not_Void ) 
	 then  
	 Play_Movie_Avi("c:\EndUser4gl\4gl\hlp\avi\query\eu4glexe.avi");
 Return_Begin_transaction(Trans1) ; 
    end_if;

require GetPush( BoutonAviExplorer) returning (x); 
	 if(  x   Not_Void ) 
	 then SetHourGlassCursor(); 	MsgFrameWait(void );
	  		Clear LocalfilePath ; LocalfilePath   := "c:\EndUser4gl\4gl\";
				EndUser4gl_Run_Explorer(LocalfilePath) ;
		 Return_Begin_transaction(Trans1) ; 
    end_if;

 

 End_Message_Dialog /* WM_xxxxx       */
** ************************************************************************************ 
** If Click on DialogChild :GRID  Message Windows
** ************************************************************************************ 
	
Begin_Message_Dialog(UserDialogGD)::OnClickDialog(void) 
require GetPush(ButtonRunapplGD) returning (x); 
	 if(  x   Not_Void ) 
	 then
          GetItemCountGD(Grid1) returning (itemcount);/* nb Item into Listview */
		  y :=FALSE;
 		 for(i:=1;i <= itemcount;i++)
                   begin_for
				   GetItemCheckGD(Grid1:i,3) returning (x); **line, column 
          		 	 if( x   Not_Void ) 
					 y := TRUE;
         		 	 then Clear LocalfilePath,filename,szmsg,FileRun;
				 	 GetItemTextGD(Grid1:i,5) returning (fileName);
				 	 GetItemTextGD(Grid1:i,6) returning (LocalfilePath);
 				 	 StringConcat     LocalFilePath,"\",fileName to FileRun;
					 GetItemCheckGD(Grid1:i,4) returning (x); **line, column 
          		 	 if( x   Not_Void ) then
   	  	 	 	 			 Load_File_NotePad(fileRun);
  						end_if;
			 		szMsg  := "Run Application EndUser4gl";
				   EndUser4gl_Run_THREADProcessWin(  fileRun,szMsg );
  	  			  end_if;
                  end_for;
			if(y = FALSE)
			then
				Clear LocalfilePath, szmsg;
				szmsg := "\\n\\n\\nPlease, Check Programm Application EndUser4gl";
				LocalfilePath := "No file Selected ";
				MsgFrame(LocalfilePath,szmsg);** title +messsage
			end_if; 	   
		Return_Begin_transaction(Trans1) ; 
 	 end_if;  
require GetPush( BoutonExplorerGD) returning (x); 
	 if(  x   Not_Void ) 
	 then   ** take first path column 6
	          	 	 GetItemTextGD(Grid1:1,6) returning (LocalfilePath);
					 szMsg  := "Run Application EndUser4gl By Explorer  ";
 						  	EndUser4gl_Run_Explorer(LocalfilePath) ;
 		Return_Begin_transaction(Trans1) ; 
    end_if;
require GetPush( ButtonCLoseGD ) returning (x); 
	 if(  x   Not_Void ) 
	 then 
	 IsTab1 :=1;
		SetStatusDialog(UserDialogGD:SW_HIDE);	Return_Begin_transaction(Trans1) ; 
	end_if;
   End_Message_Dialog /* WM_xxxxx       */
 
 ** *************************************************************************************
** TabControl 2 LEVEL 2  USER 
** *************************************************************************************
	
 Begin_Message_Dialog(UserDialogTabCtl2)::OnClickDialog(void)
	Eu_SelectTreeViewCtl2(TreeView1,DataOther,ButtonPathCtl2);
   					  
  GetPush(BoutonExplorerCtl2  ) returning (x); 
	 if(  x   Not_Void ) 
	 then  	LocalfilePath:= "c:\EndUser4gl\4gl\demo\";
	  	EndUser4gl_Run_Explorer(LocalfilePath) ;
 		Return_Begin_transaction(Trans1) ; 
    end_if;
 Return_Begin_transaction(Trans1) ; 
   End_Message_Dialog /* WM_xxxxx       */
** *************************************************************************************
** TabControl 3 LEVEL 3 SPECIALISt lang C/CPP
** *************************************************************************************



Begin_Message_Dialog(UserDialogTabCtl3)::OnClickDialog(void) 
   Begin /* Test select item TABControl */
	 Clear itemTabCtl  ;
 		 GetSelectItemTC(TabCtl12) returning(itemTabCtl); 
   	  if( itemTabCtl  Not_Void ) 
          then  
	 IsTab1 :=3; 
 	   	SetActiveWinItemTC(TabCtl12:  itemTabCtl);  
  		if(itemTabCtl = 5 )
		then 
 			Eu_SelectTreeViewCtl3(TreeView2,DataExample);

		end_if;
		Return_Begin_transaction(Trans1) ; 	
 	end_if; 
  end_begin;

 End_Message_Dialog /* WM_xxxxx       */

 ** ******************************************************************************************************* 
** ON  SETCURSOR DIALOG
** *******************************************************************************************************
  Begin_Message_Dialog(UserDialog)::OnMoveCursor(void) 

   	 isOnSetCursor(ButtonTabCtl1) returning (x);  
		 if(  x   Not_Void ) 
         then 
	        DrawFocusRect(ButtonTabCtl1);  RefreshWin(ButtonTabCtl1);  		
	SetColorText(ButtonTabCtl1:white,color4) ;    
	 	RefreshWin(ButtonTabCtl1);Return_Begin_transaction(Trans1) ; 	 
 	end_if;
	 isOnSetCursor(ButtonTabCtl2) returning (x);  
	 if(  x   Not_Void ) 
         then 
         DrawFocusRect(ButtonTabCtl2);  RefreshWin(ButtonTabCtl2);  SetColorText(ButtonTabCtl2:white,color4) ;    
	 RefreshWin(ButtonTabCtl2);Return_Begin_transaction(Trans1) ; 	

	  end_if;
 isOnSetCursor(ButtonTabCtl3) returning (x);  
	 if(  x   Not_Void ) 
         then 
             DrawFocusRect(ButtonTabCtl3); 
			   				SetColorText(ButtonTabCtl3:white,color4) ;    
	 RefreshWin(ButtonTabCtl3);Return_Begin_transaction(Trans1) ; 	

	  end_if;
isOnSetCursor(ButtonTabCtl4) returning (x);  
	 if(  x   Not_Void ) 
         then 
         DrawFocusRect(ButtonTabCtl4); 		
		RefreshWin(ButtonTabCtl4);	Return_Begin_transaction(Trans1) ; 	
	  end_if;
isOnSetCursorList(ButtonIconCancel, ButtonRunapplGD,BoutonExplorerGD,BoutonExplorerCtl2 ,ButtonCLoseGD) returning (x);  
	 if(  x   Not_Void ) 
         then 
         DrawFocusRectList( ); 		
	 		Return_Begin_transaction(Trans1) ; 	
	  end_if;

isOnSetCursorList( BoutonSelection,BoutonReport,BoutonSort) returning (x);  
	 if(  x   Not_Void ) 
         then 
         DrawFocusRectList( ); 		
	 		Return_Begin_transaction(Trans1) ; 	
	  end_if;
 	  
require IsOnsetCursorList(buttonSponsor,buttonResearch,ButtonOrder1,ButtonOrder2,
ButtonOtherQuery,buttonEmail ,buttonwww) returning (x);  
	 if(  x   Not_Void ) 
         then 
         DrawFocusRectList(); 		Return_Begin_transaction(Trans1) ; 	 
	  end_if;
	  	  


 End_Message_Dialog /* WM_xxxxx       */
	Return_Begin_transaction(Trans1) ; 			   	
end_transaction ;


end_procedure 

** **********************************************************************************************************
** PRESENTATION bergouConsulting  : SubRoutine
** BEGIN TRANSACTION :dialog,initialize, opendialog,inputdata, getpush etc..
** **********************************************************************************************************
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\bergouConsulting.EU4glExe"
** is  : proc EndUser4gl_Pres_bergouConsulting(void)

** **********************************************************************************************************
** PRESENTATION MsgFrame : SubRoutine
**  
** **********************************************************************************************************
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\MsgFrameEu.EU4glExe"
** is  : MsgFrame(char title,char Wmessage:255)


** ************************************************************************************************
**  PROCESS WINDOW   
** ************************************************************************************************
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\RunThreadProcessWin.EU4glExe"
** proc  EndUser4gl_Run_THREADProcessWin(char FileApp:255) 
** **********************************************************************************************************
**  EndUser4gl_Run_Explorer : SubRoutine
**  
** **********************************************************************************************************
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\Run_Explorer.EU4glExe"
** is  : EndUser4gl_Run_Explorer(char FileApp:255) 
** **********************************************************************************************************
**  MsgFrameWait : SubRoutine
**  
** **********************************************************************************************************
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\MsgFrameWait.EU4glExe"
** is :  MsgFrameWait(void )
** **********************************************************************************************************
func TracKPoPMenuWin(integer UserDialog)
begin_function
local
integer :l_itemItem;
CHAR  :   Localfile:255   ;  
end_local
            Begin_TrackPopMenu  : UserDialog  **Master Dialog
                  	MenuItem " 1 - Dialog/Transactions"   , ID : 1 
 			Begin_SubMenu : SubMenu2  " 2 - Buttons"
					Begin_SubMenu : SubMenu21 " ButtonBitmap "   
					MenuItem " ButtonBitmap"      , ID: 21 
					MenuItem " ButtonBitmapDraw"      , ID: 22 
					MenuItem " ButtonBitmapLabel"     , ID: 23 
					MenuItem " ButtonBitmapPush"      , ID: 24 
					MenuItem " ButtonBitmapRegion"    , ID: 25 

			 		End_SubMenu 
				MenuItem " ButtonDraw"      , ID: 26 
				MenuItem " ButtonIcon"      , ID: 27 
				MenuItem " ButtonText"      , ID: 28 
			 End_SubMenu 
			
               			MenuItem return_carriage    
			MenuItem " 3 - Picture" , ID :3  
                   	MenuItem " 4 - ListBox" , ID :4  
			MenuItem " 5 - Combobox" , ID :5
			MenuItem " 6 - Groupbox" , ID :6
			MenuItem " 7 - Cursor" , ID :7
			MenuItem " 8 - Color" , ID :8
			MenuItem " 9 - Menu" , ID :9
			MenuItem " 10 - Fonts" , ID :10
			MenuItem " 11 - Mouse" , ID :11
			Begin_SubMenu : SubMenu31 "12- Icon "   
					MenuItem " Icon"      , ID: 121 
					MenuItem " ButtonIcon"      , ID: 122 
					End_SubMenu 
	            	MenuItem return_carriage    
			Begin_SubMenu : SubMenu41 "13- ListView "   
					MenuItem " ListViewIcon"      , ID: 131 
					MenuItem " ListViewList"      , ID: 132 
					MenuItem " ListViewReport"      , ID: 133 
					End_SubMenu 
 	 		 
			MenuItem "14 - TreeView" , ID :14
			MenuItem "15 - Grid" , ID :15
			MenuItem "16 - Rebar" , ID :16
			MenuItem "17 - TabControl" , ID :17
			MenuItem "18 - Text" , ID :18
			MenuItem "19 - Toolbar" , ID :19
			MenuItem "20 - Display" , ID :20
			MenuItem return_carriage 
			MenuItem "21 - Others/Autres " , ID :21
			MenuItem "22 - Applications " , ID :22   
			MenuItem " Etc...x" , ID :27 ,DISABLE 
              END_TrackPopMenu 
  			OPENTRACKPOPMENU();
	       GetSelectPopMenuItemID()   returning(l_itemItem); 
  if(l_itemItem Not_Void)
 then Clear Localfile;
  case_of     l_itemItem   
when  1 : Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Dialog";End_When;
when 21 : Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonBitmap\ButtonBitmap";End_When;
when 22 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonBitmap\ButtonBitmapDraw";End_When;
when 23 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonBitmap\ButtonBitmapLabel";End_When;
when 24 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonBitmap\ButtonBitmapPush";End_When;
when 25 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonBitmap\ButtonBitmapRegion";End_When;
when 26 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonDraw";End_When;
when 27 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonIcon";End_When;
when 28 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Buttons\ButtonText";End_When;
when 3 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Picture";End_When;
when 4 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Listbox";End_When;
when 5 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\combobox";End_When;
when 6 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\groupbox";End_When;
when 8 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\color";End_When;
when 9 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\menu";End_When;
when 10 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\fonts";End_When;
when 11 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\mouse";End_When;
when 121 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Icon";End_When;
when 122 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Icon\buttonicon";End_When;
when 131 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\listview\ListViewIcon";End_When;
when 132 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\listview\ListViewList";End_When;
when 133 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\listview\ListViewReport";End_When;
when 14 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\TreeView";End_When;
when 15 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Grid";End_When;
when 16 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Rebar";End_When;
when 17 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\TabControl";End_When;
when 18 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\text";End_When;
when 19 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\Toolbar";End_When;
when 20 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsDisplay";End_When;
 when 21 :Localfile := "c:\EndUser4gl\4gl\hlp\instructionsWindows\OtherKeyWordWindows";End_When;
 when 22 :Localfile := "c:\EndUser4gl\";End_When;
  	otherwise :	clear l_itemItem,Localfile;

   end_case ;
  end_if;
 	return   l_itemItem, Localfile;

 End_function
func TracKPoPMenuSql(integer UserDialog)
begin_function
local
 CHAR  :   Localfile:255   ;
 integer :l_itemItem,x;
end_local
            Begin_TrackPopMenu  : UserDialog  **Master Dialog
                  	MenuItem " 1 - SQL Enduser4gl Reference"   , ID : 1 
 			Begin_SubMenu : SubMenu2  " 2 - SQL/ODBC transparency"
				MenuItem " SQL   EXCEL"      , ID: 21 
				MenuItem " SQL   ACCESS"      , ID: 22 
				MenuItem " SQL   FOXPRO"      , ID: 23 
				MenuItem " SQL   DBASE"      , ID: 24 
			 End_SubMenu 
			
               		MenuItem return_carriage    
			MenuItem " 3 - Help SQL" , ID :3  
			MenuItem " 3 - Help SQL rtf" , ID :4  
                END_TrackPopMenu 
  			OPENTRACKPOPMENU(); 
	       GetselectPopMenuItemID()   returning(l_itemItem);
if(l_itemItem  Not_Void)
 then   Clear Localfile;

 case_of     l_itemItem   
    when  1 : Localfile := "c:\EndUser4gl\4gl\hlp\instructionsSql\FoxPro";End_When;
    when 21 : Localfile :=  "c:\EndUser4gl\4gl\hlp\instructionsSql\Excel";End_When;
    when 22 : Localfile :=  "c:\EndUser4gl\4gl\hlp\instructionsSql\Access";End_When;
	when 23 : Localfile :=  "c:\EndUser4gl\4gl\hlp\instructionsSql\Dbase";	End_When;
	when  3 : Localfile := "c:\EndUser4gl\4gl\hlp\instructionsSql\FoxPro" ; 
		MsgFrameWait(void );	 SetHourGlassCursor(); 
LoadWinhelP(UserDialog :"c:\EndUser4gl\4gl\hlp\instructionsSql\helpSql\MSJETSQL.HLP"); 
End_When;
	when  4 : Localfile :=  "c:\EndUser4gl\4gl\doc\sql";End_When;
	otherwise :	clear l_itemItem,Localfile;
 end_case ;
 end_if;
 	return l_itemItem,Localfile;
 End_function
func TracKPoPMenuInst(integer UserDialog)
begin_function
local
 CHAR  :   Localfile:255   ;  
 integer :l_itemItem;
 end_local
            Begin_TrackPopMenu  : UserDialog  **Master Dialog
                  	MenuItem " 1 - Instructions String"   , ID : 1 
 			MenuItem " 2 - Instructions Numeric" , ID :2  
			MenuItem " 3 - Instructions Table" , ID :3 
			MenuItem " 4 - Instructions if,for,while,do etc.." , ID :4 
	MenuItem " 5 - Instructions /keyword Procedure,function,struct...etc" , ID :5  
                END_TrackPopMenu 
  			OPENTRACKPOPMENU();  
	       GetselectPopMenuItemID()   returning(l_itemItem);
if(l_itemItem  Not_Void)
 then 
 case_of     l_itemItem   
 when  1 : Localfile := "c:\EndUser4gl\4gl\hlp\instructionsString";End_When; 
 when  2 : Localfile := "c:\EndUser4gl\4gl\hlp\instructionsNumeric";End_When;
 when  3 : Localfile := "c:\EndUser4gl\4gl\hlp\instructionsTable";End_When; 
when  4 : Localfile := "c:\EndUser4gl\4gl\hlp\instructions";End_When;   
when  5 : Localfile := "c:\EndUser4gl\4gl\hlp\keyWord";End_When; 
 	otherwise :	clear l_itemItem,Localfile;

 end_case ;

 end_if;
 	return l_itemItem,Localfile;
 End_function
proc	Eu_Init_Grid(integer Grid1,integer UserDialogGD,
integer	ApplicationGD,char LocalfilePath:255,char LabelText:128,long color1  ,long color2) 
begin_procedure 	
 SetStatusDialog(UserDialogGD:SW_HIDE);
  	 		 Load_File_Grid(LocalfilePath,Grid1,UserDialogGD,color1,color2);
		 	SetWinTxt(ApplicationGD:Labeltext);RefreshWin(ApplicationGD);
 End_procedure	

** *******************************************************************************************************
** LOAD FILE WITH GRID
** *******************************************************************************************************
proc	Load_File_Grid(char Directory:255,integer Grid1,Integer UserDialogGD,long color1, long color2)
begin_procedure 
local
 CHAR  :   cFileName:255, StringExtract:255  ;  
 integer :x,exit_Trans123 , Ival,position,i ; 
end_local
  SetBkColorGD(Grid1: column: 1  GRAY,column: 2 YELLOW, column: 3 BLUE,column : 4   white,column:5 color1,column:6 color2);
  SetColortextGD(Grid1:   column: 5 black,column:6 white);

 InitGD(Grid1); 
    DirExist(Directory) returning(x);
 if(x  void) then
  stringlength(directory)returning (x); 
	if(x > 0) 
    	    then
	 **	SetForeGroundDialog(UserDialogGD);
  	 	ExecuteDirectoryFETCH( Directory)
  	 	ForEachFileFind :
 	  		GetInfoFileName( cFileName);  SetHourGlassCursor();  
			SearchString ".Eu4glExe" into CFileName returning(position,StringExtract);
 			 if  (position > 0)  
 			 then    
				Ival++;  SetItemGD(Grid1:Ival, column:1  Ival,column: 3  0,column: 4 1 ,
		  			column:5 	cFileName,   column:6 directory);
 ** display "cFileName ",cFileName;
				 RefreshWin(Grid1);	 
						
			end_if;
	 	End_ForEachFile;  
					 	 
	 end_if;
  end_if;	 
End_procedure
** *********************************************************************************
**  USER4GL LEVEL 2
** *********************************************************************************
proc Eu_SelectTreeViewCtl2(integer TreeView1,integer DataOther,integer ButtonPathCtl2)
begin_procedure 
local
 CHAR  :   LabelText:255 ,file1:255, localfilePath:255,FirstCar:1 ;  
 integer :iLevel,ival ; 
end_local

   Clear iLevel , LabelText ; 
 	  GETSELECTItemTV(TreeView1) returning(iLevel,LabelText);
 	**  LookuptableBtree(OtherPresentSort,LabelText) returning (x);
     
       ** if( x  Not_Void  ) /* Label Find to tableBtree */
 	 if((iLevel > 0) and (LabelText  Not_Void))
 	 then  
 		 Clear LocalfilePath  ; FirstCar :=  ExtractString(LabelText:1,1 ) ;

		** ConverString with  FirstCar to ival   ; 
 		**case_of    ival  
		case_of    FirstCar
when       "0"    :LabelText := "StructPgmEu4gl.txt";  		End_When;
when       "1"    :LabelText := "Query.Eu4glExe";  		End_When;
when       "2"    :LabelText := "QueryDialogExcel.Eu4glExe";  		End_When;
when       "3"    :LabelText := "QueryDialogExcelBatch.Eu4glExe";  		End_When;
when       "4"    :LabelText := "QueryDialogAccess.Eu4glExe";  		End_When;
when       "5"    :LabelText := "SortAsc.Eu4glExe";  		End_When;
when       "6"    :LabelText := "SortAsc.Eu4glExe";  		End_When;
when       "7"   :LabelText := "Sortdesc.Eu4glExe"; 	 	End_When;
when       "8"  :LabelText := "report.Eu4glExe";		End_When;
end_case;
 				 file1 := "c:\EndUser4gl\4gl\demo\";
 		 	  		  StringConcat file1,LabelText to localfilePath ; 
	 		   If (  (FileExist(localfilePath))  Void )
			   then  
				 SetWinTxt(ButtonPathCtl2:LocalfilePath) ;
 				require SetWinTxt(DataOther:  LoadFileTxt(LocalfilePath)); 		
				  else  Clear LabelText;
					LabelText := "Demo EndUser4gl";
			 	 StringConcat " File not found :", LocalfilePath to szMsg;
				MsgFrame(LabelText, szMsg );
			   end_if;	
 
   	 end_if;  /* if((iLevel > 0) and (LabelText  Not_Void))*/
   
End_procedure
** *********************************************************************************
**  SPECIALIST LEVEL 3
** *********************************************************************************
proc Eu_SelectTreeViewCtl3(integer TreeView2, integer DataExample)
begin_procedure 
local
 CHAR  :   LabelText:255 ,file1:255, localfilePath:255,FirstCar:2 ;  
 integer :iLevel,ival ; 
end_local

   Clear iLevel , LabelText ; 
 	  GETSELECTItemTV(TreeView2) returning(iLevel,LabelText);
 	**  LookuptableBtree(OtherPresentSort,LabelText) returning (x);
     
       ** if( x  Not_Void  ) /* Label Find to tableBtree */
 	 if((iLevel > 0) and (LabelText  Not_Void))
 	 then  
 		 Clear LocalfilePath  ; FirstCar :=  ExtractString(LabelText:1,2 ) ;

		** ConverString with  FirstCar to ival   ; 
 		**case_of    ival  
case_of    FirstCar
when       "1 "    :LabelText := "Structurecpp.txt";  		End_When;
when       "2 "    :LabelText := "EndUser4glExecutecpp.txt";	End_When;
when       "3 "    :LabelText := "DepileString.txt";  		End_When;
when       "4 "    :LabelText := "DepileALnum.txt";  		End_When;
when       "5 "    :LabelText := "DepileInteger.txt";  		End_When;
when       "6 "    :LabelText := "DepileLong.txt";  		End_When;
when       "7 "   :LabelText := "DepileFloat.txt"; 	 	End_When;
when       "8 "  :LabelText := "DepileDouble.txt";		End_When;
when       "9 "  :LabelText := "exifcpp.txt";		End_When;
when       "10"  :LabelText := "excalculcpp.txt";	End_When;
when       "11"  :LabelText := "exmovecpp.txt";		End_When;
when       "12"  :LabelText := "sqlcpp.txt";		End_When;
when       "13"  :LocalfilePath := "c:\EndUser4gl\4gl\bin\tokenRules";
		EndUser4gl_Run_Explorer(LocalfilePath) ;End_When;
end_case;
if(FirstCar != "13" )
then
 	 file1 := "c:\EndUser4gl\4gl\bin\tokenRules\";
 	  StringConcat file1,LabelText to localfilePath ; 
 	    If (  (FileExist(localfilePath))  Void )
		  then  
 		require SetWinTxt(DataExample:  LoadFileTxt(LocalfilePath)); 	
			refreshWin(DataExample);	
 		  else  Clear LabelText;
			LabelText := "Demo EndUser4gl";
			 StringConcat " File not found :", LocalfilePath to szMsg;
			MsgFrame(LabelText, szMsg );
		   end_if;	
    	 end_if;  
	
end_if;


 
End_procedure
 
** *******************************************************************************************************
** LOAD FILE WITH NOTEPAD.EXE
** *******************************************************************************************************
proc	Load_File_NotePad(char fileNotepad:255)
begin_procedure 
local
 char : LabelMsg:255,directory:255,LabelMsg2:255 ; 
integer :x;  
end_local
 clear LabelMsg  ;
SetHourGlassCursor(); 
	 StringConcat  " notepad.exe  ",fileNotepad to LabelMsg ;
 
	  SysCommandWindows(LabelMsg) returning (x);
  		if( x=2 )** not find notepad.exe
		then
		 clear LabelMsg ; 
 		 GetSysWinDir(Directory);
     		 StringConcat   Directory,"\notepad.exe  ",fileNotepad to 	LabelMsg;
			SysCommandWindows(LabelMsg ) returning (x);
 
 		end_if;
end_procedure	
 
** *******************************************************************************************************
** LOAD FILE WITH NOTEPAD.EXE
** *******************************************************************************************************
proc	Load_File_Write(char fileNotepad:255)
begin_procedure 
local
 char : LabelMsg:255,directory:255,LabelMsg2:255 ; 
integer :x;  
end_local
 clear LabelMsg  ;
SetHourGlassCursor(); 
	 StringConcat  " write.exe  ",fileNotepad to LabelMsg ;
	  SysCommandWindows(LabelMsg) returning (x);
  		if( x=2 )** not find notepad.exe
		then
		 clear LabelMsg ; 
 		 GetSysWinDir(Directory);
     		 StringConcat   Directory,"\write.exe  ",fileNotepad to 	LabelMsg;
			SysCommandWindows(LabelMsg ) returning (x);
 
 		end_if;
end_procedure	
 #include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\LanguePresentation.EU4glExe"
** is  : proc EndUser4gl_LanguePresent(void); 



#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\SplashPresentation.EU4glExe"
** is  : proc EndUser4gl_Sp_Scrn_presentation(void);