S
Stefan Marquardt
Guest
That would be very nice, in the moment I only need a routine to iterate through all widget of the current window. I found an example in KB but there it looks like I get all widgets in all windows and not only the current window. How to prevent to iterate through every widget in the abl session? hObject = current-window no-error. RUN WalkChildTree (hObject). PROCEDURE WalkChildTree: DEFINE INPUT PARAMETER phObject AS HANDLE NO-UNDO. DEFINE VARIABLE hNextObject AS HANDLE NO-UNDO. /* Drill down child object chain first */ hNextObject = phObject:FIRST-CHILD NO-ERROR. IF VALID-HANDLE (hNextObject) THEN RUN WalkChildTree (hNextObject). /* Check for siblings and their children. */ hNextObject = phObject:NEXT-SIBLING NO-ERROR. IF VALID-HANDLE (hNextObject) THEN RUN WalkChildTree (hNextObject). /* This object does not have any children or siblings, or the children or siblings have already been processed in the recursive call. Process object information now. */ MESSAGE phObject:name phObject:screen-value VIEW-AS ALERT-BOX INFO BUTTONS OK.*/ end.
Continue reading...
Continue reading...