Missing xBrowse oLbx:lHScroll / oLbx:lVScroll in FWH 10.2 ?

[ukoenig]

Hello,

after new compiling with FWH 10.2,
all my xBrowse- oLbx:lHScroll / oLbx:lVScroll defines from Resources
don't work anymore ( Scrollbars missing ).
Changing inside Resources is OK.

0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP

With 10.1 it was OK.
Any Changes needed ?

oLbx70:bClrSelFocus = { || { 0, 16512957 } }
oLbx70:bClrSel = { || { 0, 10853885 } }
oLbx70:nRecSelColor = 15512898

Doesn't work anymore :
oLbx70:lHScroll := .T.
oLbx70:lVScroll := .T.

oLbx70:lFooter := .T.
oLbx70:nRowHeight := 25
oLbx70:nFooterHeight := 7

I tested from Source : it works

I added in sample < testxbr3.prg > :

static function RddBrwRes()
local oDlg, oBrw, oCol, cAlias := cGetNewAlias( "CUST" )
local aGrad := {{ 0.50, CLR_RED, CLR_YELLOW }, { 0.50, CLR_YELLOW, CLR_RED }}
cFunc := ProcName( 0 )
USE CUSTOMER NEW ALIAS (cAlias) SHARED VIA "DBFCDX"
SET ORDER TO TAG FIRST
GO TOP
DEFINE DIALOG oDlg RESOURCE "TEST" //FONT WndMain():oFont
REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
...
...
oBrw:lVScroll := .F.
oBrw:lHScroll := .F.

doesn't work
Scrollbars are still visible

ACTIVATE DIALOG oDlg CENTERED ON INIT oBrw:SetFocus()
(cAlias)->( dbCloseArea() )
return nil

Best Regards
Uwe

[nageswaragunupudi]

There is no change in 10.02. Behavior is consistent with all previous versions.

Please try this simple code:

Code: Select all  Expand view

#include "FiveWin.Ch"
#include "XBrowse.Ch"

function Main()

   local oDlg, oBrw

   USE CUSTOMER

   DEFINE DIALOG oDlg RESOURCE "TEST"

   REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
      COLUMNS "First", "Salary" ;
      ALIAS 'CUSTOMER' AUTOSORT LINES CELL

   oBrw:lHScroll  := .f.
   oBrw:lVScroll  := .f.

   ACTIVATE DIALOG oDlg CENTERED ON INIT oBrw:SetFocus()

   CLOSE CUSTOMER

return nil

 

RC file:

Code: Select all  Expand view

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_TABSTOP, 4, 5, 297, 202
}
 

Both scrollbars are hidden.

This is the same behavior in all versions.

To hide the scroll bars oBrw:lVScroll / oBrw:lHScroll should be set to .f. in the program code and also the style in resource should not have WS_HSCROLL and WS_VSCROLL.

[ukoenig]

Thank You very much for the Response.

I checked all PRG's and Resources, all OK.
I changed back to 10.1 : Result the Scrolllbars are visible.
Something must be changed, using Resources ( different Scrollbar-Buttons ).

with FWH 10.1


with FWH 10.2 ( no changes of PRG's and Resources )


with FWH 10.2 added W_VSROLL to Resource.


Best Regards
Uwe

[nageswaragunupudi]

I checked again and did not find any change in the source code of xbrowse.prg regarding scroll bars, from the time it was written.

The sample I gave above works the same way in all versions. Did you check my sample in 10.1 and 10.2?

The logic adopted by xbrowse is that if we want to hide scroll bars, we need to remove the style in the resource and also set lVscroll or lHscroll as .f. in the application also.

Can you provide a reduced sample of the program and rc file reproducing the problem?

[ukoenig]

I copied Your Files to the FWH-sample-directory.
It was impossible to activate the Scrollbars.
It works only with a included WS_VSCROLL and WS_HSCROLL inside the Resource.
I changed back to FWH 10.1 and it was OK.
A possible Reason mayby Windows VISTA ??



Best Regards
Uwe

[nageswaragunupudi]

A possible Reason mayby Windows VISTA ??

I don't think.

Can you please post the code and rc file which produced different results with 10.1 and 10.2? Let us try to understand the real reason for the difference in the behavior.

[ukoenig]

I'm a bit confused about this Problem.
More Tests :
I included Window.prg, Control.prg and xBrowse.prg from FWH-10.1 using FWH-10.2
to my Make-file, with no difference in Result.
Changing back to FWH-10.1, everything works fine.
There must be a change somewhere, because there is a difference in the Scrollbar-Buttons-Size.
Because in my Project I'm working on, I need Scrollbars only in 2 Browsers.
In this case, I can add W_VSCROLL and W_HSCROLL to the Resource.
But I would really like to know, what happens.

The Scrennshot with FWH 10.1



The Scrennshot with FWH 10.2
with added VSCROLL and W_HSCROLL to the Resource shows the Difference.



I compiled the xBrowseTools with FWH 10.2
with the Tools, I could switch Scrollbars ON / OFF at Runtime
that doens't work anymore. No Scrollbars are visible.
A resource-check shows NO VScroll and HScroll is included.



Compiled again with FWH 10.1 with no problems, all Scrollbars are visible.



Best Regards
Uwe

[Enrico Maria Giordano]

It could be a side effect of a recent change in TScrollBar. But we need of a reduced and self-contained sample showing the problem in order to fix it.

EMG

[ukoenig]

Enrico,

Thank You very much.
I tested Scrllbar.prg, including it from FWH 10.1 to the Make-File
but still the same behaviour.
Could it be possible, to include for a Test, all needed Files from source FWH 10.1
in the Makefile ( replacing the FWH 10.2 - files ), to find out, where it comes from ?
I think, the problem will not be detected, just using one of my examples.
Maybe I can install all on another computer, to test it there ?

Best Regards
Uwe

[ukoenig]

Enrico,

I installed FWH, BCC55 and xHarbour on a new Computer with nothing else installed.
There I tested on XP and Windows 2000.

The same Results : No Scrollbars in xBrowse from Resources.
Maybe a difference, between Harbour and xHarbour ?
FWH 10.1 works without Problem.
I can add the Scrollbars to the Resource, but it is not the Way, how to do it.
Any Ideas to solve this ?

Best Regards
Uwe