** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
**
**  :LVS_REPORT & :LVS_EDITLABELS : STANDARD EDIT ALL ROWS
**

#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
integer :    exit_trans1  ,x,Ival,Ival2,Ival3,item1,Icol,step,yColor:=255 ; 
long : C_BLUE; 
char : texte1:128 := "Itemxxcccccccccccc",  wordNumeric:128  ,value1:128 ;
 
 
 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 
				&   CENTERDIALOG

  10,50,800,680, " EndUser   LISTVIEW : REPORT and EDIT ALL ITEMS (use FrameWork)  ",UserDialog
	 	
/* ----> STANDARD EDIT ALL ROWS */	
       ListView : :LVS_REPORT  &  :LVS_EDITLABELS 
                                1,1, 650, 350, ListView1
				 create :      column 1 : "Nom                   ",
                                               column 2 : "Prénom",
                                               column 3 : "adresse         ",
                                              column 4 : "code Postal",
	                                      column 5 : "Ville                 " ,
                                              use FRAMEWORK
         
                    
	 PushIcon 10, 600, 50,34,   ICON_HAND , BoutonCancel   Create : Info " Bye Bye........."
          PushButton 190, 600, 200, 34, "&Add In ListView 1", BoutonAdd 


 end_dialog
 
   Begin_Initialize
    IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\19.ico");
   SetBkColorLV(ListView1:GRAY);
                 do(5)
                       begin /* Add item ligne in ListView */
 			color(0,0,YColor) returning(C_BLUE);
                            SetColortextLV(ListView1:RED,C_Blue);
               		   AddItemLV(ListView1:1,"Bergougnoux"); 
                           SetItemLV(ListView1:2,"Philippe"); /* modif Item ligne existante */
                              SetItemLV(ListView1:3,"14 rue Jean Moulin");
                                              SetItemLV(ListView1:4,"37550");
                                             SetItemLV(ListView1:5,"TOURS/ST AVERTIN");
                           AddItemLV(ListView1:1,"Dupont"); 
                           SetItemLV(ListView1:2,"george"); /* modif Item ligne existante */
                              SetItemLV(ListView1:3,"12 rue Pasteur");
                                              SetItemLV(ListView1:4,"75014");
                                             SetItemLV(ListView1:5,"PARIS");
        OpenDialog  (UserDialog)  ;
          begin /* Add item ligne in ListView */ 
	                          SetColortextLV(ListView1:BLUE,YELLOW);

                           AddItemLV(ListView1:1,"Durand"); 
                           SetItemLV(ListView1:2,"andré"); /* modif Item ligne existante */
                              SetItemLV(ListView1:3,"101 Bld Kléber");
                                              SetItemLV(ListView1:4,"13000");
                                             SetItemLV(ListView1:5,"MARSEILLE");
    
                         end_begin   ;
    OpenDialog  (UserDialog)  ;
   
                          end_begin   ;
                 end_do;
                    Ival2 := 200 ;Ival3 := 900;
                  
   End_Initialize	   
	   
    OpenDialog  (UserDialog)  ;
			InputData();

/* Cancel Transaction          **************************************************** */
         require  GetPush(BoutonCancel) returning (x);  
         if(  x   Not_Void ) 
         then
               MsgBox  : TITLE "My First ListView"  
                   Message :      " Push is ok : Cancel Transaction" 
                    button  :       MB_OK
                   icon    :        MB_ICONEXCLAMATION           returning (x) ; 
            exit_trans1  :=  1     ;
    	end_if;
/* Add List View          **************************************************** */
           begin  
      		  require GetPush(BoutonAdd) returning (x);  
		  if(  x   Not_Void ) 
         		then
                         begin /* Add item ligne in ListView */ 
	                          Setcolortextlv(ListView1:BLUE,YELLOW);

                           AddItemLV(ListView1:1,"Durand"); 
                           SetItemLV(ListView1:2,"andré"); /* modif Item ligne existante */
                              SetItemLV(ListView1:3,"101 Bld Kléber");
                                              SetItemLV(ListView1:4,"13000");
                                             SetItemLV(ListView1:5,"MARSEILLE");
    
                         end_begin   ;
    		  end_if;
      	    end_begin   ;
/* Select List View      *************************************  */
/* 1 first method : if   Clik mouse on list view ************** */   
           begin  
	      GetSelectItemLV(ListView1) returning (item1,icol);
        	if(item1   Not_Void ) 
         	then
                    GetItemTextLV(ListView1:item1,Icol) returning (value1);
   		   **  display "Texte : Ligne : ",item1," Colonne :",Icol ," Valeur :",value1 ;     
		end_if; 
            end_begin  ;  
 end_transaction ;