hi,
also irgendwie ist da wohl ein BUG in XbpTabpage, was ja eigendlich auf
ComCtl.DLL zugreift ...
Ich habe das Beispiel von Alaska über XbpTabpage genommen und
2 Zeilen ersetzt :
Code: Alles auswählen
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
PROCEDURE Main
LOCAL nEvent, mp1, mp2, oXbp
LOCAL oTab1, oTab2, oTab3, oDlg, bActivate
LOCAL oBitmap
SetColor("N/W")
CLS
oBitmap := XbpBitmap():new()
oBitmap:loadFile("C:\ALASKA\XPPW32\RESOURCE\bitmap\ABlue.bmp")
// Dialog mit Desktop als Parent
oDlg:= XbpDialog():new( AppDesktop() )
oDlg:drawingArea:bitmap := oBitmap
oDlg:create( ,, {100,100}, {640,400} )
// Erste TabPage ist maximiert
oTab1 := XbpTabPage():new( oDlg:drawingArea,, {10,10}, {580,320} )
oTab1:minimized := .F.
oTab1:caption := "Kunde"
oTab1:create()
oTab1:TabActivate := ;
{|| oTab2:minimize(), oTab3:minimize(),;
oTab1:maximize(), QOut( oTab1:caption ) }
oXbp:=XbpStatic():new( oTab1,, {20,50}, {540,220} )
//
// das sind die original Zeilen
//
* oXbp:type := XBPSTATIC_TYPE_GROUPBOX
* oXbp:caption := "Kundendaten erfassen"
//
// statt dessen ein Bitmap
//
oXbp:type := XBPSTATIC_TYPE_BITMAP
oXbp:Caption := oBitmap
oXbp:clipSiblings := .T.
oXbp:create()
// Zweite TabPage ist minimiert
oTab2 := XbpTabPage():new( oDlg:drawingArea,, {10,10}, {580,320} )
oTab2:caption := "Auftrag"
oTab2:preOffset := 20
oTab2:postOffset := 60
oTab2:create()
oTab2:TabActivate := ;
{|| oTab1:minimize(), oTab3:minimize(),;
oTab2:maximize(), QOut( oTab2:caption ) }
//
// das sind die original Zeilen
//
* oXbp:=XbpStatic():new( oTab2,, {20,50}, {540,220} )
* oXbp:type := XBPSTATIC_TYPE_GROUPBOX
* oXbp:caption := "Aufträge erfassen"
//
// statt dessen ein XbpDialog
//
oXbp:=XbpDialog():new( oTab2,, {20,50}, {540,220} )
oXbp:Titlebar := .F.
oXbp:drawingArea:bitmap := oBitmap
oXbp:create()
// Dritte TabPage ist minimiert
oTab3 := XbpTabPage():new( oDlg:drawingArea,, {10,10}, {580,320} )
oTab3:caption := "Rechnung"
oTab3:preOffset := 40
oTab3:postOffset := 40
oTab3:create()
oTab3:TabActivate := ;
{|| oTab1:minimize(), oTab2:minimize(),;
oTab3:maximize(), QOut( oTab3:caption ) }
oXbp:=XbpStatic():new( oTab3,, {20,50}, {540,220} )
oXbp:type := XBPSTATIC_TYPE_GROUPBOX
oXbp:caption := "Rechnungen erfassen"
oXbp:create()
// Event loop
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
Ich bekomme auf dem 1st Tab "Kunde" nichts zu sehen ?
gruss by OHR
Jimmy