TRichView.com

We will solve it with TSRVPaintbox, I think. Unfortunately we can't use sidenotes, because they are not displayed in TRichViewEdit - we optionally need both edits for our users, i.e. TRichViewEdit AND TSRichViewEdit - but it probably works that way, too. You just have to find the paintboxes again af...

I have now tried around. 1. RichViewEdit: I create SRVLabel with this code - see below var la: TSRVLabel; S: string; begin S := ''; if InputText('Neue Box', S) then begin la := TSRVLabel.Create(Self); la.Parent := Self; la.ForegroundColor := clBlack; la.Font.Name := 'Arial'; la.Font.Size := 12; la.A...

Thanks for your quick reply!

I think with SRVLabel, Skin-Manager and a little tinkering I can realize such textboxes as I imagine them for non-fiction. I just hope that I can get small margins to the text using the skin manager.

just quickly deleted the post that it works. That is, it already works, but when I load the document afterwards with TSRVRichViewEdit, the label is not there. Please again for a hint where the problem is. The properties (RVFOptions) are the same for both editors https://autorenprogramm.com/down/tmp/...

With this code I insert a TLabel, which also works and displays the TLabel as it should. var la: TLabel; S: string; begin S := ''; if InputText('New Box', S) then begin la := TLabel.Create(Self); la.Caption := S; CurrRV.InsertControl('la', la, rvvaRight); if CurrRV.CurItemStyle = rvsComponent then C...

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 gene...

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. M...

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 ha...

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 thi...

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

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 rega...

I figured it out: It works with the graphic in the element 'Tabset Background'.

Sergey, this is not important by now - so I don't need it.
For this, could you please tell me how I can scroll in a TRichView(Edit) with ScrollPos? That would help me a lot.

I just noticed that the ScrollCode option may not be necessary for controlling other controls like list boxes or memos.

But how can I scroll in a TRichViewEdit without the ScrollCode?

Hi Sergey, I currently want to equip all controls from my program 'Patchwork' with scroll function with TSRVScrollBar, to be able to adapt the color of the scrollbars to the respective skin. But the event 'Scroll' always returns only scTrack, no matter what the user enters. It works for the normal c...