Search found 9 matches: lclrflag

Return to advanced search

Example

... color oLbxin:setColor( {14}, {{ CLR_HEADERTOP, CLR_HEADERBOT }} ) // degraded headers background color // Show alternating color in rows lClrFlag:=.f. oLbxin:bSkip := {|nRecs| nRecs := oInv:skipper( nRecs) } oLbxin:setColor( {2}, {{|| IIF(ADSKeyNo() % 2 == 0, CLR_PANE1, CLR_PANE2 ) }} )
by TimStone
Sat Nov 08, 2008 1:24 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Can I get an example of tsbrowse+ADS+TDatabase objects
Replies: 2
Views: 629

How to show OemToAnsi in xBrw. (when no Col's defined) ?

... := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ( if(nRecs == nil, nRecs := 1,), ; nRecs:= (1)->(dbskipper( ...
by ukoenig
Sun Feb 17, 2008 1:40 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: How to show OemToAnsi in xBrw. (when no Col's defined) ?
Replies: 0
Views: 498

Refresh vars in Office2007-Bar from MDI-Child ? => solved

... --------------------------- FUNCTION PROG_4(oDlg,aCtrl,nPage,aCors) LOCAL oFile1, oBrw5 LOCAL oFilter, oSUCH, aSCOPE, oINDKEY LOCAL oOemAnsi, lClrFlag :=.f. LOCAL nSCOPE := 1 LOCAL cFilter := SPACE( 70 ) LOCAL cFELD := "", l_INDEX := .F. LOCAL lOemAnsi := .T., cOemAnsi := "" LOCAL cFile1 := ...
by ukoenig
Fri Feb 01, 2008 6:51 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Refresh vars in Office2007-Bar from MDI-Child ? => solved
Replies: 3
Views: 927

Problem with xBrowse in MDI-Childs

... := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:lOemToAnsi := lOemAnsi // New OemToAnsi oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) // Error-Message // NO WORKAREA in USE !!!! // as a ARRAYS it is OK // ------------------------------------ ...
by ukoenig
Tue Jan 29, 2008 8:20 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Problem with xBrowse in MDI-Childs
Replies: 3
Views: 1125

... work when the number of visible rows is an odd number. Continuous colors can be seen in many ways of navigation. I think you are referring to my lClrFlag method, not the OrdKeyNo() method. The ordKeyNo() should not be affected by the number of rows visible in the browse. With ordKeyNo() and 13 ...
by James Bott
Tue Jan 29, 2008 6:40 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: XBrowse alternating row colors
Replies: 36
Views: 5612

xBrowse Darstellg. => OemToAnsi ???

... := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ; ( if(nRecs == nil, nRecs := 1,),nRecs:= (1)->(dbskipper( ...
by ukoenig
Fri Jan 25, 2008 2:19 pm
 
Forum: All products support
Topic: xBrowse Darstellg. => OemToAnsi ???
Replies: 0
Views: 1275

AHF,

Here is a skipblock that doesn't use a database object:

oBrw:bSkip:={| nRecs | (nRecs:= (cAlias)->(_dbskipper( nRecs )), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) }

James
by James Bott
Wed Jan 09, 2008 6:02 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Tcbrowse 2 colour one for each line
Replies: 52
Views: 7762

... is an undocumented function _dbskipper() that does return the number of records skipped, so perhaps this could be done without a database object.] lClrFlag:=.f. oLbx:bSkip:={| nRecs | (nRecs:= ::oInvmast:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) } oLbx:nClrPane ...
by James Bott
Thu Nov 15, 2007 11:23 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Tcbrowse 2 colour one for each line
Replies: 52
Views: 7762

Browse

... background color oLbu1:setColor( {14}, {{ CLR_HEADERTOP, CLR_HEADERBOT }} ) // degraded headers background color // Show alternating color in rows lClrFlag:=.f. oLbu1:bSkip:={| nRecs | (nRecs:= oCod:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) } oLbu1:setColor( ...
by TimStone
Wed Oct 10, 2007 10:46 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Suggested enhancement
Replies: 4
Views: 1555

Return to advanced search