Page 1 of 1
TSRVScrollbar with TRichViewEdit
Posted: Tue Aug 29, 2023 7:07 pm
by Jim Knopf
Hi Sergey,
For optical reasons I want to control my TRichViewEdits with TSRVScrollbar instead of the built-in scrollbar. How can you get the height of the whole text?
Or is it possible to get the necessary data for the scrollbar (Max, PageSize) directly from the scrollbar of TRichViewEdit?
Best regards
Martin
Re: TSRVScrollbar with TRichViewEdit
Posted: Tue Aug 29, 2023 7:28 pm
by standay
Martin,
Here's what I use for a regular rve and a 3rd party scrollbar (VertScrollBar in the code). It won't be directly applicable but it might help you get started.
Code: Select all
if ActiveRVE.VScrollMax = 0 then
VertScrollBar.PageSize := 0;
if ActiveRVE.VScrollMax>0 then begin
PageSize := (ActiveRVE.ClientHeight div ActiveRVE.VSmallStep);
If (ActiveRVE.DocumentHeight > 0) then
VertScrollBar.Max := ActiveRVE.VScrollMax + PageSize;
VertScrollBar.PageSize := PageSize ;
end
else begin
VertScrollBar.PageSize := 0;
VertScrollBar.Max := 0;
end;
VertScrollBar.Position := ActiveRVE.VScrollPos;
VertScrollBar.Visible := (VertScrollBar.Max>0);
This is all in a procedure I named ScrollAdjust. I call ScrollAdjust from various spots when needed. Here's the code I use in my 3rd party scrollbar:
Code: Select all
procedure TForm1.VertScrollBarChange(Sender: TObject);
begin
ActiveRVE.VScrollPos := VertScrollBar.Position;
end;
Stan
Re: TSRVScrollbar with TRichViewEdit
Posted: Wed Aug 30, 2023 6:29 am
by Jim Knopf
Hi Stan,
thanks for your quick support - works great. I think the secret is ActiveRVE.VScrollMax, which I didn't find in the help (and unfortunately didn't search in the source code).
Kind regards
Martin
Re: TSRVScrollbar with TRichViewEdit
Posted: Wed Aug 30, 2023 11:35 am
by Jim Knopf
Hi Stan,
unfortunately this solution does not quite work. It doesn't work properly when the TRichViewEdit gets smaller. The problem is with ActiveRVE.VSmallStep, because that is usually only 10 pixels. But a text line is much higher, you would have to calculate from the text style. Unfortunately this only works correctly if all the text in the TRichViewEdit has the same font. On the other hand - and this is the case with me - it is a lot of calculating.
Therefore a direct access to the internal scrollbar of the TRichViewEdit would be the only clean and efficient solution in my opinion.
That works if the font stays the same:
Code: Select all
procedure ScrollAdjust(R: TRichViewEdit; B: TSRVScrollbar);
var PageSize: Integer;
Th: Integer;
begin
if not Assigned(R.Style) then
Exit; // <<<<<<<<<<<<<<<<<<<<<< EXIT
if R.VScrollMax = 0 then
B.PageSize := 0;
if R.VScrollMax > 0 then
begin
Th := Trunc(R.Style.TextStyles[R.GetItemStyle(0)].SizeDouble / 2. *
R.Style.ParaStyles[R.GetItemStyle(0)].LineSpacing / 100);
PageSize := R.ClientHeight div Th; // R.VSmallStep;
If (R.DocumentHeight > 0) then
B.Max := R.VScrollMax + PageSize;
B.PageSize := PageSize;
end
else
begin
B.PageSize := 0;
B.Max := 0;
end;
B.Position := R.VScrollPos;
B.Visible := B.Max > 0;
end;
Kind regards
Martin
Re: TSRVScrollbar with TRichViewEdit
Posted: Wed Aug 30, 2023 12:25 pm
by standay
It works in my app with multiple fonts and sizes, but I'm
not using a TRVScrollBar and my rve is
not in a scale richview. So, my rve is not being "scaled" when I resize my app. A scale rv may require calling things in a slightly different way. I'm not using scale rv's now. My guess is when the rve inside the scale rv is being "squished," the measurements are off. There's probably a way to call it, i.e.:
Code: Select all
VSmallStepPX := ActiveRVE.VSmallStep * ActiveRVE.GetRealDocumentPixelsPerInch div ActiveRVE.Style.UnitsPixelsPerInch;
Something like that. Maybe Sergey can look at it and tell you a way around it.
BTW, the main issue I've found with the built-in scrollbars is it is real tricky to show/hide the vertical bar based on content. When it is shown/hidden, the rve has to reformat. Minor issue is it may not match the app UI visually. The horizontal bar is much easier to deal with. You may find it much easier to leave the built-in vertical sb visible all the time.
Be interested to know if you get it working later.
Stan
Re: TSRVScrollbar with TRichViewEdit
Posted: Fri Sep 01, 2023 8:25 pm
by Jim Knopf
Hi Sergey,
in the meantime I experimented a lot and came to the conclusion that TSRVScrollbar sometimes sets the property
PageSize wrong. This makes the scroller, for example, not half the height of the control (as it should be mathematically) but the same height and logically you can't scroll. I have verified this with countless attempts. I would like to use TRVScrollbar on Developer Express' TdxTreeList as well, so that the look is the same throughout.
I noticed that the properties are accessed with inherited, which I don't understand, for example with
Code: Select all
procedure TSRVScrollBar.SetPageSize(Value: Integer);
begin
If (inherited PageSize <> Math.Max(Math.Min(Value, Max), Min)) then
begin
inherited PageSize := Math.Max(Math.Min(Value, Max), Min);
InvalidateIfNotStandard;
end;
end;
Do you have any idea what I can do here to make it work reliably?
@Stan: I use TSRVScrollbar with normal TRVEdits, because TSRVEdit already has the scrollbar built in. So of course I don't need to do anything there.
Greetings
Martin
Re: TSRVScrollbar with TRichViewEdit
Posted: Fri Sep 01, 2023 8:39 pm
by standay
Martin,
I use an ATScrollBar which seems to work well. It's on github here:
https://github.com/Alexey-T/ATFlatControls
It seems to play well with things I've used it on and you can set all the colors as desired.
Be interesting to see what Sergey says!
Stan
Re: TSRVScrollbar with TRichViewEdit
Posted: Sat Sep 02, 2023 6:59 am
by Jim Knopf
Hi Stan,
thanks for the tip, i will try it.
I also found a component on torry.net (fatscrollbar) - I always have to make sure that components are still available for Delphi 5.
But I would much rather use Sergey's TRVScrollbar, then everything fits together. I am also very curious about his answer.
Martin
Re: TSRVScrollbar with TRichViewEdit
Posted: Sat Sep 02, 2023 7:24 am
by Jim Knopf
What a coincidence!
It could be that I just found the problem, but need to test further.
With TSRVScrollbar you have to set the property PageSize to 0 in design mode! If you don't, then at least the value you entered is used (see code in post Sep 01, 2023 8:25 pm).
I had (from testing) PageSize generally on 20 and thereby it seems to have not worked with small RVEdits and Treelists.
Re: TSRVScrollbar with TRichViewEdit
Posted: Sat Sep 02, 2023 4:38 pm
by standay
OK, I got curious and downloaded the scalerv trial so I could get hold of a TSRVScrollbar. I set up a simple app using that for a vertical bar. It works OK with the code I posted earlier with one change:
Code: Select all
VertScrollBar.PageSize := PageSize ;
to
Code: Select all
VertScrollBar.PageSize := PageSize + 1;
Mine works OK with any mix of fonts and font sizes.
It took a while to figure out it needs an SRVSkinManager, and that took a while to figure out as well. It's no problem to change colors of the SB elements, but it looks like you use images for the up and down arrows, as well as thumb "lines" (if you want them).
Since there are draw events for the up, down, and thumb, I tried those and that all works great. I might be able to replace the AT scrollbars with the TSRVScrollbar. I'll do more testing.
BTW, I set the TabStop to false as I've had issues with scrollbars where it was set to true. I have the pagesize set to 0 in design mode (it defaulted to that).
Here's a test with the up arrow button with an orange bgnd and a png image, the sb area a dark gray, the thumb silver, and the down arrow button as it looks normally.
- sbtest.png (74.26 KiB) Viewed 76774 times
Stan