How to change properties for hidden text?

Jim Knopf · Post by **Jim Knopf** » Tue Jan 28, 2014 5:50 pm

Hi, me again

how can I change the outfit of hidden text? Without dotted underline instead of this color gray.

Post by **Sergey Tkachenko** » Wed Jan 29, 2014 1:48 pm

Sorry, dotted underlined are hard-coded

Jim Knopf · Post by **Jim Knopf** » Thu Jan 30, 2014 10:47 pm

and text color?

Post by **Sergey Tkachenko** » Fri Jan 31, 2014 8:30 am

Color can be changed in OnApplyStyleColor event

Jim Knopf · Post by **Jim Knopf** » Sat Feb 01, 2014 1:12 pm

Can you give me a hint how?

- RVEdit: Settings are 'use predefined set of styles' (necessary to protect of importet formatting)
- style No 15 in TRVStyle has options = rvteoHidden

It works but would be fine to recognize hidden text immediately as such one.

Post by **Sergey Tkachenko** » Sun Feb 02, 2014 12:39 pm

Sorry, I understand your settings but I do not understand the question.

Jim Knopf · Post by **Jim Knopf** » Mon Feb 03, 2014 11:10 pm

sorry for poor explanation.

If I change text color of style 15 I can apply dark colors as clNavy or clGreen but no lighter ones, clSilver e.g.

And I don't know how to change color of hidden text by OnApplyStyleColor event.

Post by **Sergey Tkachenko** » Tue Feb 04, 2014 12:14 pm

First, I do not understand why do you need some special code or settings for hidden text, if you only have a single text style used for hidden text.
Just assign RVStyle.TextStyles[15].Color := clNavy to change its text.

OnApplyStyleColor can be used if you want to display some text with different colors, not with colors specified in Color or BackColor properties.

Something like:

Code: Select all

procedure TMyForm.MyRVStyleApplyStyleColor(Sender: TRVStyle; Canvas: TCanvas;
  StyleNo: Integer; DrawState: TRVTextDrawStates; var DoDefault: Boolean);
begin
  if (rvteoHidden in Sender.TextStyles[StyleNo].Options) and 
    not (rvtsSelected in DrawState) then begin
    Canvas.Font.Color := clNavy;
    Canvas.Brush.Style := bsClear;
    DoDefault := False;
  end;
end;

This code makes all hidden text color = clNavy.

Jim Knopf · Post by **Jim Knopf** » Wed Feb 05, 2014 10:13 am

The reason why I tried out an other way is, that I can't change RVStyle.TextStyles[15].Color. I can, sure, but it has no effect. May be because of I use 'use a predefined set of styles' in my rvEdit.

So I assume that the editor is searching a style as similar as possible if I assign 'hidden' to a selected text and creates a new one if it dont' find one. If the color of RVStyle.TextStyles[15] is dark (clNavy, clGreen) perhaps it is 'enough similar' and it accepts the existing style. E.g. gray or silver is not similar > makes its own new style. I hope I could explain my problem? Sorry I know it sounds a little complicated ...

Jim Knopf · Post by **Jim Knopf** » Wed Feb 05, 2014 10:16 am

But the code you posted under MyRVStyleApplyStyleColor works fine, thank you so much!

lkessler · Post by **lkessler** » Mon Apr 25, 2016 2:32 pm

I too would like the option to display hidden text without the dotted underline.

Louis