Компонент для дизайнера форм

EnableExplicit
#LVM_SUBITEMHITTEST = #LVM_FIRST + 57 
#LVM_GETSUBITEMRECT = #LVM_FIRST + 56 
 
Global oldproc 
Global currentitem, currentsubitem 
 
 
; ------------------------------
;{- SpinGadget_
; ------------------------------
Declare HideSpinGadget_(Gadget,param)
Structure structSpin
  Spin.l
  String.l
  UpDown.l
  UpDownWidth.l
  Align.l
EndStructure :Global NewList Spin.structSpin()
 
Procedure SpinGadget_Proc(hwnd, msg, wParam, lParam) 
  Protected *Func 
  *Func = GetWindowLongPtr_(hWnd, #GWL_USERDATA) 
   If  msg=#WM_DESTROY
    FreeGadget(Spin()\Spin)
   EndIf
 If  msg=#WM_SIZE Or 799 ; And 
   ResizeGadget(Spin()\String ,0,0,GadgetWidth(Spin()\Spin)-Spin()\UpDownWidth+1,GadgetHeight(Spin()\Spin))
   MoveWindow_( Spin()\UpDown,GadgetWidth(Spin()\String),-1,Spin()\UpDownWidth,GadgetHeight(Spin()\Spin)+2,1)
   InvalidateRect_(GadgetID(Spin()\Spin),0,0) :UpdateWindow_(GadgetID(Spin()\Spin))
  
 EndIf 
 
 
  ProcedureReturn CallWindowProc_(*Func,hwnd, msg, wParam, lParam) 
EndProcedure
Procedure SpinGadget_(Gadget,left=0,top=0,width=0,heigth=0,min=0,max=1000,pos=0,textpos=2,Flags=0,UpDownWidth=17 )
 Protected Spin
  AddElement(Spin())
   Spin()\Align=Flags
   Spin()\UpDownWidth = UpDownWidth
   
  If Gadget=#PB_Any 
   Spin= ContainerGadget(Gadget ,left,top,width,heigth+1);,#PB_Container_Flat )
 Else  
   Spin= GetDlgCtrlID_(ContainerGadget(Gadget ,left,top,width,heigth+1,#PB_Container_Flat ))
 EndIf 
 Spin()\Spin =Spin
 Spin()\String=StringGadget(#PB_Any,0,0,width-Spin()\UpDownWidth,heigth,"",textpos|#PB_String_Numeric)
   Spin()\UpDown = CreateUpDownControl_(#WS_CHILD|#WS_VISIBLE|#UDS_SETBUDDYINT | Flags | #UDS_ARROWKEYS,0,0,0,0,GadgetID(Spin()\Spin),1,GetModuleHandle_(0),GadgetID(Spin()\String),max,min,pos)
   If  Spin()\Align=0
   MoveWindow_( Spin()\UpDown,width-Spin()\UpDownWidth,-1,Spin()\UpDownWidth,heigth+2,1)
   EndIf
   CloseGadgetList()
   SetWindowLongPtr_(GadgetID( Spin()\Spin),#GWL_USERDATA, SetWindowLongPtr_(GadgetID( Spin()\Spin),#GWL_WNDPROC, @SpinGadget_Proc())); чтобы водить только английские буквы
  ProcedureReturn  Spin()\Spin
EndProcedure 
 
 
;}------------------------------
; ------------------------------
 
Structure StructureListIconGadget
  ComboBoxT.l
  ComboBoxN.l
  ComboBoxC.l
  Button.l
  String.l
  Spin.l
  StringEn.l
EndStructure :Global NewList ListGadgets.StructureListIconGadget()
  
Procedure ListIconComboBox(GadgetID,ParentID,Type=0,Flags=66)
 Protected hWnd
 If GadgetID=#PB_Any 
   hWnd= ComboBoxGadget(GadgetID, 0,0,0,0,Flags)
 Else  
   hWnd= GetDlgCtrlID_(ComboBoxGadget(GadgetID, 0,0,0,0,Flags))
 EndIf 
 If Type =0
   AddGadgetItem(hWnd,0,"True") 
   AddGadgetItem(hWnd,1,"False") 
  ElseIf Type =1 
   AddGadgetItem(hWnd,0,"Normal") 
   AddGadgetItem(hWnd,1,"Minimized") 
   AddGadgetItem(hWnd,2,"Maximized") 
  ElseIf Type =2 
   AddGadgetItem(hWnd,0,"CenterScreen") 
   AddGadgetItem(hWnd,1,"CenterParent") 
  EndIf
  SetParent_(GadgetID(hWnd),GadgetID(ParentID)) :HideGadget(hWnd,#True) 
  ProcedureReturn hWnd
 EndProcedure
 
;водить только английские буквы в StringGadget
Procedure EditWndProc_HEX_CB(hwnd, msg, wParam, lParam) 
  Protected *Func 
  *Func = GetWindowLongPtr_(hWnd, #GWL_USERDATA) 
  If  msg=258 
    If wParam=46 Or wParam=13 Or wParam=8 
    ElseIf (wParam<'a' Or wParam>'z') And (wParam<'A' Or wParam>'Z') 
      msg = 0 
      MessageBeep_(#MB_ICONQUESTION) 
    EndIf 
  EndIf 
  ProcedureReturn CallWindowProc_(*Func,hwnd, msg, wParam, lParam) 
EndProcedure
Procedure ListIconString(GadgetID,ParentID,Type=0)
 Protected hWnd
 If GadgetID=#PB_Any 
   hWnd= StringGadget(GadgetID,0, 0, 0, 0, "") 
 Else  
   hWnd= GetDlgCtrlID_(StringGadget(GadgetID,0, 0, 0, 0, ""))
 EndIf 
 
  If Type>0
   SetWindowLongPtr_(GadgetID(hWnd),#GWL_USERDATA, SetWindowLongPtr_(GadgetID(hWnd),#GWL_WNDPROC, @EditWndProc_HEX_CB())); чтобы водить только английские буквы
  EndIf
 SetParent_(GadgetID(hWnd),GadgetID(ParentID)) :HideGadget(hWnd,#True) 
  ProcedureReturn hWnd
EndProcedure
 
Procedure ListIconButton(GadgetID,ParentID)
  Protected hWnd
 If GadgetID=#PB_Any 
   hWnd= ButtonGadget(GadgetID,0,0,0,0,"...",#PB_Button_Default) 
 Else  
   hWnd= GetDlgCtrlID_(ButtonGadget(GadgetID,0,0,0,0,"...",#PB_Button_Default) )
 EndIf 
  SetParent_(GadgetID(hWnd),GadgetID(ParentID)) :HideGadget(hWnd,#True) 
    ProcedureReturn hWnd
EndProcedure
 
Procedure ListIconSpin(GadgetID,ParentID,textpos=0)
 Protected hWnd
 If GadgetID=#PB_Any 
   hWnd= SpinGadget_(GadgetID,0,0,0,0,0,2000,0,textpos ) 
 Else  
   hWnd= GetDlgCtrlID_(SpinGadget_(GadgetID,0,0,0,0,0,2000,0,textpos))
 EndIf 
 
 SetParent_(GadgetID(hWnd),GadgetID(ParentID)) 
 HideGadget(hWnd,#True) 
    ProcedureReturn hWnd
EndProcedure
 
Procedure HideListIconGadget(Value)
  With ListGadgets()
    HideGadget(\ComboBoxT,Value)
    HideGadget(\ComboBoxN,Value)
    HideGadget(\ComboBoxC,Value)
    HideGadget(\Button,Value)
    HideGadget(\Spin,Value)
    HideGadget(\String,Value)
    HideGadget(\StringEn,Value)
  EndWith  
EndProcedure
 
Procedure ResizeListIconGadget(GadgetID,x,y,w,h)
  ResizeGadget(GadgetID,x,y,w,h) :HideListIconGadget(#True) :HideGadget(GadgetID,#False) 
  If GadgetID =Spin()\Spin
    SetFocus_(GadgetID(Spin()\String))
    InvalidateRect_(GadgetID(Spin()\Spin),0,0) :UpdateWindow_(GadgetID(Spin()\Spin))
   
   Else 
    SetFocus_(GadgetID(GadgetID))
  EndIf
 
 InvalidateRect_(GadgetID(GadgetID),0,1)
 UpdateWindow_(GadgetID(GadgetID))
EndProcedure
 
Procedure Create_ListIconGadget(ParentID)
  
  
  AddElement(ListGadgets())
 ListGadgets()\ComboBoxT= ListIconComboBox(#PB_Any,ParentID)
 ListGadgets()\ComboBoxN= ListIconComboBox(#PB_Any,ParentID,1)
 ListGadgets()\ComboBoxC= ListIconComboBox(#PB_Any,ParentID,2)
 ListGadgets()\Button= ListIconButton(#PB_Any,ParentID)
 ListGadgets()\Spin= ListIconSpin(#PB_Any,ParentID)
 ListGadgets()\String= ListIconString(#PB_Any,ParentID)
 ListGadgets()\StringEn= ListIconString(#PB_Any,ParentID,1)
 
EndProcedure
 
Procedure Set_ListIconGadget_ItemText(GadgetID,ParentID)
  If GadgetID =Spin()\Spin
    Debug GetGadgetText(Spin()\String)
      SetGadgetItemText(ParentID, currentitem, GetGadgetText(Spin()\String), currentsubitem) 
   Else 
    SetGadgetItemText(ParentID, currentitem, GetGadgetText(GadgetID), currentsubitem) 
 EndIf
EndProcedure  
 
 
Procedure ResizeSubClass(hwnd)
Protected itemrect.RECT  
  RtlZeroMemory_(@itemrect.RECT,SizeOf(RECT)) 
  itemrect\top = currentsubitem 
  SendMessage_(hwnd,#LVM_GETSUBITEMRECT, currentitem, @itemrect)       
  
 ;ForEach ListGadgets()
   ;ResizeListIconGadget(ListGadgets()\ComboBoxT,#PB_Ignore, #PB_Ignore, itemrect\right-itemrect\left-1, #PB_Ignore)
   ;ResizeGadget(ListGadgets()\ComboBoxN,itemrect\left+1, itemrect\top+1, itemrect\right-itemrect\left-1, itemrect\bottom-itemrect\top-1)
  ; ResizeListIconGadget(ListGadgets()\ComboBoxC,itemrect\left+1, itemrect\top+1, itemrect\right-itemrect\left-1, itemrect\bottom-itemrect\top-1)
  ;Next
  ;ResizeSpinGadget_(2, itemrect\left+1, itemrect\top+1, itemrect\right-itemrect\left-1, itemrect\bottom-itemrect\top-1) 
  ;InvalidateRect_(GadgetID(1),0,1)
  ;InvalidateRect_(GadgetID(SpinGadget_),0,1)
EndProcedure
 
Procedure Set_ListIconGadget(hwnd,currentitem,currentsubitem,x,y,w,h)
 
  ;StringGadget
     If currentitem =0
        ResizeListIconGadget(ListGadgets()\String, x, y+2, w-x-1, h-y-3) 
        SetGadgetText(ListGadgets()\StringEn,GetGadgetItemText(0,currentitem,currentsubitem))
        
        
        ElseIf currentitem =12
        ResizeListIconGadget(ListGadgets()\String, x, y+2, w-x-1, h-y-3) 
        SetGadgetText(ListGadgets()\String,GetGadgetItemText(0,currentitem,currentsubitem))
        
        
        ElseIf currentitem =1
        ;SpinGadget
        ElseIf currentitem =2 Or currentitem =3 Or currentitem =4 Or currentitem =5
        ResizeListIconGadget(ListGadgets()\Spin, x, y+2, (w-x)-1, h-y-3) 
        SetGadgetText(Spin()\String,GetGadgetItemText(0,currentitem,currentsubitem))
        
        
        ElseIf currentitem =6
        ;ButtonGadget
        ElseIf currentitem =7 Or currentitem =8 Or currentitem =9 Or currentitem =10 Or currentitem =21 Or currentitem =24
        ResizeListIconGadget(ListGadgets()\Button, (x)+(w-x)-(h-y-4), y+1, h-y-4, h-y-1) 
       ; SetGadgetText(8,"...")
        
        ;откючаем эти строки
        ElseIf currentitem =11
         
        ElseIf currentitem =26
        
        ;Combobox
        ElseIf currentitem =28
        ResizeListIconGadget(ListGadgets()\ComboBoxC, x, y+2, w-x-1, h-y-3) 
        SetGadgetText(ListGadgets()\ComboBoxC,GetGadgetItemText(0,currentitem,currentsubitem))
        
        ;Combobox
        ElseIf currentitem =29
        ResizeListIconGadget(ListGadgets()\ComboBoxN, x, y+2, w-x-1, h-y-3) 
        SetGadgetText(ListGadgets()\ComboBoxN,GetGadgetItemText(0,currentitem,currentsubitem))
         
       ;ComboboxGadget 
       Else
        ResizeListIconGadget(ListGadgets()\ComboBoxT, x, y+2, w-x-1, h-y-3) 
        SetGadgetText(ListGadgets()\ComboBoxT,GetGadgetItemText(0,currentitem,currentsubitem))
        
      EndIf
EndProcedure  
 
 
 
 
Procedure SubClassProc(hwnd, msg, wparam, lparam) 
  Protected result,cp.POINT,HitInfo.LVHITTESTINFO,itemrect.RECT , *nmHEADER.HD_NOTIFY
  result = CallWindowProc_(oldproc, hwnd, msg, wparam, lparam) 
  If msg = #WM_RBUTTONDOWN Or msg = #WM_LBUTTONDOWN ;Or msg = #WM_CREATE
    GetCursorPos_(@cp.POINT) 
    MapWindowPoints_(0,hwnd,@cp,1) 
   HitInfo.LVHITTESTINFO 
    Hitinfo\pt\x = cp\x 
    HitInfo\pt\y = cp\y 
    SendMessage_(hwnd,#LVM_SUBITEMHITTEST ,0,@HitInfo) 
    If hitinfo\isubitem = 1 And HitInfo\iItem >= 0 ;если шелкнули по 1 стольбцу
       currentitem    = hitinfo\iitem 
       currentsubitem = hitinfo\isubitem+1 
       RtlZeroMemory_(@itemrect.RECT,SizeOf(RECT)) 
       itemrect\top = hitinfo\iSubItem+1 
       SendMessage_(hwnd,#LVM_GETSUBITEMRECT, hitinfo\iitem, @itemrect) 
     Set_ListIconGadget(hwnd,currentitem,currentsubitem,itemrect\left, itemrect\top, itemrect\right, itemrect\bottom)
      
     ElseIf hitinfo\isubitem = 2 And HitInfo\iItem >= 0 ;если шелкнули по 2 стольбцу
      currentitem    = hitinfo\iitem 
      currentsubitem = hitinfo\isubitem 
      RtlZeroMemory_(@itemrect.RECT,SizeOf(RECT)) 
      itemrect\top = hitinfo\iSubItem 
      SendMessage_(hwnd,#LVM_GETSUBITEMRECT, hitinfo\iitem, @itemrect) 
      
      Set_ListIconGadget(hwnd,currentitem,currentsubitem,itemrect\left, itemrect\top, itemrect\right, itemrect\bottom)
        
     Else :HideListIconGadget(1) :EndIf 
     
  ElseIf msg=#WM_HSCROLL Or msg=#WM_VSCROLL 
    ResizeSubClass(hwnd)
  ElseIf msg=#WM_NOTIFY 
    *nmHEADER.HD_NOTIFY = lParam 
    Select *nmHEADER\hdr\code 
      Case #HDN_ITEMCHANGING
        ResizeSubClass(hwnd)
   EndSelect 
 
  EndIf 
  
  ProcedureReturn result 
  
EndProcedure 
 
Procedure DrawItemProc(hwnd, msg, wparam, lparam)
 Protected i ,text$,hpen,WhiteBrush,*lpmis.MEASUREITEMSTRUCT
  Select msg
  Case #WM_DRAWITEM 
   Global *lpdis.DRAWITEMSTRUCT = lparam 
   Global  Dim itemrect.RECT(3) 
     
   For i = 0 To 3 
        RtlZeroMemory_(@itemrect(i),SizeOf(RECT)) 
        itemrect(i)\top = i 
        SendMessage_(*lpdis\hwndItem, #LVM_GETSUBITEMRECT, *lpdis\itemid, @itemrect(i)) 
        text$ = GetGadgetItemText(GetDlgCtrlID_(*lpdis\hwndItem), *lpdis\itemid, i) 
        
        If *lpdis\itemid=1 Or *lpdis\itemid=6 Or *lpdis\itemid=11 Or *lpdis\itemid=26
          hpen = CreatePen_(#PS_SOLID, 1, $DEC4B0); цвет рамки
          WhiteBrush = CreateSolidBrush_($DEC4B0) ; цвет строки
        Else
          
          
          If currentitem = *lpdis\itemid
            hpen = CreatePen_(#PS_SOLID, 1, $E59D56); цвет рамки выбранной 
          WhiteBrush = GetStockObject_(#HOLLOW_BRUSH) ; Прозрачная кисть.
          WhiteBrush = CreateSolidBrush_($F4D4B4) ; цвет строк 
          
        Else   
           hpen = CreatePen_(#PS_SOLID, 1, $FAE6E6); цвет рамки
          WhiteBrush = GetStockObject_(#HOLLOW_BRUSH) ; Прозрачная кисть.
        WhiteBrush = CreateSolidBrush_($FFF8F8) ; цвет строк
        
      EndIf
      
        EndIf
        
        SetBkMode_(*lpdis\hDC, #TRANSPARENT) ;убрать белый фон
        SelectObject_(*lpdis\hDC, hpen);
        ;SelectObject_(*lpdis\hDC, GetStockObject_(#NULL_PEN)) ; убрать рамку вокруг строки
        
        SelectObject_(*lpdis\hDC, WhiteBrush) 
        Rectangle_(*lpdis\hDC, itemrect(i)\left+1, itemrect(i)\top+1, itemrect(i)\right, itemrect(i)\bottom) 
        
        TextOut_(*lpdis\hDC, itemrect(i)\left+6, itemrect(i)\top+5, text$, Len(text$)) 
 
        DeleteObject_(hpen)
        DeleteObject_(WhiteBrush) 
        
 
      Next  
      ;как решить вот эту проблему ??????????????????????????????????????
      ;если строку 360 закоментировать при растягивании мерцаний нету
      ;но зато при выборе другово пункта старый остается закрашеным 
      ;а если оставить при переходе все вроде норма но при растягивании сильно мерцает
        InvalidateRect_(hwnd,0,0) :UpdateWindow_(hwnd) 
        
  Case #WM_MEASUREITEM 
    
      *lpmis.MEASUREITEMSTRUCT = lparam 
      *lpmis\itemheight = 22
      
  EndSelect   
  
     
 EndProcedure 
  
Procedure MainWindowCallBack(hwnd, msg, wparam, lparam) 
 Protected result 
  DrawItemProc(hwnd, msg, wparam, lparam)
 result = #PB_ProcessPureBasicEvents 
  Select msg 
    Case #WM_SIZE
      RedrawWindow_(WindowID(0), 0, 0, #RDW_UPDATENOW|#RDW_ALLCHILDREN) ; с начало убирает мерцание Окна
      ResizeGadget(10,3,3, WindowWidth(0)-6,WindowHeight(0)-6) 
       
      ResizeGadget(0,0,0, GadgetWidth(10)+1,GadgetHeight(10)+1+26) 
      ;SetGadgetItemAttribute(0, -1,#PB_ListIcon_ColumnWidth , GadgetWidth(10)-233,0)
      ;SetGadgetItemAttribute(0, -1,#PB_ListIcon_ColumnWidth , GadgetWidth(10)-104,1)
      SetGadgetItemAttribute(0, -1,#PB_ListIcon_ColumnWidth , GadgetWidth(10)-133,2)
       ;SetGadgetItemAttribute(0, 2,#PB_ListIcon_ColumnWidth , 100,0)
       
      
   
      
 
  EndSelect 
  
  ProcedureReturn result 
  
EndProcedure 
 
 
OpenWindow(0,0,0,259,760,"",$CF0001) 
;Create_ListIconGadgets(0)
 
;{
ContainerGadget(10, 0,0,0,0, #PB_Container_Flat)
  
ListIconGadget(0,0,0,0,0,"",0,#LVS_OWNERDRAWFIXED|#PB_ListIcon_FullRowSelect) 
SetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE)&~#WS_EX_CLIENTEDGE); убираем рамку
 
;SetGadgetItemColor(0,  5, #PB_Gadget_BackColor,  $00FFFF, -1)
oldproc = SetWindowLongPtr_(GadgetID(0), #GWL_WNDPROC, @SubClassProc()) 
AddGadgetColumn(0,1,"Название",130) 
AddGadgetColumn(0,2,"Значение",100) 
SetGadgetColor(0,#PB_Gadget_BackColor, $DEC4B0) ; установить цветь фона
    
;{
AddGadgetItem(0, -1, Chr(10) + "Name" + Chr(10) + "Window" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "РАЗМЕРЫ ОКНА" + Chr(10) + "" + Chr(10) ) 
 
AddGadgetItem(0, -1, Chr(10) + "Left" + Chr(10) + "5" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "Top" + Chr(10) + "5" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "Width" + Chr(10) + "350" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "Height" + Chr(10) + "200" + Chr(10)  )
 
AddGadgetItem(0, -1, Chr(10) + "ВИД ОКНА  " + Chr(10) + "" + Chr(10)  ) 
 
AddGadgetItem(0, -1, Chr(10) + "BackColor" + Chr(10) + "" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "BackgraundImage" + Chr(10) + "" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "Cursor" + Chr(10) + "Default" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "Font" + Chr(10) + "" + Chr(10)  ) 
 
AddGadgetItem(0, -1, Chr(10) + "СТИЛЬ ОКНА  " + Chr(10) + "" + Chr(10)  ) 
 
AddGadgetItem(0, -1, Chr(10) + "Caption" + Chr(10) + "Window" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "Visible" + Chr(10) + "True" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "Enable" + Chr(10) + "True" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "ControlBox" + Chr(10) + "True" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "CloseBox" + Chr(10) + "True" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "MaximizeBox" + Chr(10) + "True" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "MinimizeBox" + Chr(10) + "True" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "HelpBox" + Chr(10) + "False" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "SizeBox" + Chr(10) + "True" + Chr(10)   ) 
AddGadgetItem(0, -1, Chr(10) + "Icon" + Chr(10) + "" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "ShowIcon" + Chr(10) + "True" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "ShowInTaskbar" + Chr(10) + "True" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "Opacity" + Chr(10) + "100%" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "RighttoLeft" + Chr(10) + "False" + Chr(10)  ) 
 
AddGadgetItem(0, -1, Chr(10) + "ПОВЕДЕНИЕ ОКНА  " + Chr(10) + "" + Chr(10)  ) 
 
AddGadgetItem(0, -1, Chr(10) + "TopMost" + Chr(10) + "False" + Chr(10) ) 
AddGadgetItem(0, -1, Chr(10) + "StartPosition" + Chr(10) + "CenterScreen" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "WindowState" + Chr(10) + "Normal" + Chr(10)  ) 
AddGadgetItem(0, -1, Chr(10) + "AllowDrop" + Chr(10) + "False" + Chr(10)   ) 
AddGadgetItem(0, -1, Chr(10) + "AutoScroll" + Chr(10) + "False" + Chr(10) ) 
;}
 
 Create_ListIconGadget(0)
 
;SpinGadget_(2,5, 183, 100, 20, 0, 2000,13,0) :SetParent_(GadgetID(SpinGadget_),GadgetID(0)) :HideSpinGadget_(2,1)
 
 
 
 
 
CloseGadgetList()
SetWindowCallback(@MainWindowCallBack()) 
;SetGadgetItemAttribute(0, 1,#PB_ListIcon_ColumnWidth , GadgetWidth(0)-232,-1)
;ResizeGadget(0,-2,-26, GadgetWidth(10)+1,GadgetHeight(10)+1+26) 
 
ResizeGadget(10,3,3, WindowWidth(0)-6,WindowHeight(0)-6) 
;}
 
 
 
Repeat 
Global EventID = WaitWindowEvent() 
  Select EventID 
    Case #PB_Event_Gadget 
      ;Debug EventGadget()
      If currentitem <>1 And currentitem <>6 And currentitem <>11 And currentitem <>26 And currentsubitem>1
        Select EventGadget() 
          Case ListGadgets()\ComboBoxT 
            Set_ListIconGadget_ItemText(ListGadgets()\ComboBoxT,0)
          Case ListGadgets()\ComboBoxN 
            Set_ListIconGadget_ItemText(ListGadgets()\ComboBoxN,0) 
          Case ListGadgets()\ComboBoxC 
            Set_ListIconGadget_ItemText(ListGadgets()\ComboBoxC,0) 
          Case ListGadgets()\String 
            Set_ListIconGadget_ItemText(ListGadgets()\String,0)
          Case ListGadgets()\StringEn 
            Set_ListIconGadget_ItemText(ListGadgets()\StringEn,0)
          Case spin()\String
            Set_ListIconGadget_ItemText(spin()\String,0)
          Case ListGadgets()\Button
            ;Set_ListIconGadget_ItemText(ListGadgets()\Spin,0)
         Debug "Button"
        EndSelect 
      EndIf
 
   
  EndSelect 
Until EventID = #WM_CLOSE

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
; Project name : PropertyGridGadget 
; File Name : PropertyGridGadget.pb 
; File version: 1.1.3
; Programming : OK 
; Programmed by : Guimauve 
; Date : 09-10-2012 
; Last Update : 03-12-2012 
; PureBasic code : 5.00 
; Platform : Windows, Linux, MacOS X 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; Programming notes : 
; 
; 1. This PropertyGrigGadget is based on the original work  
;    done by Danilo (PureBasic English Forum). 
; 
; 2. The CheckBoxGadget and the OptionGadget (Added) don't 
;    have a Description Gadget and Item Gadget. They are 
;    created has a Description gadget. 
; 
; 3. It possible to select Section and Item by Index number. 
;    Remember, Section Index number start at 0 and Item Index 
;    number start at 0 for each Section. 
; 
; 4. The Item creation outside a Section is no longer  
;    possible. (See "What is planned" about this point.) 
; 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; What is planned (No date about when this will be added) : 
; 
; 1. PopupMenu to Open/Collapse/Lock/Unlock all Section.  
; 
; 2. A possibility to add 3-4 gadgets has item. (For the moment 
;    only 2 gadgets are possible.) 
; 
; 3. A better way to handle event and maybe Run User procedures 
;    on specific Gadgets events. 
; 
; 4. A possibility to add user Data to all items. 
; 
; 5. Restore the possibility to add Items without Section. 
; 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; Change for V1.0.1 : 
; 
; Removed : ClearPropertyGridGadgetSections() 
; Added : DisablePropertyGridSubItem() --> "Private" Macro 
; Added : ClearPropertyGridGadgetSection() 
; Added : ClearPropertyGridGadget() 
; Added : DisablePropertyGridGadgetSection() 
; Added : AddPropertyGridTextGadget() 
; 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; Change for V1.1.0 : 
; 
; New field in structure : PropertyGridSubItem
; Modified : Private_RelocatePropertyGridSubItem()
; Modified : Private_RelocatePropertyGridItem()
; New parameter : AddPropertyGridStringGadget()
; New parameter : AddPropertyGridButtonGadget()
; New parameter : AddPropertyGridComboBoxGadget()
; New parameter : AddPropertyGridSpinGadget()
; New parameter : AddPropertyGridTrackBarGadget()
; New parameter : AddPropertyGridProgressBarGadget()
; Added : AddPropertyGridListIconGadget() --> Thanks to Andre
; 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; Change for V1.1.1 : 
; 
; Modified : AddPropertyGridStringGadget() --> Return ItemHandle
; Modified : AddPropertyGridButtonGadget() --> Return ItemHandle
; Modified : AddPropertyGridCheckBoxGadget() --> Return DescriptionHandle
; Modified : AddPropertyGridOptionGadget() --> Return DescriptionHandle
; Modified : AddPropertyGridTextGadget() --> Return DescriptionHandle
; Modified : AddPropertyGridComboBoxGadget() --> Return ItemHandle
; Modified : AddPropertyGridSpinGadget() --> Return ItemHandle
; Modified : AddPropertyGridTrackBarGadget() --> Return ItemHandle
; Modified : AddPropertyGridProgressBarGadget() --> Return ItemHandle
; Modified : AddPropertyGridListIconGadget() --> Return DescriptionHandle or ItemHandle
;
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; Change for V1.1.2 :
;
; New field in structure : PropertyGridSubItem
; Modification : The CheckBox, Option, Text and ListIcon without
;                description now use all of the SubItem width space
;
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; Change for V1.1.3 :
;
; Enhancement : The Use of "EnableExplicit" is now supported
; Modified : AddPropertyGridSection() now return the Open/Close button handle
; Added : GetPropertyGridSectionOpenCloseHandle() to get the Open/Close button handle
;
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
 
EnableExplicit 
 
CompilerSelect #PB_Compiler_OS
    
  CompilerCase #PB_OS_Windows
    #PropertyGrid_SectionFont = "Arial"
    #PropertyGrid_DefaultItemHeight = 20
    #PropertyGrid_SectionFontSize   = 10
    
  CompilerCase #PB_OS_Linux
    #PropertyGrid_SectionFont = "Mint Spirit"
    #PropertyGrid_DefaultItemHeight = 30
    #PropertyGrid_SectionFontSize   = 10
    
  CompilerCase #PB_OS_MacOS
    #PropertyGrid_SectionFont = "Arial"
    #PropertyGrid_DefaultItemHeight = 25
    #PropertyGrid_SectionFontSize   = 14
    
  CompilerDefault ; future
    #PropertyGrid_SectionFont = "Arial"
    #PropertyGrid_DefaultItemHeight = 20
    #PropertyGrid_SectionFontSize   = 12
    
CompilerEndSelect
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Dйclaration de la Structure <<<<<
 
Structure PropertyGridSubItem
 
  DescriptionGadget.i
  DescriptionGadgetHeight.i
  ItemGadget.i
  ItemGadgetHeight.i
 
EndStructure
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les observateurs <<<<<
 
Macro GetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA)
  
  PropertyGridSubItemA\DescriptionGadget
  
EndMacro
 
Macro GetPropertyGridSubItemDescriptionGadgetHeight(PropertyGridSubItemA)
  
  PropertyGridSubItemA\DescriptionGadgetHeight
  
EndMacro
 
Macro GetPropertyGridSubItemItemGadget(PropertyGridSubItemA)
  
  PropertyGridSubItemA\ItemGadget
  
EndMacro
 
Macro GetPropertyGridSubItemItemGadgetHeight(PropertyGridSubItemA)
  
  PropertyGridSubItemA\ItemGadgetHeight
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les mutateurs <<<<<
 
Macro SetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA, P_DescriptionGadget)
  
  GetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA) = P_DescriptionGadget
  
EndMacro
 
Macro SetPropertyGridSubItemDescriptionGadgetHeight(PropertyGridSubItemA, P_DescriptionGadgetHeight)
  
  GetPropertyGridSubItemDescriptionGadgetHeight(PropertyGridSubItemA) = P_DescriptionGadgetHeight
  
EndMacro
 
Macro SetPropertyGridSubItemItemGadget(PropertyGridSubItemA, P_ItemGadget)
  
  GetPropertyGridSubItemItemGadget(PropertyGridSubItemA) = P_ItemGadget
  
EndMacro
 
Macro SetPropertyGridSubItemItemGadgetHeight(PropertyGridSubItemA, P_ItemGadgetHeight)
  
  GetPropertyGridSubItemItemGadgetHeight(PropertyGridSubItemA) = P_ItemGadgetHeight
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opйrateur Reset <<<<<
 
Macro ResetPropertyGridSubItem(PropertyGridSubItemA)
  
  If IsGadget(GetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA))
    FreeGadget(GetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA))
    SetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA, 0)
    SetPropertyGridSubItemDescriptionGadgetHeight(PropertyGridSubItemA, 0)
  EndIf
  
  If IsGadget(GetPropertyGridSubItemItemGadget(PropertyGridSubItemA))
    FreeGadget(GetPropertyGridSubItemItemGadget(PropertyGridSubItemA))
    SetPropertyGridSubItemItemGadget(PropertyGridSubItemA, 0)
    SetPropertyGridSubItemItemGadgetHeight(PropertyGridSubItemA, 0)
  EndIf
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opйrateur Disable <<<<<
 
Macro DisablePropertyGridSubItem(PropertyGridSubItemA, P_State)
  
  If IsGadget(GetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA))
    DisableGadget(GetPropertyGridSubItemDescriptionGadget(PropertyGridSubItemA), P_State)
  EndIf
  
  If IsGadget(GetPropertyGridSubItemItemGadget(PropertyGridSubItemA))
    DisableGadget(GetPropertyGridSubItemItemGadget(PropertyGridSubItemA), P_State)
  EndIf
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Code gйnйrй en : 00.004 secondes (17500.00 lignes/seconde) <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Dйclaration de la Structure <<<<<
 
Structure PropertyGridItem
 
  SectionDescriptionGadget.i
  SectionButtonGadget.i
  IsSection.i
  Opened.i ; Special : Toggle
  List SubItems.PropertyGridSubItem()
 
EndStructure
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les observateurs <<<<<
 
Macro GetPropertyGridItemSectionDescriptionGadget(PropertyGridItemA)
  
  PropertyGridItemA\SectionDescriptionGadget
  
EndMacro
 
Macro GetPropertyGridItemSectionButtonGadget(PropertyGridItemA)
  
  PropertyGridItemA\SectionButtonGadget
  
EndMacro
 
Macro GetPropertyGridItemIsSection(PropertyGridItemA)
  
  PropertyGridItemA\IsSection
  
EndMacro
 
Macro GetPropertyGridItemOpened(PropertyGridItemA)
  
  PropertyGridItemA\Opened
  
EndMacro
 
Macro GetPropertyGridItemSubItems(PropertyGridItemA)
  
  PropertyGridItemA\SubItems()
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les mutateurs <<<<<
 
Macro SetPropertyGridItemSectionDescriptionGadget(PropertyGridItemA, P_SectionDescriptionGadget)
  
  GetPropertyGridItemSectionDescriptionGadget(PropertyGridItemA) = P_SectionDescriptionGadget
  
EndMacro
 
Macro SetPropertyGridItemSectionButtonGadget(PropertyGridItemA, P_SectionButtonGadget)
  
  GetPropertyGridItemSectionButtonGadget(PropertyGridItemA) = P_SectionButtonGadget
  
EndMacro
 
Macro SetPropertyGridItemIsSection(PropertyGridItemA, P_IsSection)
  
  GetPropertyGridItemIsSection(PropertyGridItemA) = P_IsSection
  
EndMacro
 
Macro SetPropertyGridItemOpened(PropertyGridItemA, P_Opened)
  
  GetPropertyGridItemOpened(PropertyGridItemA) = P_Opened
  
EndMacro
 
Macro SetPropertyGridItemSubItems(PropertyGridItemA, P_SubItems)
  
  CopyPropertyGridSubItem(P_SubItems, GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les macros complйmentaires pour les Listes chaоnйes <<<<<
 
Macro AddPropertyGridItemSubItemsElement(PropertyGridItemA)
  
  AddElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro AddPropertyGridItemSubItemsElementEx(PropertyGridItemA, P_Element)
  
  AddElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  SetPropertyGridItemSubItems(PropertyGridItemA, P_Element)
  
EndMacro
 
Macro InsertPropertyGridItemSubItemsElement(PropertyGridItemA)
  
  InsertElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro InsertPropertyGridItemSubItemsElementEx(PropertyGridItemA, P_Element)
  
  InsertElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  SetPropertyGridItemSubItems(PropertyGridItemA, P_Element)
  
EndMacro
 
Macro SelectPropertyGridItemSubItemsElement(PropertyGridItemA, Position)
  
  SelectElement(GetPropertyGridItemSubItems(PropertyGridItemA), Position)
  
EndMacro
 
Macro PreviousPropertyGridItemSubItemsElement(PropertyGridItemA)
  
  PreviousElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro NextPropertyGridItemSubItemsElement(PropertyGridItemA)
  
  NextElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro FirstPropertyGridItemSubItemsElement(PropertyGridItemA)
  
  FirstElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro LastPropertyGridItemSubItemsElement(PropertyGridItemA)
  
  LastElement(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro PopListPropertyGridItemSubItemsPosition(PropertyGridItemA)
  
  PopListPosition(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro PushListPropertyGridItemSubItemsPosition(PropertyGridItemA)
  
  PushListPosition(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro DeletePropertyGridItemSubItemsElement(PropertyGridItemA, Flag = 0)
  
  DeleteElement(GetPropertyGridItemSubItems(PropertyGridItemA), Flag)
  
EndMacro
 
Macro ListPropertyGridItemSubItemsSize(PropertyGridItemA)
  
  ListSize(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro ResetPropertyGridItemSubItemsList(PropertyGridItemA)
  
  ResetList(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro ListPropertyGridItemSubItemsIndex(PropertyGridItemA)
  
  ListIndex(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
Macro ClearPropertyGridItemSubItemsList(PropertyGridItemA)
  
  ClearList(GetPropertyGridItemSubItems(PropertyGridItemA))
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les opйrateurs spйciaux <<<<<
 
Macro TogglePropertyGridItemOpened(PropertyGridItemA)
  
  SetPropertyGridItemOpened(PropertyGridItemA, GetPropertyGridItemOpened(PropertyGridItemA) ! 1)
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opйrateur Reset <<<<<
 
Macro ResetPropertyGridItem(PropertyGridItemA)
  
  If IsGadget(GetPropertyGridItemSectionDescriptionGadget(PropertyGridItemA))
    FreeGadget(GetPropertyGridItemSectionDescriptionGadget(PropertyGridItemA))
    SetPropertyGridItemSectionDescriptionGadget(PropertyGridItemA, 0)
  EndIf
  
  If IsGadget(GetPropertyGridItemSectionButtonGadget(PropertyGridItemA))
    FreeGadget(GetPropertyGridItemSectionButtonGadget(PropertyGridItemA))
    SetPropertyGridItemSectionButtonGadget(PropertyGridItemA, 0)
  EndIf
  
  SetPropertyGridItemIsSection(PropertyGridItemA, 0)
  SetPropertyGridItemOpened(PropertyGridItemA, 0)
  
  ForEach GetPropertyGridItemSubItems(PropertyGridItemA)
    ResetPropertyGridSubItem(GetPropertyGridItemSubItems(PropertyGridItemA))
  Next
  
  ClearPropertyGridItemSubItemsList(PropertyGridItemA)
  
  ClearStructure(PropertyGridItemA, PropertyGridItem)
  InitializeStructure(PropertyGridItemA, PropertyGridItem)
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Code gйnйrй en : 00.012 secondes (19000.00 lignes/seconde) <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Dйclaration de la Structure <<<<<
 
Structure PropertyGridData
 
  ItemHeight.i
  Font.i
  BackColor.l
  FrontColor.l
  List Items.PropertyGridItem()
 
EndStructure
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les observateurs <<<<<
 
Macro GetPropertyGridDataItemHeight(PropertyGridDataA)
  
  PropertyGridDataA\ItemHeight
  
EndMacro
 
Macro GetPropertyGridDataFont(PropertyGridDataA)
  
  PropertyGridDataA\Font
  
EndMacro
 
Macro GetPropertyGridDataBackColor(PropertyGridDataA)
  
  PropertyGridDataA\BackColor
  
EndMacro
 
Macro GetPropertyGridDataFrontColor(PropertyGridDataA)
  
  PropertyGridDataA\FrontColor
  
EndMacro
 
Macro GetPropertyGridDataItems(PropertyGridDataA)
  
  PropertyGridDataA\Items()
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les mutateurs <<<<<
 
Macro SetPropertyGridDataItemHeight(PropertyGridDataA, P_ItemHeight)
  
  GetPropertyGridDataItemHeight(PropertyGridDataA) = P_ItemHeight
  
EndMacro
 
Macro SetPropertyGridDataFont(PropertyGridDataA, P_Font)
  
  GetPropertyGridDataFont(PropertyGridDataA) = P_Font
  
EndMacro
 
Macro SetPropertyGridDataBackColor(PropertyGridDataA, P_BackColor)
  
  GetPropertyGridDataBackColor(PropertyGridDataA) = P_BackColor
  
EndMacro
 
Macro SetPropertyGridDataFrontColor(PropertyGridDataA, P_FrontColor)
  
  GetPropertyGridDataFrontColor(PropertyGridDataA) = P_FrontColor
  
EndMacro
 
Macro SetPropertyGridDataItems(PropertyGridDataA, P_Items)
  
  CopyPropertyGridItem(P_Items, GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les macros complйmentaires pour les Listes chaоnйes <<<<<
 
Macro AddPropertyGridDataItemsElement(PropertyGridDataA)
  
  AddElement(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro AddPropertyGridDataItemsElementEx(PropertyGridDataA, P_Element)
  
  AddElement(GetPropertyGridDataItems(PropertyGridDataA))
  SetPropertyGridDataItems(PropertyGridDataA, P_Element)
  
EndMacro
 
Macro InsertPropertyGridDataItemsElement(PropertyGridDataA)
  
  InsertElement(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro InsertPropertyGridDataItemsElementEx(PropertyGridDataA, P_Element)
  
  InsertElement(GetPropertyGridDataItems(PropertyGridDataA))
  SetPropertyGridDataItems(PropertyGridDataA, P_Element)
  
EndMacro
 
Macro SelectPropertyGridDataItemsElement(PropertyGridDataA, Position)
  
  SelectElement(GetPropertyGridDataItems(PropertyGridDataA), Position)
  
EndMacro
 
Macro PreviousPropertyGridDataItemsElement(PropertyGridDataA)
  
  PreviousElement(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro NextPropertyGridDataItemsElement(PropertyGridDataA)
  
  NextElement(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro FirstPropertyGridDataItemsElement(PropertyGridDataA)
  
  FirstElement(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro LastPropertyGridDataItemsElement(PropertyGridDataA)
  
  LastElement(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro PopListPropertyGridDataItemsPosition(PropertyGridDataA)
  
  PopListPosition(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro PushListPropertyGridDataItemsPosition(PropertyGridDataA)
  
  PushListPosition(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro DeletePropertyGridDataItemsElement(PropertyGridDataA, Flag = 0)
  
  DeleteElement(GetPropertyGridDataItems(PropertyGridDataA), Flag)
  
EndMacro
 
Macro ListPropertyGridDataItemsSize(PropertyGridDataA)
  
  ListSize(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro ResetPropertyGridDataItemsList(PropertyGridDataA)
  
  ResetList(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro ListPropertyGridDataItemsIndex(PropertyGridDataA)
  
  ListIndex(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
Macro ClearPropertyGridDataItemsList(PropertyGridDataA)
  
  ClearList(GetPropertyGridDataItems(PropertyGridDataA))
  
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opйrateur Reset <<<<<
 
Macro ResetPropertyGridData(PropertyGridDataA)
 
  SetPropertyGridDataItemHeight(PropertyGridDataA, 0)
  
  If IsFont(GetPropertyGridDataFont(PropertyGridDataA))
    FreeFont(GetPropertyGridDataFont(PropertyGridDataA))
    SetPropertyGridDataFont(PropertyGridDataA, 0)
  EndIf
    
  SetPropertyGridDataBackColor(PropertyGridDataA, 0)
  SetPropertyGridDataFrontColor(PropertyGridDataA, 0)
 
  ForEach GetPropertyGridDataItems(PropertyGridDataA)
    ResetPropertyGridItem(GetPropertyGridDataItems(PropertyGridDataA))
  Next
  
  ClearPropertyGridDataItemsList(PropertyGridDataA)
  
  ClearStructure(PropertyGridDataA, PropertyGridData)
  InitializeStructure(PropertyGridDataA, PropertyGridData)
 
EndMacro
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Code gйnйrй en : 00.014 secondes (15642.86 lignes/seconde) <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
Procedure Private_PropertyGrid_OpenClose_Image(IsOpen.b)
  
  Static OpenImage.i, CloseImage.i, OneShot.b
  
  If OneShot = #False
    
    OpenImage = CreateImage(#PB_Any, 11, 11, 32)
    
    If OpenImage And StartDrawing(ImageOutput(OpenImage))
      Box(0, 0, 11, 11, RGB($FF, $FF, $FF))
      DrawingMode(#PB_2DDrawing_Outlined)
      Box(0, 0, 11, 11, RGB($00, $00, $00))
      LineXY(2, 5, 8, 5, RGB($00, $00, $00))
      StopDrawing()
    EndIf
    
    CloseImage = CreateImage(#PB_Any, 11, 11, 32)
    
    If CloseImage And StartDrawing(ImageOutput(CloseImage))
      Box(0,0,11,11,RGB($FF,$FF,$FF))
      DrawingMode(#PB_2DDrawing_Outlined)
      Box(0,0,11,11,RGB($00,$00,$00))
      LineXY(2,5,8,5,RGB($00,$00,$00))
      LineXY(5,2,5,8,RGB($00,$00,$00))
      StopDrawing()
    EndIf
    
    OneShot = #True
    
  EndIf
 
  If IsOpen
    ProcedureReturn OpenImage
  Else
    ProcedureReturn CloseImage
  EndIf
  
EndProcedure
 
Procedure Private_HidePropertyGridSubItem(*PropertyGridSubItemA.PropertyGridSubItem, IsOpen.b)
  
  HideGadget(GetPropertyGridSubItemDescriptionGadget(*PropertyGridSubItemA), 1 - IsOpen)
  
  If IsGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA))
    HideGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA), 1 - IsOpen)
  EndIf
 
EndProcedure
 
Procedure Private_RelocatePropertyGridSubItem(*PropertyGridSubItemA.PropertyGridSubItem, Index, Width, Height)
  
  CompilerSelect #PB_Compiler_OS
      
    CompilerCase #PB_OS_Windows 
      
      If GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA) <> -1
        ResizeGadget(GetPropertyGridSubItemDescriptionGadget(*PropertyGridSubItemA), 20, Index,  width >> 1 - 40, GetPropertyGridSubItemDescriptionGadgetHeight(*PropertyGridSubItemA) - 1)
      Else
        ResizeGadget(GetPropertyGridSubItemDescriptionGadget(*PropertyGridSubItemA), 20, Index,  width - 42, GetPropertyGridSubItemDescriptionGadgetHeight(*PropertyGridSubItemA) - 1)
      EndIf
      
      If IsGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA))
        ResizeGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA), width >> 1 - 19, Index, width >> 1 - 4, GetPropertyGridSubItemItemGadgetHeight(*PropertyGridSubItemA) - 1)
      EndIf
      
    CompilerCase #PB_OS_Linux
      
      If GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA) <> -1
        ResizeGadget(GetPropertyGridSubItemDescriptionGadget(*PropertyGridSubItemA), 20, Index - 12, width >> 1 - 40, GetPropertyGridSubItemDescriptionGadgetHeight(*PropertyGridSubItemA) - 1)
      Else
        ResizeGadget(GetPropertyGridSubItemDescriptionGadget(*PropertyGridSubItemA), 20, Index - 12, width - 42, GetPropertyGridSubItemDescriptionGadgetHeight(*PropertyGridSubItemA) - 1)
      EndIf  
      
      If IsGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA))
        ResizeGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA), width >> 1 - 19, Index - 12, width >> 1 - 4, GetPropertyGridSubItemItemGadgetHeight(*PropertyGridSubItemA) - 1)
      EndIf
      
    CompilerCase #PB_OS_MacOS
      
      If GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA) <> -1
        ResizeGadget(GetPropertyGridSubItemDescriptionGadget(*PropertyGridSubItemA), 20, Index, width >> 1 - 40, GetPropertyGridSubItemDescriptionGadgetHeight(*PropertyGridSubItemA) - 1)
      Else
        ResizeGadget(GetPropertyGridSubItemDescriptionGadget(*PropertyGridSubItemA), 20, Index, width - 40, GetPropertyGridSubItemDescriptionGadgetHeight(*PropertyGridSubItemA) - 1)
      EndIf
      
      If IsGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA))
        ResizeGadget(GetPropertyGridSubItemItemGadget(*PropertyGridSubItemA), width >> 1 - 19, Index, width >> 1 - 4, GetPropertyGridSubItemItemGadgetHeight(*PropertyGridSubItemA) - 1)
      EndIf
      
  CompilerEndSelect
  
EndProcedure
 
Procedure Private_RelocatePropertyGridItem(*PropertyGridItemA.PropertyGridItem, Index, Width, Height)
  
  If GetPropertyGridItemIsSection(*PropertyGridItemA)
    ResizeGadget(GetPropertyGridItemSectionDescriptionGadget(*PropertyGridItemA), 20, Index, Width - 20, Height - 1)
    ResizeGadget(GetPropertyGridItemSectionButtonGadget(*PropertyGridItemA), 4, Index + Height >> 1 - 12, 11, 11)
  Else
    ResizeGadget(GetPropertyGridItemSectionDescriptionGadget(*PropertyGridItemA), 20, Index, Width >> 1 - 40, Height - 1)
    ResizeGadget(GetPropertyGridItemSectionButtonGadget(*PropertyGridItemA), Width >> 1 - 19, Index, Width >> 1 - 4, Height - 1)
  EndIf
  
  Index + Height
  
  If GetPropertyGridItemOpened(*PropertyGridItemA) = #True
    
    ForEach GetPropertyGridItemSubItems(*PropertyGridItemA)
      Private_RelocatePropertyGridSubItem(GetPropertyGridItemSubItems(*PropertyGridItemA), Index, Width, Height)
      Index + GetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(*PropertyGridItemA))
    Next
    
  EndIf
  
  ProcedureReturn Index
EndProcedure
 
Procedure Private_Create_PropertyGridItem(*PropertyGridItemA.PropertyGridItem, SectionName.s, Width, Height, FrontColor, BackColor, IsOpen.b, FontID)
  
  SetPropertyGridItemSectionDescriptionGadget(*PropertyGridItemA, TextGadget(#PB_Any, 20, 0, width - 20, height, SectionName))
  SetPropertyGridItemSectionButtonGadget(*PropertyGridItemA, ImageGadget(#PB_Any,0,0,0,0,ImageID(Private_PropertyGrid_OpenClose_Image(IsOpen))))
  SetPropertyGridItemIsSection(*PropertyGridItemA, #True)
  SetPropertyGridItemOpened(*PropertyGridItemA, IsOpen)
 
  SetGadgetFont(GetPropertyGridItemSectionDescriptionGadget(*PropertyGridItemA), FontID(FontID))
  
  If BackColor <> -1
    SetGadgetColor(GetPropertyGridItemSectionDescriptionGadget(*PropertyGridItemA), #PB_Gadget_BackColor, BackColor)
  EndIf
  
  If FrontColor <> -1
    SetGadgetColor(GetPropertyGridItemSectionDescriptionGadget(*PropertyGridItemA), #PB_Gadget_FrontColor, FrontColor)
  EndIf
  
EndProcedure
 
Procedure Private_Update_PropertyGrid(PropertyGridID)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  Protected Index.l, Height.l, Width.l
  
  If *PropertyGridDataA <> #Null
    
    Index = 0
    Height = GetPropertyGridDataItemHeight(*PropertyGridDataA)
    Width  = GadgetWidth(PropertyGridID)
    
    ForEach GetPropertyGridDataItems(*PropertyGridDataA)
      Index = Private_RelocatePropertyGridItem(GetPropertyGridDataItems(*PropertyGridDataA), Index, Width, Height)
    Next
    
    If GetGadgetAttribute(PropertyGridID, #PB_ScrollArea_InnerHeight) <> Index
      SetGadgetAttribute(PropertyGridID, #PB_ScrollArea_InnerHeight, Index)
    EndIf
    
    If GetGadgetAttribute(PropertyGridID, #PB_ScrollArea_InnerWidth) <> Width - 20
      SetGadgetAttribute(PropertyGridID, #PB_ScrollArea_InnerWidth, Width - 20)
    EndIf
    
  EndIf
  
EndProcedure
 
Procedure Private_PropertyGridItem_EventManagement(*PropertyGridDataA.PropertyGridData, *PropertyGridItemA.PropertyGridItem)
  
  Protected SomethingHappen.b = #False
  
  If EventGadget() = GetPropertyGridItemSectionButtonGadget(*PropertyGridItemA) And EventType() = #PB_EventType_LeftClick
    
    TogglePropertyGridItemOpened(GetPropertyGridDataItems(*PropertyGridDataA))
    SetGadgetState(GetPropertyGridItemSectionButtonGadget(*PropertyGridItemA), ImageID(Private_PropertyGrid_OpenClose_Image(GetPropertyGridItemOpened(*PropertyGridItemA))))
    
    ForEach GetPropertyGridItemSubItems(*PropertyGridItemA)
      Private_HidePropertyGridSubItem(GetPropertyGridItemSubItems(*PropertyGridItemA), GetPropertyGridItemOpened(*PropertyGridItemA))
    Next
 
    SomethingHappen = #True
    
  EndIf
  
  ProcedureReturn SomethingHappen
EndProcedure
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les commandes а utiliser partout <<<<<
 
Procedure PropertyGridGadget(PropertyGridID, x, y, Width, Height, FrontColor.l = -1, BackColor.l = -1, Flags = #PB_ScrollArea_Flat)
  
  Protected *PropertyGridDataA.PropertyGridData, GadgetHandle.i
  
  GadgetHandle = ScrollAreaGadget(PropertyGridID, x, y, Width, Height, Width - 20, 1, #PropertyGrid_DefaultItemHeight, Flags)
    
    If GadgetHandle
      
      If PropertyGridID = #PB_Any
        PropertyGridID = GadgetHandle
      EndIf
      
      If FrontColor <> -1
        SetGadgetColor(PropertyGridID, #PB_Gadget_FrontColor, FrontColor)
      EndIf
      
      If BackColor <> -1
        SetGadgetColor(PropertyGridID, #PB_Gadget_BackColor, BackColor)
      EndIf
      
      *PropertyGridDataA = AllocateMemory(SizeOf(PropertyGridData))
      
      If *PropertyGridDataA = #Null
        FreeGadget(PropertyGridID)
        ProcedureReturn 0
      EndIf
      
      InitializeStructure(*PropertyGridDataA, PropertyGridData)
      
      SetPropertyGridDataItemHeight(*PropertyGridDataA, #PropertyGrid_DefaultItemHeight)
      SetPropertyGridDataFont(*PropertyGridDataA, LoadFont(#PB_Any, #PropertyGrid_SectionFont, #PropertyGrid_SectionFontSize, #PB_Font_Bold))
      SetPropertyGridDataBackColor(*PropertyGridDataA, BackColor)
      SetPropertyGridDataFrontColor(*PropertyGridDataA, FrontColor)
      
      SetGadgetData(PropertyGridID, *PropertyGridDataA)
      
    CloseGadgetList()
    
  EndIf
  
  ProcedureReturn PropertyGridID
EndProcedure
 
Procedure AddPropertyGridSection(PropertyGridID, SectionName.s, IsOpen.b = #True)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    LastPropertyGridDataItemsElement(*PropertyGridDataA)
    
    If AddPropertyGridDataItemsElement(*PropertyGridDataA)
      
      InitializeStructure(GetPropertyGridDataItems(*PropertyGridDataA), PropertyGridItem)
      
      OpenGadgetList(PropertyGridID)
        
        Private_Create_PropertyGridItem(GetPropertyGridDataItems(*PropertyGridDataA), SectionName, GadgetWidth(PropertyGridID), GetPropertyGridDataItemHeight(*PropertyGridDataA), GetPropertyGridDataFrontColor(*PropertyGridDataA), GetPropertyGridDataBackColor(*PropertyGridDataA), IsOpen, GetPropertyGridDataFont(*PropertyGridDataA))
        
      CloseGadgetList()
      
      Private_Update_PropertyGrid(PropertyGridID)
      
      ProcedureReturn GetPropertyGridItemSectionButtonGadget(GetPropertyGridDataItems(*PropertyGridDataA))
      
    EndIf
    
  EndIf
  
EndProcedure
 
Procedure CheckPropertyGridSectionClick(PropertyGridID)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    ForEach GetPropertyGridDataItems(*PropertyGridDataA)
      If Private_PropertyGridItem_EventManagement(*PropertyGridDataA, GetPropertyGridDataItems(*PropertyGridDataA))
        Private_Update_PropertyGrid(PropertyGridID)
        Break
      EndIf
    Next
    
    Private_Update_PropertyGrid(PropertyGridID)
    
  EndIf
  
EndProcedure
 
Procedure SetPropertyGridSectionName(PropertyGridID, SectionNo, SectionName.s)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        SetGadgetText(GetPropertyGridItemSectionDescriptionGadget(GetPropertyGridDataItems(*PropertyGridDataA)), SectionName)
      EndIf
      
    EndIf    
    
  EndIf
  
EndProcedure
 
Procedure.s GetPropertyGridSectionName(PropertyGridID, SectionNo)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        ProcedureReturn GetGadgetText(GetPropertyGridItemSectionDescriptionGadget(GetPropertyGridDataItems(*PropertyGridDataA)))
      EndIf
      
    EndIf    
    
  EndIf
  
EndProcedure
 
Procedure GetPropertyGridSectionOpenCloseHandle(PropertyGridID, SectionNo)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        ProcedureReturn GetPropertyGridItemSectionButtonGadget(GetPropertyGridDataItems(*PropertyGridDataA))
      EndIf
      
    EndIf    
    
  EndIf
  
EndProcedure
 
Procedure SetPropertyGridSectionItemDescription(PropertyGridID, SectionNo, ItemNo, Description.s)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        If ItemNo >= 0 And ItemNo <= ListPropertyGridItemSubItemsSize(GetPropertyGridDataItems(*PropertyGridDataA)) - 1
          
          If SelectPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA), ItemNo)
            
            If IsGadget(GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
              SetGadgetText(GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))), Description)
            EndIf
            
          EndIf
          
        EndIf
        
      EndIf
      
    EndIf    
    
  EndIf
  
EndProcedure
 
Procedure SetPropertyGridSectionItemContent(PropertyGridID, SectionNo, ItemNo, Content.s)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        If ItemNo >= 0 And ItemNo <= ListPropertyGridItemSubItemsSize(GetPropertyGridDataItems(*PropertyGridDataA)) - 1
          
          If SelectPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA), ItemNo)
            
            If IsGadget(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
              SetGadgetText(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))), Content)
            EndIf
            
          EndIf
          
        EndIf
        
      EndIf
      
    EndIf
    
  EndIf
  
EndProcedure
 
Procedure.s GetPropertyGridSectionItemContent(PropertyGridID, SectionNo, ItemNo)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        If ItemNo >= 0 And ItemNo <= ListPropertyGridItemSubItemsSize(GetPropertyGridDataItems(*PropertyGridDataA)) - 1
          
          If SelectPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA), ItemNo)
            
            If IsGadget(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
              ProcedureReturn GetGadgetText(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
            EndIf
            
          EndIf
          
        EndIf
        
      EndIf
      
    EndIf
    
  EndIf
  
EndProcedure
 
Procedure SetPropertyGridSectionItemGadgetState(PropertyGridID, SectionNo, ItemNo, State)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        If ItemNo >= 0 And ItemNo <= ListPropertyGridItemSubItemsSize(GetPropertyGridDataItems(*PropertyGridDataA)) - 1
          
          If SelectPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA), ItemNo)
            
            If GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))) = -1
              
              If IsGadget(GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
                SetGadgetState(GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))), State)
                ProcedureReturn 1 
              Else
                ProcedureReturn -1
              EndIf
              
            Else
              
              If IsGadget(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
                SetGadgetState(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))), State)
                ProcedureReturn 1 
              Else
                ProcedureReturn -1
              EndIf
              
            EndIf
            
          EndIf
          
        EndIf
        
      EndIf
      
    EndIf
    
  EndIf
  
EndProcedure
 
Procedure GetPropertyGridSectionItemGadgetHandle(PropertyGridID, SectionNo, ItemNo)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        If ItemNo >= 0 And ItemNo <= ListPropertyGridItemSubItemsSize(GetPropertyGridDataItems(*PropertyGridDataA)) - 1
          
          If SelectPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA), ItemNo)
            
            If GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))) = -1
              
              If IsGadget(GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
                ProcedureReturn GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
              Else
                ProcedureReturn -1
              EndIf
              
            Else
              
              If IsGadget(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
                ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
              Else
                ProcedureReturn -1
              EndIf
              
            EndIf
            
          EndIf
          
        EndIf
        
      EndIf
      
    EndIf
    
  EndIf
  
EndProcedure
 
Procedure GetPropertyGridSectionItemGadgetState(PropertyGridID, SectionNo, ItemNo)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        If ItemNo >= 0 And ItemNo <= ListPropertyGridItemSubItemsSize(GetPropertyGridDataItems(*PropertyGridDataA)) - 1
          
          If SelectPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA), ItemNo)
            
            If GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))) = -1
              
              If IsGadget(GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
                ProcedureReturn GetGadgetState(GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
              Else
                ProcedureReturn -1
              EndIf
              
            Else
              
              If IsGadget(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
                ProcedureReturn GetGadgetState(GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))))
              Else
                ProcedureReturn -1
              EndIf
              
            EndIf
            
          EndIf
          
        EndIf
        
      EndIf
      
    EndIf
    
  EndIf
  
EndProcedure
 
Procedure GetPropertyGridSectionCount(PropertyGridID)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  Protected SectionCount.l = -1
  
  If *PropertyGridDataA <> #Null
    SectionCount = ListPropertyGridDataItemsSize(*PropertyGridDataA)
  EndIf
  
  ProcedureReturn SectionCount
EndProcedure
 
Procedure AddPropertyGridStringGadget(PropertyGridID, SectionNo, Description.s = "", Content.s = "", Flags = 0, P_ItemGadgetHeight = #PropertyGrid_DefaultItemHeight)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Description, #PB_String_ReadOnly))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Content, Flags))
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridButtonGadget(PropertyGridID, SectionNo, Description.s = "", Content.s = "", Flags = 0, P_ItemGadgetHeight = #PropertyGrid_DefaultItemHeight)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Description, #PB_String_ReadOnly))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), ButtonGadget(#PB_Any, 0, 0, 0, 0, Content, Flags))
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridCheckBoxGadget(PropertyGridID, SectionNo, Description.s = "", Flags = 0)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), CheckBoxGadget(#PB_Any, 0, 0, 0, 0, Description, Flags))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), -1)
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridOptionGadget(PropertyGridID, SectionNo, Description.s = "")
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), OptionGadget(#PB_Any, 0, 0, 0, 0, Description))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), -1)
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridTextGadget(PropertyGridID, SectionNo, Description.s = "", Flags = 0)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), TextGadget(#PB_Any, 0, 0, 0, 0, Description, Flags))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), -1)
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridComboBoxGadget(PropertyGridID, SectionNo, Description.s = "", Flags = 0, P_ItemGadgetHeight = #PropertyGrid_DefaultItemHeight)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Description, #PB_String_ReadOnly))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), ComboBoxGadget(#PB_Any, 0, 0, 0, 0, Flags))
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridGadgetItems(PropertyGridID, SectionNo, ItemNo, Position, Text.s)
  
  Protected GadgetHandle = GetPropertyGridSectionItemGadgetHandle(PropertyGridID, SectionNo, ItemNo)
  
  If IsGadget(GadgetHandle)
    AddGadgetItem(GadgetHandle, Position, Text)
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridSpinGadget(PropertyGridID, SectionNo, Description.s = "", Minimum = 0, Maximum = 100, Flags = #PB_Spin_Numeric | #PB_Spin_ReadOnly, P_ItemGadgetHeight = #PropertyGrid_DefaultItemHeight)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Description, #PB_String_ReadOnly))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), SpinGadget(#PB_Any, 0, 0, 0, 0, Minimum, Maximum, Flags))
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridTrackBarGadget(PropertyGridID, SectionNo, Description.s = "", Minimum = 0, Maximum = 100, Flags = #PB_TrackBar_Ticks, P_ItemGadgetHeight = #PropertyGrid_DefaultItemHeight)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Description, #PB_String_ReadOnly))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), TrackBarGadget(#PB_Any, 0, 0, 0, 0, Minimum, Maximum, Flags))
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridProgressBarGadget(PropertyGridID, SectionNo, Description.s = "", Minimum = 0, Maximum = 100, Flags = #PB_ProgressBar_Smooth, P_ItemGadgetHeight = #PropertyGrid_DefaultItemHeight)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA))
        
        OpenGadgetList(PropertyGridID)
          SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Description, #PB_String_ReadOnly))
          SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
          SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), ProgressBarGadget(#PB_Any, 0, 0, 0, 0, Minimum, Maximum, Flags))
          SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        
      EndIf
      
    EndIf    
 
  EndIf
  
EndProcedure
 
Procedure AddPropertyGridListIconGadget(PropertyGridID, SectionNo, Description.s = "", Title.s = "", TitleWidth = 100, Flags = 0, P_ItemGadgetHeight = 100) 
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID) 
  
  If *PropertyGridDataA <> #Null 
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1 
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo) 
        
        AddPropertyGridItemSubItemsElement(GetPropertyGridDataItems(*PropertyGridDataA)) 
        
        OpenGadgetList(PropertyGridID)
          
          If Description <> ""
            SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), StringGadget(#PB_Any, 0, 0, 0, 0, Description, #PB_String_ReadOnly)) 
            SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), #PropertyGrid_DefaultItemHeight)
            SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), ListIconGadget(#PB_Any, 0, 0, 0, 0, Title, TitleWidth, Flags))
            SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
          Else
            SetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), ListIconGadget(#PB_Any, 0, 0, 0, 0, Title, TitleWidth, Flags)) 
            SetPropertyGridSubItemDescriptionGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
            SetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), -1)
            SetPropertyGridSubItemItemGadgetHeight(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), P_ItemGadgetHeight)
          EndIf
          
        CloseGadgetList()
        
        Private_Update_PropertyGrid(PropertyGridID)
        
        If Description <> ""
          ProcedureReturn GetPropertyGridSubItemItemGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        Else
          ProcedureReturn GetPropertyGridSubItemDescriptionGadget(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
        EndIf
        
      EndIf
      
    EndIf    
    
  EndIf
  
EndProcedure 
 
Procedure DisablePropertyGridGadgetSection(PropertyGridID, SectionNo, State)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        OpenGadgetList(PropertyGridID)
          
          ForEach GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))
            DisablePropertyGridSubItem(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)), State)
          Next
          
        CloseGadgetList()
        
      EndIf
      
    EndIf    
    
  EndIf
  
EndProcedure
 
Procedure ClearPropertyGridGadgetSection(PropertyGridID, SectionNo)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    If SectionNo >= 0 And SectionNo <= ListPropertyGridDataItemsSize(*PropertyGridDataA) - 1
      
      If SelectPropertyGridDataItemsElement(*PropertyGridDataA, SectionNo)
        
        OpenGadgetList(PropertyGridID)
          
          ForEach GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA))
            ResetPropertyGridSubItem(GetPropertyGridItemSubItems(GetPropertyGridDataItems(*PropertyGridDataA)))
          Next
          
          ClearPropertyGridItemSubItemsList(GetPropertyGridDataItems(*PropertyGridDataA))
          
        CloseGadgetList()
        
      EndIf
      
    EndIf    
    
    Private_Update_PropertyGrid(PropertyGridID)
    
  EndIf
  
EndProcedure
 
Procedure ClearPropertyGridGadget(PropertyGridID)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    
    ForEach GetPropertyGridDataItems(*PropertyGridDataA)
      ResetPropertyGridItem(GetPropertyGridDataItems(*PropertyGridDataA))
    Next
    
    ClearPropertyGridDataItemsList(*PropertyGridDataA)
    InitializeStructure(*PropertyGridDataA, PropertyGridData)
    
  EndIf
  
EndProcedure
 
Procedure FreePropertyGridGadget(PropertyGridID)
  
  Protected *PropertyGridDataA.PropertyGridData = GetGadgetData(PropertyGridID)
  
  If *PropertyGridDataA <> #Null
    ResetPropertyGridData(*PropertyGridDataA)
    FreeMemory(*PropertyGridDataA)
    FreeGadget(PropertyGridID)
  EndIf
  
EndProcedure
 
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; <<<<< !!! WARNING - YOU ARE NOW IN A TESTING ZONE - WARNING !!! <<<<<  
; <<<<< !!! WARNING - THIS CODE SHOULD BE COMMENTED - WARNING !!! <<<<<  
; <<<<< !!! WARNING - BEFORE THE FINAL COMPILATION. - WARNING !!! <<<<<  
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
 
Enumeration 
  
  #PropertyGrid 
  #Btn_Clear_Section 
  
EndEnumeration 
 
If OpenWindow(0,0,0,800,600,"PropertyGrid",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
  
  HideWindow(0, #True) 
  
  PropertyGridGadget(#PropertyGrid, 5, 5, 390, 500) 
  ButtonGadget(#Btn_Clear_Section, 5, 510,150,30, "Clear Section 2") 
  
  Define SectionID.l, EventID.i
  
  For SectionID = 0 To 5 
    
    AddPropertyGridSection(#PropertyGrid, "Section 0" + Str(SectionID)) 
    AddPropertyGridCheckBoxGadget(#PropertyGrid, SectionID, "Is Visible") 
    AddPropertyGridStringGadget(#PropertyGrid, SectionID, "String", "Enter a text here !") 
    AddPropertyGridComboBoxGadget(#PropertyGrid, SectionID, "ComboBox") 
    AddPropertyGridButtonGadget(#PropertyGrid, SectionID, "Button", "Button 0" + Str(SectionID)) 
    AddPropertyGridSpinGadget(#PropertyGrid, SectionID, "SpinGadget", 0, 15) 
    AddPropertyGridTrackBarGadget(#PropertyGrid, SectionID, "TrackBar") 
    AddPropertyGridProgressBarGadget(#PropertyGrid, SectionID, "ProgressBar")
    
    If SectionID % 2 = 0 
      AddPropertyGridListIconGadget(#PropertyGrid, SectionID, "ListIcon", "Column 1")
    Else
      AddPropertyGridListIconGadget(#PropertyGrid, SectionID, "", "Column 1")
    EndIf
    
    SetPropertyGridSectionItemGadgetState(#PropertyGrid, SectionID, 0, 1) 
    
    AddPropertyGridGadgetItems(#PropertyGrid, SectionID, 2, 0, "ComboBox Item 0") 
    AddPropertyGridGadgetItems(#PropertyGrid, SectionID, 2, 1, "ComboBox Item 1") 
    AddPropertyGridGadgetItems(#PropertyGrid, SectionID, 2, 2, "ComboBox Item 2") 
    AddPropertyGridGadgetItems(#PropertyGrid, SectionID, 2, 3, "ComboBox Item 3") 
    
    SetPropertyGridSectionItemGadgetState(#PropertyGrid, SectionID, 5, Random(90) + 5) 
    SetPropertyGridSectionItemGadgetState(#PropertyGrid, SectionID, 6, Random(90) + 5) 
    
    ; Add items to the listicon (GadgetID = 7):
    AddPropertyGridGadgetItems(#PropertyGrid, SectionID, 7, 0, "ListIcon Item 0")
    AddPropertyGridGadgetItems(#PropertyGrid, SectionID, 7, 1, "ListIcon Item 1")
    AddPropertyGridGadgetItems(#PropertyGrid, SectionID, 7, 2, "ListIcon Item 2")
    
  Next 
  
  HideWindow(0, #False) 
  
  Repeat 
    
    EventID = WaitWindowEvent() 
    
    Select EventID 
        
      Case #PB_Event_Menu 
        
        Select EventMenu() 
            
        EndSelect 
        
      Case #PB_Event_Gadget 
        
        Select EventGadget() 
            
          Case #PropertyGrid 
            
          Case #Btn_Clear_Section 
            ClearPropertyGridGadgetSection(#PropertyGrid, 2) 
            
          Case GetPropertyGridSectionItemGadgetHandle(#PropertyGrid, 0, 0) 
            If GetPropertyGridSectionItemGadgetState(#PropertyGrid, 0, 0) 
              Debug "CheckBox Section 0 Item 1 (Is Visible)" 
            Else 
              Debug "CheckBox Section 0 Item 1 (Is not visible)" 
            EndIf 
            
          Default 
            CheckPropertyGridSectionClick(#PropertyGrid) 
            
        EndSelect 
        
    EndSelect 
    
  Until EventID = #PB_Event_CloseWindow 
  
  FreePropertyGridGadget(#PropertyGrid) 
  
EndIf 
 
; <<<<<<<<<<<<<<<<<<<<<<< 
; <<<<< END OF FILE <<<<< 
; <<<<<<<<<<<<<<<<<<<<<<<