-
Berka Frenfert
- PowerBuilder
- Tuesday, 2 May 2023 12:07 PM UTC
As you can see my previous questions were about failure of TypoeOf() function
I used a different way to get specific controls picked from control array without using TypeOf()
Only to pick Datawindow controls and save them in a DataWindow AllDW[] array, i used PowerBuilder's internal Type Casting Operator '=' equal sign.
Declared DataWindow type variable and assigned it each control in a loop
DataWindow TheDW, AllDW[]
But there are only two places in a window where a datawindow control can be found or can be placed.
1- Window itself
2- TabPage of a Tab Control
When i run loop on Windows control array and ignore Tab controls just to pick those datawindows first that are there in window and not on a tab control, the type casting operator ('=' equal sign) works fine. Because we know powerbuilder runtime crashes when statictext control is assigned to a datawindow variable. Which is obvious as default behavior of PB. To avoid crash we use TRY and after TRY if IsValid() function is used to see if DW is a valid datawindow then in case when loop was inspecting statictext in the window control [] array, the DW is not valid and IsValid() function verify that. So this how all other controls are ignored and picked only datawindow controls.
Things are pretty much in good shape so far because loop is ignoring Tab controls.
FOR control_counter = 1 TO UpperBound(TheParentWin.control)
TRY
TheDW = TheParentWin.control[control_counter]
CATCH(RuntimeError RT012)
END TRY
IF IsValid(TheDW) THEN
TheDW
AllDW[UpperBound(AllDW) + 1] = TheDW
Now problem starts when inner loop runs through each control on a tabpage.
The type casting idea with = failed because all of the controls on tabpage were valid as datawindow. What that means is, if there is a static text control on tabpage and i set that to the TheDW variable the assignment becomes valid and IsValid function sees it valid to assign a picture, statictext, groupbox, ole etc. to a datawindow variable.
FOR TabPageChild = 1 TO UpperBound(TheTab.control[Tabpage].control)
TRY
TheDW = TheTab.control[Tabpage].control[TabPageChild]
CATCH(RuntimeError RTE0014)
_errorLog("Crashed In Tab @ " + TheTab.control[Tabpage].control[TabPageChild].ClassName())
END TRYNote: the CATCH block of code is triggered but assignment is also completed as valid statement.
IF IsValid(TheDW) THEN
AllDW[UpperBound(AllDW) + 1] = TheDW
_errorLog("Valid TABDW :" + TheDw.ClassName())Output includes both _errorlogs for every picture, text, ole, dw groupbox etc.
"Crashed In Tab @ "
"Valid TABDW :"
That is absolutely wrong and seems tabpage control[] array is handled different way than window control[] array internally. No idea what went wrong where.
The full script:
w_parent TheParentWin
/// the parent is a valid window reference
TheParentWin = Parent
/// variables
Tab TheTab, TheChildTab
Uo_DW TheDW
Integer control_counter
Integer Tabpage, TabPageChild, TabPageOfChildTab
/// just a log of how many controls are there in control array[]
_errorLog("Start : The object " + TheParentWin.ClassName() + " has total " + String(UpperBound(TheParentWin.control)) + " controls")
/// going through window array ( The main outer loop)
FOR control_counter = 1 TO UpperBound(TheParentWin.control)
SetNull(TheDW)
SetNull(TheTab)
/// either one of the following variables will be valid
/// both cannot be valid at the same time TheDW & TheTab
TRY
TheDW = TheParentWin.control[control_counter]
CATCH(RuntimeError RT012)
SetNull(TheDW)
_errorLog("Crashed In Window @ " + TheParentWin.control[control_counter].ClassName())
END TRY
/// Q: What to do when TheDW is valid?
/// A: DataWindow control goes to an array of type datawindow
/// and also log classname and other things.
IF IsValid(TheDW) THEN
_errorLog("Valid DW :" + TheDW.ClassName() )
SetNull(TheTab)
AllDW[UpperBound(AllDW) + 1] = TheDW
/// get next object
Continue
END IF
/// Object if not a DW, could be a Tab control
TRY
TheTab = TheParentWin.control[control_counter]
CATCH(RuntimeError RT014)
SetNull(TheTab)
END TRY
IF IsValid(TheTab) THEN
/// How many tabpages?
FOR Tabpage = 1 TO UpperBound(TheTab.control[])
/// going inside a tabpage
/// how many controls on each tabpage?
FOR TabPageChild = 1 TO UpperBound(TheTab.control[Tabpage].control)
SetNull(TheDW)
TRY
TheDW = TheTab.control[Tabpage].control[TabPageChild]
CATCH(RuntimeError RTE0014)
_errorLog("Crashed In Tab @ " + TheTab.control[Tabpage].control[TabPageChild].ClassName())
END TRY
IF IsValid(TheDW) THEN
_errorLog("Valid TABDW :" + TheDw.ClassName())
AllDW[UpperBound(AllDW) + 1] = TheDW
// END TRY
END IF
NEXT /// TABPage
NEXT ///TAB
END IF
NEXT
Find Questions by Tag
Helpful?
If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.