Tfolderex Tab cursor

[Silvio.Falconi]

why I cannot insert cursor hand into a tab of Tfolderex class ?

[ukoenig]

Silvio,

from my sample :

DEFINE CURSOR oHand HAND

@ 15, 10 FOLDEREX SIZE 260, 200 oFld1 PIXEL ROUND 5 UPDATE ;
PROMPT "Page &1", "Page &2", "Page &3", "Page &4", "&EXIT" OF oDlg1 ;
BITMAPS aBitmaps;
ON PAINT TAB PaintTab( Self, nOption );
ON CHANGE ( nSavePage := oFld1:nOption, ;
IF( nOption == 5, If( MsgYesNo( "Do you want exit??" ), ;
oDlg1:End(), ( ::SetOption( nOldOption ), ::Refresh() ) ), ) ) ;
ON PAINT TEXT( If( nOption == ::nOption .and. nOption == 5, 255, 0 ) );
TOP OPTION 1 ALIGN 0, 0, 0, 0, 0

oFld1:lTransparent := .T.
oFld1:nFolderHeight := 40
oFld1:nSeparator := 5
oFld1:bClrText := {| o, n | 128 }
oFld1:oFont := oFont
oFld1:nOption := 1
oFld1:oCursor := oHand



Your other question about changing the color of the TAB-lines
I couldn't find a solution to change the orange and blue color
These lines are not visible using gradient-tabs.

maybe You can use TAB-gradients ?
( see the results on screenshot from above )

The possible settings :

oFld1:aGradSel := { { 1.0, 3926784, 16777215 }, { 0.1, 3926784, 16777215 } } // Green
oFld1:aGradUnSel := { { 1.0, 16744448, 16777215 }, { 0.1, 16744448, 16777215 } } // Blue
oFld1:aGradOverUnSel := { { 1.0, 12824535, 16777215 }, { 0.1, 12824535, 16777215 } } // Purple
oFld1:aGradOver := { { 1.0, 255, 16777215 }, { 0.1, 255, 16777215 } } // Red
oFld1:aGradDis := { { 1.0, 15790320, 16777215 }, { 0.1, 15790320, 16777215 } } // Grey

best regards
Uwe

[Silvio.Falconi]

I made

Local cCursorTab:= TCursor():New(,'HAND')

oApp():oGrid := TFolderex():New( , , , , oApp():oDlg, , ,, aPrompts)

oApp():oGrid:cursor:=cCursorTab


and this is the error give me

Application
===========
Path and name: C:\WORK\Prg\Archivia\Main.Exe (32 bits)
Size: 6,055,424 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
FiveWin Version: FWHX 16.03
Windows version: 6.1, Build 7600

Time from start: 0 hours 0 mins 6 secs
Error occurred at: 01-04-2016, 17:27:59
Error description: Warning BASE/1005 Message not found: TFOLDEREX:_CURSOR

Stack Calls
===========
Called from: source\rtl\tobject.prg => TFOLDEREX:ERROR( 0 )
Called from: source\rtl\tobject.prg => TFOLDEREX:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TFOLDEREX:_CURSOR( 0 )
Called from: source\PRaccoglito2.prg => RINFRESCA_TAB( 845 )
Called from: source\PRaccoglito2.prg => RACCOGLITORI( 70 )
Called from: source\Main.prg => (b)TAPPLICATION:BUILDBTNBAR( 655 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 650 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 884 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1766 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1041 )
Called from: source\Main.prg => TAPPLICATION:ACTIVATE( 318 )
Called from: source\Main.prg => MAIN( 52 )

[ukoenig]

Silvio,

I think it must be < oCursor >

oApp():oGrid:oCursor:=cCursorTab

oApp():oGrid:cursor :=cCursorTab

best regards
Uwe

[Silvio.Falconi]

right...