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

#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
integer :    exit_trans1  ,x,Ival ; 
char : texte1:50 := "Itemxxcccccccccccc",wordNumeric:50;
 begin_transaction : Trans1     Execute   Transaction with  exit_trans1  !=  1      
 begin_dialog  
  WinExtendstyle :  :WS_EX_DLGMODALFRAME
 	  	  Winstyle 	 :  :WS_OVERLAPPED & :WS_CAPTION &    :WS_SYSMENU  &  :WS_THICKFRAME  
				&  :WS_MINIMIZEBOX   &    :WS_MAXIMIZEBOX 
				&   FULLDIALOG
 
 710,110,840,660 , " EndUser Grid : standard"   ,UserDialog
    Grid      50,5, 700, 500, Grid1  Property : HeightColumn 64 HeightLine 40, Max Column 10, Max lines 50 

        	create :        column 1  : "Colonne 1 PushButton" ,Property :PushButton,size 50 
        			column 2  : "Colonne 2 Icon" ,Property : size 40, pictureicon : "c:\EndUser4gl\4gl\hlp\pgmicon\10.ico"                                                                                                          width  Icon: 32 ,height Icon : 16 
  				column 3  : "Colonne 3 CHECKBOX",Property : Checkbox,size 40  
                                column 4  : "Colonne 4 CHAR" ,Property : char,size 200,RIGHT
 				column 5  : "Colonne 5 STRING" ,Property : char,size 70,CENTER
                                column 6 : "Colonne 6 Icon" ,Property : size 30,pictureicon : 	"c:\EndUser4gl\4gl\hlp\pgmicon\sunsmile.ico"												width  Icon: 25 ,height Icon : 18 
				column 7  : "Colonne 7 CHECK",Property : CHECK,size 40   
 
                                column 8  : "Colonne 8 Integer" ,Property : integer,size 50,RIGHT
 				column 9  : "Colonne 9 Icon" ,Property : size 70, pictureicon : "c:\EndUser4gl\4gl\hlp\pgmicon\19.ico"														width  Icon: 16 ,height Icon : 16 
                               column 10   : "Colonne 10 Integer" ,Property : integer,size 50,RIGHT
 	 	  PushIcon  60,560,  45, 45, ICON_HAND , BoutonCancel  		
  		create :	info "Exit.." 
 
	
 end_dialog

 Begin_Initialize
SetBkColorGD(Grid1: column: 1  GRAY,column: 2 YELLOW, column: 3 RED,column : 5 BLUE,column:8 PINK);
SetColortextGD(Grid1: column: 5 GREEN, column: 6 BLUE,column: 10 ORANGE);
   
do(20)
Ival++;
   ConverNumeric        Ival  to wordNumeric  format "05" ;
       StringConcat     texte1 to wordNumeric  ;

       AddItemGD(Grid1:Ival, column:1  Ival,column: 3  $_UNCHECK , column:4 WordNumeric,           column:5 "azerty",     column:8 Ival, column:10  124 );** ,column: 11  _CHECK); 
  wordNumeric := ""; ** important p/ StringConcat
 end_do;

 End_Initialize

IconDialog(UserDialog:"c:\EndUser4gl\bin\hlp\pgmicon\19.ico");
    OpenDialog  (UserDialog)  ;
InputData();

         require  GetPush(BoutonCancel) returning (x);  
         if(  x   Not_Void ) 
         then
               MsgBox  : TITLE "My First Grid"  
                   Message :      " Push is ok : Cancel Transaction" 
                    button  :       MB_OK
                   icon    :        MB_ICONEXCLAMATION           returning (x) ; 
            exit_trans1  :=  1     ;
    	end_if;
 
 end_transaction ;