Tom
Enumerating Controls on a Tab? January 01, 2009 02:48PM |
Jimbo
Re: Enumerating Controls on a Tab? January 01, 2009 04:57PM |
Moderator |
// Fill the table with all window controls // Entry: sParent Name of parent element - in this case it is the Window's name! PROCEDURE FillAll(sParent) // First window control sControlName is string=EnumSubElement(sParent,enumFirst) WHILE sControlName<>"" // Full control name sFullName is string=sParent+"."+sControlName // Retrieve the element type nType is int={sFullName,indGPW}..Type // If this is a control group or a tab IF nType=typTab OR nType=typTable OR nType=typToolbar THEN // List the controls placed inside FillAll(sFullName) ELSE // No action if this is a MENU item IF nType<>typMenuOption THEN // Add the element to the table AddElement(sFullName,nType,{sFullName,indGPW}..Caption,{sFullName,indGPW}..Group) END END // Next control sControlName=EnumSubElement(sParent) END
Tom
Re: Enumerating Controls on a Tab? January 02, 2009 02:18AM |