FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Could txbrowse paint as good as tsbrowse ?
Posts: 474
Joined: Sun Oct 30, 2005 06:37 AM
Could txbrowse paint as good as tsbrowse ?
Posted: Sat Mar 11, 2006 02:37 AM

Hi,

The backgroud color result , one line white, the next line light green.

define CLR_1 nRGB( 190, 215, 190 )

define CLR_2 nRGB( 230, 230, 230 )

Tsbrowse:

oBrow:SetColor({ 2, 5, 6, 15 ,11,12},{ { || If( oBrow:nLogicPos % 2 = 0, ;
CLR_1, CLR_2 ) }, CLR_WHITE, CLR_GREEN, CLR_GREEN,CLR_BLUE,CLR_YELLOW })

Txbrowse:
obrow:bClrStd := {||{CLR_BLACK,if(eval(obrow:bbookmark)%2==0, CLR_1, CLR_2 )}}

Best regard!
Shuming Wang

http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651

Continue the discussion