2 x DXE_Tabpage : Bemerkung

Fragen rund um diverse Windows-Versionen, ihr Verhalten unter Xbase++ und den Umgang mit der API

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

2 x DXE_Tabpage : Bemerkung

Beitrag von AUGE_OHR »

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.

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
DXE_DualTabView.JPG (184.67 KiB) 3140 mal betrachtet
gruss by OHR
Jimmy
Antworten