›
Welcome to the SRP Forum! Please refer to the SRP Forum FAQ post if you have any questions regarding how the forum works.

Tab border

ColinRuleColinRule
in SRP Tab Control
I am trying the example in the help, and seeing the screenshots there.
My tabs have a line under the tab, I would prefer this to blend.

Please advise how to achieve this.



Qualifier=1:@FM:"2*ICEMATE*OLE*":Tab_CtrlEntID
Call Send_Message(Tab_CtrlEntID,"QUALIFY_EVENT","ALL_OLES",Qualifier)

PaneColour=SYS_PARAMS<198,4>
IF PaneColour="" THEN PaneColour="White"
ColorFill = "Vertical(Red, Red, Border(Grey))"
SWAP "Red" WITH PaneColour IN ColorFill

TabColours=""
TabColours<1,1>="Black" ;TabColours<1,2>=ColorFill
TabColours<3,1>="Blue"


CALL Set_Property(Tab_CtrlEntID,"OLE.TabCount",3)
* CALL Set_Property(Tab_CtrlEntID,"OLE.TabColors[All]",TabColours)
CALL Set_Property(Tab_CtrlEntID,"OLE.Height",-35)
CALL Set_Property(Tab_CtrlEntID,"OLE.FocusOnClick",0)
CALL Set_Property(Tab_CtrlEntID,"OLE.Font","MS Sans Serif":@SVM:9:@SVM:700)
CALL Set_Property(Tab_CtrlEntID,"OLE.SelectFont","MS Sans Serif":@SVM:9:@SVM:700)
* CALL Set_Property(Tab_CtrlEntID,"OLE.CustomPaneColor",ColorFill)
CALL Set_Property(Tab_CtrlEntID,"OLE.TabCaption[1]","Project Summary")
CALL Set_Property(Tab_CtrlEntID,"OLE.TabCaption[2]","Cost Plan")
CALL Set_Property(Tab_CtrlEntID,"OLE.TabCaption[3]","Approx Qtys")

Colors = ""
Colors<1, 2> = "Vertical(Gradient(Red L=80, Red L=90), Border(Red))"
Colors<2, 2> = "Vertical(Gradient(Red L=90, Red L=95), Border(Red))"
Colors<3, 2> = "Vertical(Gradient(Red L=85, Red L=95), Border(Red))"
Colors<4, 1> = "Gray"
Colors<4, 2> = "Vertical(Gradient(Gray L=80, Gray L=90), Border(Gray))"
Colors<5> = "Vertical(Gradient(Red L=95, Red L=80), Border(Red))"
CALL Set_Property(Tab_CtrlEntID, "OLE.TabColors[1]", Colors) ;Swap "Red" with "Green" in Colors
CALL Set_Property(Tab_CtrlEntID, "OLE.TabColors[2]", Colors) ;Swap "Green" with "Blue" in Colors
CALL Set_Property(Tab_CtrlEntID, "OLE.TabColors[3]", Colors)

IF SYS_PARAMS<212> THEN
CALL Set_Property(Tab_CtrlEntID,"OLE.TabVisible[3]",1)
END ELSE
CALL Set_Property(Tab_CtrlEntID,"OLE.TabVisible[3]",0)
END
CALL Set_Property(Tab_CtrlEntID,"OLE.AllowXPTheme",0)

Comments

Sign In or Register to comment.