TRichView.com

In a TDBRichViewEdit I have user-entered text and automatically inserted text.
The automatically inserted text is inserted with
TextStyle.Protection := [rvprModifyProtect,rvprConcateProtect,rvprDoNotAutoSwitch,rvprStyleProtect,rvprStyleSplitProtect];
TextStyle.Color := clGray;
TextStyle.BackColor ...

I have a strange problem with DBRichViewEdit and styles.
On a DBCtrlGrid there is a DBRichViewEdit, two DBRichViewEdits are visible (Rowcount 2 in DBCtrlGrid)
In record 1 the text is default
In record 2, the text is
1 line smaller (with rvActionFontShrinkOnePoint)
2 line larger (with ...

Hello,

this code works fine for removing styles of the font like bold, etc ... is there an easy way like this to remove ParaStyles like rvaCenter?

I've tried to modify your example to do that, but i'm not very familiar with the handling of paragraphs, all my attempts does't work.

Thank you for the fast replay!

Is there a possibility to use the fixed code-parts in V13.0.5 or a workaround for this version?

I think i have found a bug in the handling of bullets in rtf-files, i can reproduce it with the actual version of RichViewActionTest:

1. Make a new File, fill it with 3 lines, the first line must be so long that the editor must wrap the line:


aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa aaaaa ...

Sergey Tkachenko wrote:The code seems to be correct.

Thank you for looking at my code ... so i was able to search my error at other places. And found it, i picked the wrong table
Now the replacing work fine.

Greetings
Bjoern

Hello,

i should replace a text-color with another color in all records for a DBRichViewEdit. The data is stored in RTF-format.

Here http://www.trichview.com/forums/viewtopic.php?t=612 is an example for changing the font-size globally, but i can't get it to work.
If i run my routine, nothing ...

Hello,

the insering of protected text is easy, i use

procedure MyProcedure(MyInsertString : string);
var
OldStyleNo:Integer;

function GetProtectedStyle(RVStyle: TRVStyle; StyleNo: Integer): Integer;
var TextStyle: TFontInfo;
begin
TextStyle := TFontInfo.Create(nil);
try
TextStyle.Assign ...

It's only Singleline and have no { or } inside, it's only one or two words, e.g. {script1 user2}, the real javascript is inserted after the RTF2HTML-converting

Hello,


But if using RTF is important, I can create a procedure for applying protection to text inside {}.

did you ever wrote that procedure? ... because i have the same problem :-)
TDBRichViewEdit with saving as RTF in the Database (because of RTF2HTML-converting later) and i must insert and ...

yes, it is RTF ... and with excluding the option after saving HTML it works fine.
Thank you for your support!

Hello Sergey,

i've tried so, but i get a problem with my code, when i loop over the TextStyles to set +[rvteoHTMLCode] it clears my DBRichViewEdit after the first run.

The code is
procedure TMainForm.SpeedButtonTest2Click(Sender: TObject);
var
i: Integer;
Stream: TStringStream;
rv ...

My users enter text in a DBRichViewEdit which is stored in a database and then printed to a file as a part of a html-page.
For this, i convert the RTF to HTML with

function RTF2Html(rtf:string): string;
var Stream: TStringStream;
rv:TCustomRichView;
begin
rv:=TCustomRichView.Create(nil);
rv ...

I'll try this and to make the DBEdit.Color darker too when disabled.
Maybe something for the next version of TRichViewEdit, a property like .DisabledFontColor?

I'm using a DBRichViewEdit (as a replacement of a DBMemo) and some DBEdits on a DBCtrlGrid.
In some cases i must show the user that a data-record is disabled, so far i used the OnPaintPanel-Event of the DBCtrlGrid with

if (MyDBCtrlGrid.DataSource.DataSet.FieldByName('disabled').AsBoolean) then ...