TRichView.com

My guess is this may be by design. You can put something like this in your copy code or action. It's what I use:

var
gr: TGraphic;
ATag: TRVTag;
RVAlign: TRVVAlign;
s: TRVUnicodeString;
AData: THandle;
APalette: HPALETTE;

begin

if (rv.GetSelectedImage <> nil) then
begin

rv ...

I used this code to do something like that:

var
fi, fi2: TFontInfo;
i, FStart, FSOff, FEnd, FEoff: integer;
rv: TCustomRichViewEdit;
...

rv.GetSelectionBounds(FStart, FSOff, FEnd, FEoff, true);
fi := rv.Style.TextStyles[rv.GetItemStyle(FStart)];

for i := FStart to FEnd do
begin
fi2 ...

Sergey,

Yes, you were right this was working when I tried it in my small test app. What I wound up using in my main app was a TRVStyle not linked to any TRichView. That worked the way I wanted it to work.

Thanks

Stan

The best solution is style modification. If you want the default font "Georgia", specify it in the "Normal" styletemplate. In ActionTest demo, use the menu "Format | Styles", select "Normal (standard)", click the link "Edit" in the font section, and select "Georgia".

OK, is there a way to set ...

Sergey,

Sorry, another styles question!

Say I paste some text in my rve, and it has the Georgia font. If I select the whole paragraph and then use the style combo to set a style, it sets the selcted style and keeps the Georgia font. That's what I want.

But if I select one word and then use the ...

ValidTextPropertiesEditor was developed only for design-time support...It makes no sense to use ValidTextPropertiesEditor at runtime.
Yes, that explains what I was seeing, thanks.

You can see that it works in "Format | Styles" command.
Yes, I did something similar in my small test app and had ...

OK, looks like changing the RVEFilervActionNew1 rvfiUnderlineColor setting in the design time ValidTextPropertiesEditor properties in my main app lets the underline color work.

Stan

OK, I'll try that.

Thanks Sergey

Stan

Just trying to get the underline color to change when I paste in a hyper link.

I made a small test program and if I change the rvfiUnderlineColor to true in the component properties of my small test app, the color changes as expected. If I don't change rvfiUnderlineColor in the properties and try ...

Hi Sergey,

When I insert a break (horizontal line) I have to add an ApplyStyleTemplate(0) call after every InsertBreak call to keep the correct style name in the styles combo (otherwise it's blank when it should say "Normal"). It does this if I use the HLine rv action as well.

But, the ...

Hi Sergey,

Is there a way to reset styletemplates to the usual defaults plus whatever is currently in use in my application? Sometimes I'll paste in some HTML text by mistake (I wanted to paste plain text). When I do that I wind up with a bunch of HTML styles that I don't need. I'd like to be able ...

For now, I put the code below into the RVStyle1ApplyStyle procedure:

//Overrides hyperlink styletemplate:
for i := 1 to rve.Style.TextStyles.Count-1 do
begin
if rve.Style.TextStyles[i].Jump then
begin
//rve.Style.TextStyles[i].FontName := rve.Style.TextStyles[0].FontName;
//rve.Style ...

Sergey,

Using styletemplates, I was able to get the hyperlink text color to change using this:

i := RVEFilervActionNew1.StyleTemplates.FindByName(RVHYPERLINKSTYLETEMPLATENAME);
RVEFilervActionNew1.StyleTemplates[i].ValidTextPropertiesEditor :=
'[rvfiUnderline,rvfiColor,rvfiJump ...

Hi Sergey,

Yeah, after messing with my regular combobox code some more I see what you mean with this. It's much more tricky than I thought if you want to keep the modified from firing and to keep auto complete functionality which is useful for the font name combo. I have it working fairly well with ...

The problem is in ApplyStyleConversion, not in the combobox. It calls OnChange even if nothing was changed. This problem is noticeable in TRVFontComboBox because it applies itself when losing focus.

Hi Sergey,

In my regular VCL combobox, ApplyStyleConversion works in the combo OnClick without ...