2 x DXE_Tabpage : Bemerkung
Verfasst: Do, 12. Mär 2015 2:36
man kann ja 2 x XbpTabpage() auf einer DrawingArea haben.
wenn man DXE_Tabpage benutzt gibt es DXE_TabCtl() und die Method o:AddItem.
nun wir das Tabpage Control durch DXE_TabCtl() repräsentiert also nur 1 x während es bis zu 255 Tabs + Body haben kann.
wenn man also 2 x DXE_Tabpage haben will so muss man 2 eigene Class schreiben wo man DXE_Tabpage() einbaut.
wenn man DXE_Tabpage benutzt gibt es DXE_TabCtl() und die Method o:AddItem.
nun wir das Tabpage Control durch DXE_TabCtl() repräsentiert also nur 1 x während es bis zu 255 Tabs + Body haben kann.
wenn man also 2 x DXE_Tabpage haben will so muss man 2 eigene Class schreiben wo man DXE_Tabpage() einbaut.
Code: Alles auswählen
::oViewLeft := TabViewLeft():New():Create()
::oViewRight := TabViewRight():New():Create()
::oViewLeft:AddTab("Left", nIcon1)
::oViewRight:AddTab("Right,nIcon2)
CLASS TabViewLeft FROM XbpDialog
CLASS VAR oTabCtl // nur 1 x mal für alle
CLASS VAR aTabs // nur 1 x mal für alle
INLINE METHOD Init( oParent,oOwner,aPos,aSize,aPresParam,lVisible )
INLINE METHOD Create( oParent,oOwner,aPos,aSize,aPresParam,lVisible )
INLINE METHOD Destroy()
INLINE METHOD AddTab(cCaption,nRes)
CLASS TabViewRight FROM XbpDialog
CLASS VAR oTabCtl // nur 1 x mal für alle
CLASS VAR aTabs // nur 1 x mal für alle
INLINE METHOD Init( oParent,oOwner,aPos,aSize,aPresParam,lVisible )
INLINE METHOD Create( oParent,oOwner,aPos,aSize,aPresParam,lVisible )
INLINE METHOD Destroy()
INLINE METHOD AddTab(cCaption,nRes)- DXE_DualTabView.JPG (184.67 KiB) 3160 mal betrachtet