Check If An Object Inherits In PowerBuilder gf_check_inherits
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | //check if an object inherits //Function : gf_check_inherits //Parameter : Powerobject apo_check Boolean lb_return = False ClassDefinition lcd_class_def If IsNull(apo_check) Then Return False If Not IsValid(apo_check) Then Return False If IsNull(apo_check.ClassDefinition) Then Return False If Not IsValid(apo_check.ClassDefinition) Then Return False lcd_class_def = apo_check.ClassDefinition Do While Not IsNull(lcd_class_def) And IsValid(lcd_class_def) If Upper(lcd_class_def.Name) = Upper(as_class_name) Then lb_return = True Exit End If lcd_class_def = lcd_class_def.Ancestor Loop Return lb_return |
Good Luck!
Users Today : 153
Users Yesterday : 289
This Month : 3253
This Year : 7610
Total Users : 227704
Views Today : 544
Total views : 943911
Who's Online : 5