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)