When i use
REDEFINE COLUMN XBROWSE ..... ARRAY .... AUTOSORT
no sort is functioning, when i click on headers!
Any changes to earlier versions of FWH?
Board index FiveWin for Harbour/xHarbour XBROWSE AUTOSORT Problem
Gunther
Are you refering to 10.8 ?
Richard
It should work.
Please try this one-line code:
If autosort works here there is no reason it does not work in other situations.
Please try this one-line code:
#include "fivewin.ch"
#include "xbrowse.ch"
function main()
XBROWSER Directory() AUTOSORT
return nilIf autosort works here there is no reason it does not work in other situations.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
I have tested:
No reaction of any headerclick!
REDEFINE COLUMN XBROWSE oList OF oWnd ID 100 ARRAY directory() AUTOSORTNo reaction of any headerclick!
If the sample I posted works and your sample does not work, obviously the resource specification is not in conformity with the specifications.
Please try this sample program with the rc file given:
prg file
rc file
screen-shot
Autosort works
Incremental seek also works.
Please check for this 'CONTROL "", 101, "TXBrowse"' in your rc file.
Please try this sample program with the rc file given:
prg file
#include 'fivewin.ch'
#include 'xbrowse.ch'
function main()
local oDlg, oBrw
DEFINE DIALOG oDlg RESOURCE 'TEST' TITLE 'Array Autosort'
REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
AUTOCOLS AUTOSORT ;
ARRAY Directory() ;
LINES CELL
ACTIVATE DIALOG oDlg CENTERED ON INIT ( oBrw:SetFocus(), .f. )
return nilrc file
TEST DIALOG 6, 15, 306, 227
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TXBrowse demo"
FONT 8, "MS Sans Serif"
{
DEFPUSHBUTTON "OK", IDOK, 252, 211, 50, 14
CONTROL "", 101, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 4, 5, 297, 202
}screen-shot
Autosort works
Incremental seek also works.
Please check for this 'CONTROL "", 101, "TXBrowse"' in your rc file.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Now I found the reason for this problem:
if i use oBrw:lAllowSwapping := .F. the autosort is not functioning!
Yes. When lAllowColSwapping is .F., clicking on header does not work. This is a known issue for long but unfortunately not solved yet.
Here is the solution.
In xbrowse.prg, please find
Please change the line if ::nCaptured .... as:
Now the autosort works.
This correction can be applied for all previous versions also.
Here is the solution.
In xbrowse.prg, please find
METHOD HeaderLButtonDown( nMRow, nMCol, nFlags ) CLASS TXBrwColumn
if ::oBrw:nCaptured == 0 .and. ::oBrw:lAllowColSwappingPlease change the line if ::nCaptured .... as:
if ::oBrw:nCaptured == 0 .and. ;
( ::oBrw:lAllowColSwapping .or. ! Empty( ::cSortOrder ) .or. ;
::bLClickHeader != nil )Now the autosort works.
This correction can be applied for all previous versions also.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
THANKS!!