View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0002608 | JEDI VCL | 00 JVCL Components | public | 2005-02-08 06:03 | 2005-02-08 06:17 |
Reporter | carlosw | Assigned To | AHUser | ||
Priority | normal | Severity | crash | Reproducibility | always |
Status | resolved | Resolution | fixed | ||
Product Version | 3.00 BETA 2 | ||||
Target Version | Fixed in Version | 3.00 | |||
Summary | 0002608: EInvalidCast error in JvTabBar | ||||
Description | When i try to add an Tab from code i get this error Exception class: EInvalidCast Exception address: 007DE4E6 ---------------------------------------------------------------------------------------------------- Stack list, generated 2/8/2005 10:46:53 AM [007DE4E1] JvTabBar.TJvTabBarItems.GetTabBar (Line 1444, "JvTabBar.pas" + 1) + $11 [004029D6] System.ErrorAt (Line 3040, "system.pas" + 3) + $4 [007DE4E1] JvTabBar.TJvTabBarItems.GetTabBar (Line 1444, "JvTabBar.pas" + 1) + $11 [007DE592] JvTabBar.TJvTabBarItems.Notify (Line 1473, "JvTabBar.pas" + 14) + $2 [00425F2B] Classes.TCollection.InsertItem (Line 4071, "classes.pas" + 7) + $A [004258DA] Classes.TCollectionItem.SetCollection (Line 3858, "classes.pas" + 4) + $C [004256AF] Classes.TCollectionItem.Create (Line 3808, "classes.pas" + 1) + $8 [007DE0CE] JvTabBar.TJvTabBarItem.Create (Line 1201, "JvTabBar.pas" + 1) + $4 [00425A24] Classes.TCollection.Add (Line 3921, "classes.pas" + 1) + $B [007DF5EC] cwFormTabBar.TcwFormTabBar.AddForm (Line 103, "cwFormTabBar.pas" + 1) + $9 | ||||
Additional Information | Solution: Typo in GetTabBar: TJvTabBar should by TJvCustomTabBar function TJvTabBarItems.GetTabBar: TJvCustomTabBar; begin -- Result := GetOwner as TJvTabBar; ^^^^^^^^^^ ++ Result := GetOwner as TJvCustomTabBar; end; | ||||
Tags | No tags attached. | ||||