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

#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
integer :    exit_trans1  ,x ; 
 
 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",UserDialog
	 	
	TreeView :    180,10, 250, 280, TreeView1   
	 
	  PushIcon 10, 300, 50,34,   ICON_HAND , BoutonCancel   Create : Info " Bye Bye........."
 

 end_dialog

 

 Begin_Initialize
IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\19.ico");
   
		  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_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;
 
 end_transaction ;