Tabcontrol Colors (OpenInsight 32-bit Specific) [Revelation On-Line Wiki]

Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 21 JUL 2005 09:41:47PM Marty Rosenbloom wrote:

OpenInsight 32-bit Specific

Hi,

I am using a tabcontrol. I would like to change the color of the text of the tab that is highlighted. Is this possible?

TIA,

Marty

At 27 JUL 2005 11:22AM K Chen wrote:

I use these codes to bold the font on the tab that has focus and reset the other tab fonts to normal. Modify it to change colors.

On GOTFOCUS Event of the every tab control -

PgNo=Field(CtrlEntId, '_', 2) ;* Get Tab/Page No getting Focus

If Num(PgNo) Then
 CurrFont=Get_Property(CtrlEntId, 'FONT')
 NewFont=CurrFont
 NewFont=700      ;* bold font
 CurrFont=400
 MaxPages=5		;	* 5 Pages (tabs) in window
 Ctrls='
 Props='
 Vals='
 For I=1 to MaxPages
Ctrls := @Window:'.PAGE_':I:'_TAB':@rm
Props := 'FONT':@rm
Vals := If I=PgNo Then NewFont:@rm Else CurrFont:@rm
 Next I
 Ctrls := @Window:'.PAGE_':PgNo:'_TAB'
 Props := 'CHECK'
 Vals  := 1
 Set_Property(Ctrls, Props, Vals)
 Val=Send_Event(@Window, 'PAGE', PgNo)
End

KC

At 30 JUL 2005 11:16AM Marty Rosenbloom wrote:

KC,

Thanks for the nudge in the right direction. I modified it to suit my needs and it works fine.

Thanks,

Marty

At 19 AUG 2005 04:02AM Kauko Laurinolli wrote:

Can't get this work. Can you help?

At 19 AUG 2005 04:08PM dsig _at_ sigafoos.org wrote:

hmmm … it don't work ..

Do you think you could be a little more specific? Have you followed the code through the debugger? what part is failing? Did you modify the code to use your naming convention?

dsig

At 22 AUG 2005 02:35AM Kauko Laurinolli wrote:

It's totally unclear to me what .PAGE_1_TAB - .PAGE_5_TAB in the code example is doing?

I can't find any documentation about referencing the individual tabs in tabcontrol. When I start tabcontrol it's named as TABCONTROL_1. Is it in this case renamed as PAGE?

For I=1 to MaxPages
Ctrls := @Window:'.PAGE_':I:'_TAB':@rm
Props := 'FONT':@rm
Vals := If I=PgNo Then NewFont:@rm Else CurrFont:@rm
Next I

At 22 AUG 2005 09:08AM dbakke@srpcs.com's Don Bakke wrote:

Kauko,

I think the confusion here is because the code that K. Chen posted for Marty works with the "old-school" way of doing tabs in OI. That is, it is using check-box controls and converting them into radio-button controls via the CREATE event.

It appears that you are using the new Tab control that was introduced with OpenInsight 7.1. In your case you cannot change the color of the tab or the font, at least not yet.

dbakke@srpcs.com

SRP Computer Solutions, Inc.

At 22 AUG 2005 07:57PM Kauko Laurinolli wrote:

OK, thanks.

View this thread on the forum...