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

#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
integer :    exit_trans1  ,x,Ival ; 
char : text1: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
 
   100,10,680,450 , " EndUser TREEVIEW : TV_HASLINES  & TV_HASBUTTONS ",UserDialog
	 	
	TreeView : :TVS_HASLINES & :TVS_HASBUTTONS 180,10, 250, 280, TreeView1  create : with PictureIcon : "c:\EndUser4gl\4gl\hlp\pgmicon\65.ico"   
	 
	 PushIcon 10, 300, 50,34,   ICON_HAND , BoutonCancel   Create : Info " Bye Bye........."
          PushButton 190, 300, 200, 34, "&Add In TreeView", BoutonAdd 


 end_dialog

 
 Begin_Initialize
IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\19.ico");
            do(3)
		  AddItemTV(TreeView1:1,"Level/Niveau 1"); 
 				AddItemTV(TreeView1:2,"Level/Niveau 2.1"); 
 			        AddItemTV(TreeView1:2,"Level/Niveau 2.2"); 
 			        AddItemTV(TreeView1:2,"Level/Niveau 2.3"); 

				AddItemTV(TreeView1:3,"Level/Niveau 3"); 
			 	AddItemTV(TreeView1:4,"Level/Niveau 4");
				AddItemTV(TreeView1:5,"Level/Niveau 5"); 
         end_do; 
         Ival := 3;
 End_Initialize    OpenDialog  (UserDialog)  ;

         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;
           begin /* Add listView */
      		  require GetPush(BoutonAdd) returning (x);  
		  if(  x   Not_Void ) 
         		then
                         begin /* Add item Level-Niveau in TreeView */ 
                           Ival++;text1 := "";
			    ConverNumeric   Ival  to text1  format "05" ;
                             StringConcat   "Level/Niveau 1 " to text1;

/* --------------------> */    Replaceicontv(Treeview1:"c:\EndUser4gl\4gl\hlp\pgmicon\folder.ico");
               			    AddItemTV(TreeView1:1,text1); 

/* --------------------> */   Replaceicontv(Treeview1:"c:\EndUser4gl\4gl\hlp\pgmicon\folderop.ico");

 				AddItemTV(TreeView1:2,"Level/Niveau 2.1"); 
 			        AddItemTV(TreeView1:2,"Level/Niveau 2.2"); 
 			        AddItemTV(TreeView1:2,"Level/Niveau 2.3"); 

/* --------------------> */ **   Replaceicontv(Treeview1:"c:\EndUser4gl\4gl\hlp\pgmicon\clock.ico");
				AddItemTV(TreeView1:3,"Level/Niveau 3"); 

/* --------------------> */   Replaceicontv(Treeview1:"c:\EndUser4gl\4gl\hlp\pgmicon\mdichild.ico");
			 	AddItemTV(TreeView1:4,"Level/Niveau 4");

/* --------------------> */   Replaceicontv(Treeview1:"c:\EndUser4gl\4gl\hlp\pgmicon\mouse.ico");
				AddItemTV(TreeView1:5,"Level/Niveau 5");  
                          end_begin  ;
    		  end_if;
      	    end_begin   ;

 end_transaction ;