8 replies to this topic

[konfoo]

Using the latest available NextSuite download -

- Compile demo 1
- Add 10,000 rows
- Clear all rows
- Add 10,000 rows

The first time the rows are added the vertical scroll bar appears as it should. The second time it is not shown. If the form is resized it appears. I can reproduce this every time.

Any quick tip to fix this problem?

[WEI]

Using the latest available NextSuite download -

- Compile demo 1
- Add 10,000 rows
- Clear all rows
- Add 10,000 rows

The first time the rows are added the vertical scroll bar appears as it should. The second time it is not shown. If the form is resized it appears. I can reproduce this every time.

Any quick tip to fix this problem?

Hi, Boki

Any idea about this?

WEI

[Boki (Berg)]

Hello,

I have fix it. Please open file NxScrollControl.pas (located in Sources\ foder).

Add one more line inside method procedure TNxCustomScrollBar.SetMax(const Value: Integer);

CODE

SetVisible(FVisible);

I hope that this help.

regards

[WEI]

Hello,

I have fix it. Please open file NxScrollControl.pas (located in Sources\ foder).

Add one more line inside method procedure TNxCustomScrollBar.SetMax(const Value: Integer);

CODE

SetVisible(FVisible);

I hope that this help.

regards

Hi, Boki

Just wondering, to replace FVisible := (FMax > 0) or (not AutoHide) with Visible := (FMax > 0) or (not AutoHide); will have the same effect?

Thanks

WEI

[Boki (Berg)]

Hello WEI,

I think yes

regards

[Boki (Berg)]

Hello,

There is a need to update few more lines in code.

1) Move SetVisible of TNxCustomScrollBar to protected and add virtual:

procedure SetVisible(const Value: Boolean); virtual;

and change it to:

CODE

procedure TNxCustomScrollBar.SetVisible(const Value: Boolean);
begin
  FVisible := Value;
end;

2) Add in TNxScrollBar inside protected:

procedure SetVisible(const Value: Boolean); override;

CODE

procedure TNxScrollBar.SetVisible(const Value: Boolean);
begin
  inherited SetVisible(Value);
  Windows.ShowScrollBar(FOwner.Handle, BarFlag, Value);
end;

I hope that this help. I have update files inside users area too.


regards

[WEI]

I hope that this help. I have update files inside users area too.
regards

Hi, Boki

Since I'm new to Berg forum. Where is the users area, Is it one of the section of this support forum(if so, I can not see it when I login)? or just user.bergsoft.net?

Regards,

WEI

[konfoo]

I hope that this help. I have update files inside users area too.

Thanks for the quick response

[Boki (Berg)]

Hello WEI,

Yes, users area is on http://users.bergsoft.net/

regards