TRichView.com

I have (english and arabic text) in the one richedit
how can I change font in the richviewedit all arabic and english text

I want to
arabic text only= arial,
english text only=times new roman


I can make this but all text arial
RichViewEdit.SelectAll;
RichViewEdit.Style.TextStyles[0].FontName ...

error in the old my project
undeclared
SRichViewEdit1.ViewProperty.BoundTextVisible := cbShowTextArea.Checked;

thanks very good.
please can you tell me, how can I make this(replace) normal in the delphi richedit

yes, I want to replace 'orange' to 'apple' only if 'orange' is written with 'Arial' font

I want to text replace only arial font
how can I make


my code (all text arial, bad)
with Srv.RichViewEdit do
for i :=0 to Srv.RichViewEdit.style.TextStyles.Count-1 do
Srv.RichViewEdit.Style.TextStyles .FontName := 'Arial';
Srv.RichViewEdit.Format;
begin
APPLICATION.ProcessMessages;
stringReplace ...

I want to make stringreplace in rihviewedit for wholeword


can you help me for function or command

Getalltext(sRichViewEdit1.RichViewEdit); very good

but

I need Getallwords I want to get only words
is there a function or alternative a way

I did into this lines and but not run
RVHunSpell1.Dictionaries.Add.Load('en_us');

after I add hunspelldll.dll now runner

you can add hunspelldll.dll to directory rvspell\Demos\HunSpell\RichViewActions

not run without hunspelldll.dll

hunspell question

normal procedure load
p := ExtractFilePath(Application.ExeName) + 'dict\';
spell := hunspell_initialize(PChar(p + 'en_US.aff'), PChar(p + 'en_US.dic'));


where, how can I load, apply this en_US.aff, en_US.dic for richviewedit (rvspell\Demos\HunSpell\RichViewActions)

I used this function in the delphi2009 error

[DCC Warning] Unit3.pas(777): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

can you fix this function


function WordCount(t: String): LongInt;
var
ws: Boolean;
wc: Integer;
i: Integer ...

thanks very good

serkand

my mail:serkand1111@yahoo.com

I am waiting...

thanks but I dont applied to srichviewedit and I dont it run

could you cretae a example for Srichviewedit dualeditor

richviewedit1 to richviewedit2 and richviewedit2 to richviewedit1


this is procedure very slow and some not run for after 100 pages

how can I fast replace formatted text richviewedit1 to richviewedit2 and richviewedit2 to richviewedit1



var
AStream: TMemoryStream;
BStream: TMemoryStream;
begin ...

1-how can I implant this procedure to Srichviewedit and without externalRvStyle

and RVStyle1DrawParaBack = ? (where write events) for Srichviewedit.


2-is there dual editor a example for Srichviewedit


procedure TForm1.RVStyle1DrawParaBack(Sender: TRVStyle; Canvas: TCanvas;
ParaNo: Integer ...