FUNCTION CompleteEnd(oDlg)
LOCAL nCount := 0
LOCAL lFolder := .F.
LOCAL oFolder
//First check to see if there is a folder within the dialog
FOR nCount := 1 TO Len(oDlg:aControls)
IF Alltrim( Upper( oDlg:aControls[nCount]:Classname() ) ) == "TFOLDER"
lFolder := .T.
oFolder := oDlg:aControls[nCount]
ENDIF
NEXT
IF lFolder
//Folder Exists, End objects within folders
FOR nCount := 1 TO Len(oFolder:aDialogs)
Aeval(oFolder:aDialogs[nCount]:aControls,{|o| IF(o <> NIL, (Msginfo("FOLDER " + o:ClassName()), o:End()), .T.)})
NEXT
ENDIF
//End objects within dialog
Aeval(oDlg:aControls,{|o| IF(o <> NIL, (Msginfo(o:ClassName()), o:End()), .T.)})
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 86 guests