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; 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_&quo...

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 ...

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.VScrollPos:= ...

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 TCust...

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!