I have recently noticed that none of my Listboxes have scrollbars, just blank space where the scrollbar used to be. This is only after my update to FWH 13.11 and most recent Harbour downloaded from Fivetech site.
I looked at other posts on this matter from a few years ago but it seemed to be resolved. I have tried all the fixes recommended but with no results.
I need a fix for this please!
Thanks,
GG
Greg
Are you using the ListBox class or xBrowse ?? I would like to look at your .rc or code if you don't mind posting it.
Rick Lipkin
REDEFINE LISTBOX oLbx FIELDS bscust->custno, bscust->company, bscust->city, bscust->phone ;
HEADER "Custno", "Company", "City", "Phone" ;
FONT oFontList ;
ON DBLCLICK (oDlg1:end(), mExit := .T. ) ;
ID 1003 OF oDlg1 UPDATELANGUAGE 9, SUBLANG_DEFAULT
118 DIALOG 15, 45, 364, 230
STYLE DS_ABSALIGN | DS_MODALFRAME | DS_SETFONT | WS_POPUP
EXSTYLE WS_EX_OVERLAPPEDWINDOW
FONT 10, "System"
{
LISTBOX 1003, 15, 49, 335, 145, WS_GROUP | WS_TABSTOP | NOT LBS_NOTIFY | LBS_NOINTEGRALHEIGHT | LBS_MULTICOLUMN
EDITTEXT 1000, 65, 24, 140, 12, ES_AUTOHSCROLL
PUSHBUTTON "Find", 1001, 215, 24, 30, 12
PUSHBUTTON "Select", 1009, 65, 205, 40, 12
PUSHBUTTON "Close", 1010, 15, 205, 40, 12
LTEXT "Find Company", 65535, 15, 25, 48, 8, SS_LEFT
EDITTEXT 100, 0, 0, 364, 14, ES_AUTOHSCROLL | ES_READONLYHow many records have the database?
Have you tried the example:
\fwh\samples\testlbx5.prg
Greg Gammon wrote:LISTBOX 1003, 15, 49, 335, 145, WS_GROUP | WS_TABSTOP | NOT LBS_NOTIFY | LBS_NOINTEGRALHEIGHT | LBS_MULTICOLUMN
CONTROL "", 1003, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 15, 49, 335, 145Christobal,
I will look at that next this weekend when I am back at my development machine.
Thanks,
Greg
Enrico,
WOW...that would be a major problem for me to have to do as I am continually updating resources in ResEdit. Since the .rc file is generated from the .res file, I would have to manually go in and edit every Listbox instance? Is there any other way to deal with this?
Thanks,
Greg
Greg Gammon wrote:Enrico,
WOW...that would be a major problem for me to have to do as I am continually updating resources in ResEdit. Since the .rc file is generated from the .res file, I would have to manually go in and edit every Listbox instance? Is there any other way to deal with this?
Well thanks for the help so far. I think I am going to wait and see if there is another solution perhaps when Antonio is back.
All the scrollbars used to work in my previous FWH version (which was back in the 2.7 range I believe) so perhaps I can #include prg code from a previous version to fix this problem?
Thanks,
Greg
I have tried every permutation of scrollbar setting in ResEdit for the Listbox resource and it has no apparent change.
LISTBOX 1003, 15, 49, 335, 145, WS_GROUP | WS_TABSTOP | NOT LBS_NOTIFY | LBS_NOINTEGRALHEIGHT | LBS_MULTICOLUMNJames,
I will double check that when I get back from a trip. I have used ResEdit from the beginning, and have tried check/uncheck of every scroll bar option ( and combinations) in resources. But I will look at the .rc file and see what the options actually do. Thanks for the tip.
G
REDEFINE LISTBOX oLbx FIELDS bscust->custno, bscust->company, bscust->city, bscust->phone ;
HEADER "Custno", "Company", "City", "Phone" ;
FONT oFontList ;
ON DBLCLICK (oDlg1:end(), mExit := .T. ) ;
ID 1003 OF oDlg1 UPDATE
Postmessage( oLbx, nOr( WS_CHILD, WS_VSCROLL, WS_BORDER, WS_VISIBLE, WS_TABSTOP) )Greg,
I did some testing and it does seem that the missing scrollbar is a bug. I expect that it has not been noticed because most of us are now using TXBrowse because it is so much more powerful. But, I do understand why you are looking for a quick fix.
I have been mucking around in the TWBrowse class code looking for the problem but have not found it yet. I will look some more when I have some free time.
Regards,
James
// Purpose: Simple test of LISTBOX (TWBrowse)
// Date : 2/18/2014
#include "fivewin.ch"
Function Main()
LOCAL oDlg, oLbx
USE customer
DEFINE DIALOG oDlg resource "DIALOG1"
REDEFINE LISTBOX oLbx fields FIRST, LAST ID 10 OF oDlg
// Things I tried without success.
//oLbx:bLogicLen := { || If( reccount() == 0, 1, reccount() ) }
//Postmessage( oLbx, nOr( WS_CHILD, WS_VSCROLL, WS_BORDER, WS_VISIBLE, WS_TABSTOP) )
//oLbx:=nil // no effect
//oLbx:setRange( 1, reccount() ) // getting a setrange() does not exist message
//oLbx:=.t. // no effect
ACTIVATE DIALOG oDlg
return nil/****************************************************************************
test01.rc
produced by Borland Resource Workshop
*****************************************************************************/
#define DIALOG_1 1
#define IDC_LISTBOX1 10
DIALOG1 DIALOG 6, 15, 275, 111
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "DIALOG1"
FONT 8, "MS Sans Serif"
{
LISTBOX IDC_LISTBOX1, 20, 15, 235, 75, LBS_STANDARD
}I don't think this is a good solution but it is a workaround.
In Borland Workshop if you check "scroll bar always" then the scrollbar shows.
This changes the RC file to:
LISTBOX IDC_LISTBOX1, 20, 15, 235, 75, LBS_STANDARD | LBS_DISABLENOSCROLL
Note that is has just added "LBS_DISABLENOSCROLL"
Note also that I had already tried adding WS_VSCROLL to the style in the RC file (using a text editor) and it didn't help.
The reason that this is not a good fix, is that you cannot have no scrollbar when there are not enough records to fill the browse.
James
James,
I really appreciate your work on this! I guess I just need to switch over to the xbrowse class. Just as a quick test I replaced my #include from tcbrowse to xbrowse and recompiled. I had one module error where I use an actual BROWSE and just commented it out to recompile and see what I get. No scrollbars still! But I may have to go back into resources and double check setups there again. Any tips on changing from tc to xbrowse?
Greg