FiveTech Support Forums

::oTC5Tab := TC5Tab():REDEFINE( 304, ::oDlg, RGB(198,219,250), CLR_BLACK, RGB(241,246,254) )
::oTC5Tab:nOption := 2

::oTC5Tab:AddItem( "帳款資料", ,RGB(213,228,252),, "B_Tabs_Deal16", RGB(142,179,231))
::oTC5Tab:AddItem( "發票資料", ,RGB(255,240,198),, "B_Tabs_Invoice16", RGB(255,219,116))

::oTC5Tab:bChanged := { | oTC5Tab |::oTC5Tab_P:SetOption( ::oTC5Tab:nOption ),;
                ::oTC5Tab_P:aDialogs[::oTC5Tab:nOption]:SetColor( 0, ::oTC5Tab:aItems[::oTC5Tab:nOption]:nClrPane2 ),;
                ::oTC5Tab_P:aDialogs[::oTC5Tab:nOption]:Refresh() }

REDEFINE PAGES ::oTC5Tab_P ID 305 OF ::oDlg     ;
         DIALOGS "D_DR_WIN_PayMoneyMsf_FLD11",;
                 "D_DR_WIN_PayMoneyMsf_FLD21"   ;
         FONT oFnt

DEFINE WINDOW oWnd COLOR 0, RGB(142,179,231)

oBar := TC5Tab():New( 10, 10, 760, 30, oWnd, RGB(198,219,250), CLR_BLACK, RGB(241,246,254) )
oBar:nOption := 2

oBar:AddItem( "&Cuarto 1",,RGB(255,240,198),,"bmps\image4.bmp", RGB(255,219,116))
oBar:AddItem( "&Quinto 2",,RGB(255,255,255),,"bmps\image5.bmp" )
oBar:AddItem( "&Sexto 3")
oBar:AddItem( "&Septimo sssss")
oBar:bChanged := {|oBar| oWnd:SetColor( 0, oBar:aItems[oBar:nOption]:nClrPane2 ),oWnd:Refresh() }

oWnd:oTop := oBar
ACTIVATE WINDOW oWnd ON INIT WndCenter( oWnd:hWnd )