TRichView.com

Hi Dear Sergey,
why we can add textstyles with same properties and why textstyles are not unique!?
and, how can i merge all textstyles with unique properties!?
thanks a lot.

As always Thanks a lot

uses CRVData;

var
itemno: integer;
NoteText: String;
begin
...
for ItemNo := 0 to RV.ItemCount - 1 do
if RV.GetItem(ItemNo) is TCustomRVNoteItemInfo then
begin
NoteText := GetRVDataText(TCustomRVNoteItemInfo(RV.GetItem(ItemNo)).Document);
end;
...
end;

Thanks a lot for your guide.
it's good but i do it with another way.
please let me email it to see and assessment.
thanks again.

for example:
var ItemNo: integer;
ctext: TStringList;
begin
for ItemNo := 0 to R_Q.ItemCount - 1 do begin
if R_Q.GetItem(ItemNo) is TCustomRVNoteItemInfo then
begin
R_Q.SetSelectionBounds(ItemNo, R_Q.GetOffsBeforeItem(ItemNo),
ItemNo, R_Q.GetOffsBeforeItem(ItemNo));
R_Q.inserttext('[F]');
end ...

Hi dear sergey.
I want retrieve (get) text of paragraph that itemno is in.
for example:
in RVData my itemno is 5 and it's in 2th paragraph.
Getparatext(5) return all text of 2th paragraph.

What is the purpose of this:
user search a word and i markup it in "rv" with "MarkSubString_"
i want create a ...

Hi Dear
I want insert my content of Richview to dbase such as SQLite.
and I want detect my footnotes in document on dbase with "[F]"
for example:
in richview:
"If you do not want to add a poll to your topic 1 , leave the fields blank."
in dbase:
"If you do not want to add a poll to your topic[F ...

Sergey Tkachenko wrote:Sorry, this change is incorrect.
Converters are 32-bit applications and their list is written in 32-bit Registry.

Thanks, but my ms office is 64bit installed on windows 7 64bit.

Sergey Tkachenko wrote:And a new version of code marking all
This procedure cannot be undone. If you call it for TRichViewEdit, call RichViewEdit.ClearUndo.

Hi,
I want in new search & mark action, previous marked, unmark and new founded words marked in Richview.
Please guide me how do it?
Thanks.

Hi Dear Sergey
there is a problem in RegOpenKeyEx on windows x64.
please change:
RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar(RegPath), 0, KEY_READ , Key);
to:
RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar(RegPath), 0, KEY_READ or KEY_WOW64_64KEY , Key);

Oh!
It was True and change it False and all things right.
i think resolved.
Thanks a lot.
--------------------------------
Is it possible to correct this problem with Threads!?

Sergey Tkachenko wrote:Is this code called in the context of the main thread?

yes.

Hello dear,
when i use 'chat demo' in TIdUDPServer onRead event:

procedure TfrmMain.UpdateChat(msg: string);
begin
ParseString(mChat,msg); // from chat demo
mChat.Invalidate;
try
mChat.Format;
except
mChat.FormatTail;
end;
mChat.Update;
mChat.DeleteUnusedStyles(True, True, True);
mChat ...

Hi
This is a simple way:


function GetFntStr(fntNO:integer;rv:TRichViewEdit):string;
var NoteItem: TCustomRVNoteItemInfo;
stream:TmemoryStream;
s:string;
begin
if fntNo>=0 then
if rv.GetItem(fntNo) is TCustomRVNoteItemInfo then begin
stream:=TmemoryStream.Create;
NoteItem:=(rv.GetItem(fntNo) as ...

Sergey Tkachenko wrote:As for "\qr\ri0\rtlpar" with "\rtlpar\qr\ri0" - is only the order of keywords changed? And it fixed the problem?

yes!
in R2L documents it causes alignment correct.
but in L2R documents no matter!