TCBROWSE vs TWBROWSE

[Ollie]

I am using TCBROWSE as follows:

Code: Select all  Expand view  RUN

REDEFINE COLUMN BROWSE oListBox ID 40 OF oDlg_Search UPDATE ON DblClick ( lResult := .T., oDlg_Search:End() )
   oListBox:lLogicDrop := .T.
   oListBox:lMChange := .F.
   oListBox:nFreeze := 2
   oListBox:hBmpCursor := LoadBitmap( GetResources(), "Finger" )
     oListBox:cAlias = cAlias
     ADD COLUMN TO BROWSE oListBox DATA RECNO() SIZE 30 NOBAR CENTER HEADER "Rec"
     ADD TO BROWSE oListBox DATA COMPANY HEADER "Company" OEM ALIGN LEFT WIDTH 100 PIXELS
   ADD TO BROWSE oListBox DATA SURNAME HEADER "Contact" OEM ALIGN LEFT WIDTH 100 PIXELS
   ADD TO BROWSE oListBox DATA TEL1 HEADER "Tel" OEM ALIGN LEFT WIDTH 100 PIXELS

I am unable to resize the columns. Should I be using TWBROWSE class? Is it better?

[Antonio Linares]

Ollie,

> oListBox:nFreeze := 2

Aren't you able to resize from column 3 on ?

[Ollie]

Correct, I cannot resize any. (Even if I remove the line:

oListBox:nFreeze := 2

altogether.

[Enrico Maria Giordano]

oListBox:lMChange := .F.

oListBox:lMChange := .T.

or just remove that line (lMChange is .T. by default).

EMG

[Ollie]

Thanks, I can re-size the columns now.

But now I have a 'finger' cursor when I pause the mouse over the column headers.

Can I remove it, or 'do something' useful with it - what was it intended for?

[Antonio Linares]

Ollie,

You can have an "Action" to be executed for each column when the column header is clicked. Use the clause ... ACTION <uAction1,...>

[Ollie]

And if I don't want to use the ACTION, can I 'remove' the 'finger' cursor?

[Antonio Linares]

Ollie,

In Class TCBrowse Method MouseMove() comment out this CursorHand() call:

Code: Select all  Expand view  RUN

                  if AScan( ::GetColSizes(),;
                       { | nColumn | nColPixPos += nColumn,;
                       nColPix >= nColPixPos - 2 .and. ;
                       nColPix <= nColPixPos + 2 }, ::nColPos ) != 0
                     CursorWE()
                  else
                     CursorHand()
                  endif