trichview.com

Support :: RE: Get all Imagenames

grolle — Thu, 11 Mar 2010 21:30:33 GMT

Author: grolle
Posted: Thu Mar 11, 2010 9:30 pm (GMT 0)

That's it. Thanks

Examples, Demos :: RE: [Examples] Count of characters and words

Sergey Tkachenko — Thu, 11 Mar 2010 19:19:28 GMT

Author: Sergey Tkachenko
Posted: Thu Mar 11, 2010 7:19 pm (GMT 0)

Line count

Code:

uses CRVFData, RVTable, DLines;

function GetLineCount(RVData: TCustomRVFormattedData): Integer;
var i,r,c: Integer;
table: TRVTableItemInfo;
begin
Result := 0;
for i := 0 to RVData.DrawItems.Count-1 do begin
if RVData.DrawItems[i].FromNewLine then
inc(Result);
if RVData.GetItemStyle(RVData.DrawItems[i].ItemNo)=rvsTable then begin
table := TRVTableItemInfo(RVData.GetItem(RVData.DrawItems[i].ItemNo));
for r := 0 to table.RowCount-1 do
for c := 0 to table.ColCount-1 do
if table.Cells[r,c]<>nil then
inc(Result, GetLineCount(TCustomRVFormattedData(table.Cells[r,c].GetRVData)));
end;
end;
end;

Use: Count := GetLineCount(RichViewEdit1.RVData);

This code uses some undocumented methods.

Examples, Demos :: RE: [Examples] Count of characters and words

Sergey Tkachenko — Thu, 11 Mar 2010 19:14:12 GMT

Author: Sergey Tkachenko
Posted: Thu Mar 11, 2010 7:14 pm (GMT 0)

I created functions calculating these values in the most natural way for TRichView. It may be different from Word.

Paragraph count

Code:

uses CRVData, RVTable;

function GetParagraphCount(RVData: TCustomRVData): Integer;
var i,r,c: Integer;
table: TRVTableItemInfo;
begin
Result := 0;
for i := 0 to RVData.ItemCount-1 do begin
if RVData.IsParaStart(i) then
inc(Result);
if RVData.GetItemStyle(i)=rvsTable then begin
table := TRVTableItemInfo(RVData.GetItem(i));
for r := 0 to table.RowCount-1 do
for c := 0 to table.ColCount-1 do
if table.Cells[r,c]<>nil then
inc(Result, GetParagraphCount(table.Cells[r,c].GetRVData));
end;
end;
end;

Use: Count := GetParagraphCount(RichViewEdit1.RVData);
In the show-special-characters mode, you can see pilcrow characters at the end of paragraphs. GetParagraphCount returns the count of these characters. Note that they are displayed in places where MS Word does not display them:
- at the end of table cells
- at the end of tables.

Examples, Demos :: RE: [Examples] Count of characters and words

Petko — Thu, 11 Mar 2010 09:47:16 GMT

Author: Petko
Posted: Thu Mar 11, 2010 9:47 am (GMT 0)

I need something similar to Word's word count. I've made a test and it seems to work like this:

* Lines - they depend on word wrapping and each table cell is counted as a line, if the cell is empty
* Paragraphs - it seems that only items, containing text are counted as paragraphs (empty table cells are not)

You can see my test file here:
http://www.box.net/shared/v9ximbdj0f

Anyway, absolute accuracy is not necessary, speed is priority here. People using a word count function need accuracy in the word and character counts more.

Examples, Demos :: RE: [Examples] Count of characters and words

Sergey Tkachenko — Wed, 10 Mar 2010 20:34:09 GMT

Author: Sergey Tkachenko
Posted: Wed Mar 10, 2010 8:34 pm (GMT 0)

No, it will be fast.
Count of lines - do you mean lines that depend on word wrapping?

How do you want to calculate the count of paragraphs and lines for tables?

Support :: RE: Get all Imagenames

Sergey Tkachenko — Wed, 10 Mar 2010 19:47:14 GMT

Author: Sergey Tkachenko
Posted: Wed Mar 10, 2010 7:47 pm (GMT 0)

These file names are autogenerated and not stored.
You can use OnSaveImage2 event:

Code:

procedure TForm3.RichViewEdit1SaveImage2(Sender: TCustomRichView;
Graphic: TGraphic; SaveFormat: TRVSaveFormat; const Path,
ImagePrefix: String; var ImageSaveNo: Integer; var Location: String;
var DoDefault: Boolean);
begin
if SaveFormat = rvsfHTML then begin
Location := Sender.SavePicture(SaveFormat, Path, Graphic);
// now Location contains file name that will be saved in HTML
DoDefault := False;
end;
end;

Support :: RE: Undo action bug?

Sergey Tkachenko — Wed, 10 Mar 2010 19:00:57 GMT

Author: Sergey Tkachenko
Posted: Wed Mar 10, 2010 7:00 pm (GMT 0)

Hmm. When I added this code in OnChange (after converting it to Pascal:) ), I got a stack overflow. It is obvious because SetItemTagEd calls OnChange too.

If you want to change tag on text editing, consider using OnItemTextEdit event instead.

Support :: RE: How to insert automatic page number code into saved RTF

Sergey Tkachenko — Wed, 10 Mar 2010 18:30:02 GMT

Author: Sergey Tkachenko
Posted: Wed Mar 10, 2010 6:30 pm (GMT 0)

A page numbering field is not implemented yet, planned for future.
If you need to save page numbers in a header or footer of RTF file, you have 2 options:

1) If you want to insert a simple page number, you can use OnSaveRTFExtra event to save header and footer. The code for page number is {\field{\*\fldinst PAGE}{\fldrslt 1}}, the example is here:
http://www.trichview.com/forums/viewtopic.php?t=64 (the first post)

2) If you want to create a complex header or footer in separate editors (or if you use ScaleRichView where header and footer can be edited directly), you need to insert RTF code {\field{\*\fldinst PAGE}{\fldrslt 1}} in the editor. This topic shows two ways how to do it: http://www.trichview.com/forums/viewtopic.php?t=2742
In TSRichViewEdit, header and footer are saved automatically.
In TRichViewEdit, assign header and footer using rve.RTFReadProperties.SetHeader and .SetFooter, and include rvrtfSaveHeaderFooter in rve.RTFOptions.

Support :: How to insert automatic page number code into saved RTF

allanj42 — Wed, 10 Mar 2010 17:59:09 GMT

Author: allanj42
Subject: How to insert automatic page number code into saved RTF
Posted: Wed Mar 10, 2010 5:59 pm (GMT 0)

When saving my document to RTF (using SaveRTF) how do I insert an RTF code to produce automatic page numbering? E.g. is there a code like {\pagenum} that I can insert into my RichTextEdit document before calling SaveRTF ? What other options or conditions need to be set for this to work?

Thanks,
Jeff Allan

Examples, Demos :: RE: [Examples] Count of characters and words

Petko — Wed, 10 Mar 2010 16:09:11 GMT

Author: Petko
Posted: Wed Mar 10, 2010 4:09 pm (GMT 0)

It is possible to count lines and paragraphs too, and if yes, do you think that it will be too time consuming when working with large documents (compared to char and word count)?

Support :: Undo action bug?

kolovan — Wed, 10 Mar 2010 13:25:58 GMT

Author: kolovan
Subject: Undo action bug?
Posted: Wed Mar 10, 2010 1:25 pm (GMT 0)

Hello Sergey,

I want you to know that I found some kind of a bug.

There are several components on my form: ActionList (only rvActionUndo included), MainMenu (with Undo item linked to rvActionUndo), RichViewEdit and RVStyle. The only text in RVE is one text item with tag "Tag1" and text " several_useless_words ".

OnChange event handler of RVE has the next code inside:

Code:

UnicodeString tag = (wchar_t *)rve1->GetCurrentTag();
if (tag.Pos(L"Tag")) {
if (rve1->GetCurrentItemText().Trim().IsEmpty()) {
   if (!tag.Pos(L"NEW"))
      rve1->SetItemTagEd(rve1->CurItemNo,(int)StrNew((L"NEW" + tag).c_str()));
}
else {
   if (tag.Pos(L"NEW")) {
      rve1->SetItemTagEd(rve1->CurItemNo,(int)StrNew((tag.SubString(4,tag.Length())).c_str()));
   }
}
}

As you can see I want to change tags of items depending on thier content. Well it works fine! But after one change of tag there appears a bug with UndoAction:

I delete all letters except spaces in text item:
text changes: " several_useless_words "->" "
tag changes: "Tag1"->"NewTag1"
I type some letters:
text changes: " "->" Gsfasfasf "
tag changes: "NewTag1"->"Tag1"
Now I'm pressing Ctrl+Z shorcut key (or Undo menu item) until clearing of Undo buffer. And that's happened (?) when there is only one letter left:
" Gsfasfasf "->" G "
while menu item Undo is still available! I still can press menu item but it does nothing.

Well as far as I know when undo buffer is empty any visual component (button, menu item etc.) that linked to rvUndoAction becomes unavailable. So what can provide my problem? According to help I'm using only editing-style methods (that can be undone/redone) - SetItemTagEd.

P.S. TagsArePChars is ON; UndoLimit equals -1
P.P.S. Sorry for C++

Support :: Get all Imagenames

grolle — Wed, 10 Mar 2010 10:17:55 GMT

Author: grolle
Subject: Get all Imagenames
Posted: Wed Mar 10, 2010 10:17 am (GMT 0)

Hi,

I save tRichView content as html. Works perfect, but I have one question: tRichView changes the names (1.jpg, 2.jpg ...). How did I get these names? Are they stored somewhere in an array or something? Reason: I must know the names because I have to change some Image tags in the html document, after saving it.

Best regards ...

Support :: .net option

peter_brooks — Tue, 09 Mar 2010 16:08:23 GMT

Author: peter_brooks
Subject: .net option
Posted: Tue Mar 09, 2010 4:08 pm (GMT 0)

I love Trichview, but the current project I'm working on needs to be developed C# VS .net environment. As far as I could gather there are no plans to offer .net version in the near future.

Can anybody suggest a RTF component something as good as Trichview or at least similar for the .net please?

If this post is inappropriate on this board please delete it.

Support :: RE: Auto detection URL - TRichViewEdit

Sergey Tkachenko — Tue, 09 Mar 2010 12:52:09 GMT

Author: Sergey Tkachenko
Posted: Tue Mar 09, 2010 12:52 pm (GMT 0)

No, URL detection is possible only using the ways I described in my previous reply.
TRichViewEdit is not based on TRichEdit, so EM_AUTOURLDETECT means nothing to it.

Support :: RE: Auto detection URL - TRichViewEdit

Marcer — Mon, 08 Mar 2010 14:17:24 GMT

Author: Marcer
Posted: Mon Mar 08, 2010 2:17 pm (GMT 0)

With this code :

Code:

unit UrlEdit;

interface

uses
ComCtrls;

type
TUrlEdit = class(TRichEdit)
protected
procedure CreateWnd; override;
end;

procedure Register;

implementation

uses
Classes, Windows, RichEdit;

procedure TUrlEdit.CreateWnd;
var
mMask: Longint;
lAutoUrlDetect: Boolean;
begin
inherited CreateWnd;

mMask := ENM_CHANGE or ENM_SELCHANGE or ENM_REQUESTRESIZE or ENM_LINK;
lAutoUrlDetect := True;

SendMessage(Handle, EM_SETEVENTMASK, 0, mMask);
SendMessage(Handle, EM_AUTOURLDETECT, Longint(lAutoUrlDetect), 0);
end;

procedure Register;
begin
RegisterComponents('URL Edit', [TUrlEdit]);
end;

end.

the TUrlEdit detect automaticaly URL after press "www.c".

This is possible to have a same detection with TRichView?

Support :: RE: ParamStyle Help about ...

r1d2m3 — Sun, 07 Mar 2010 19:08:46 GMT

Author: r1d2m3
Posted: Sun Mar 07, 2010 7:08 pm (GMT 0)

ok, thanks, that property is needed.

Support :: RE: font can display (or not) a character

Cosmin3 — Sun, 07 Mar 2010 13:15:57 GMT

Author: Cosmin3
Posted: Sun Mar 07, 2010 1:15 pm (GMT 0)

Seems to work.
Thank you very much.
Best regards.

Support :: RE: font can display (or not) a character

Sergey Tkachenko — Sun, 07 Mar 2010 11:23:47 GMT

Author: Sergey Tkachenko
Posted: Sun Mar 07, 2010 11:23 am (GMT 0)

I think you can use GetFontUnicodeRanges WinAPI function to know which characters are supported by the font.

Support :: font can display (or not) a character

Cosmin3 — Sun, 07 Mar 2010 11:09:07 GMT

Author: Cosmin3
Subject: font can display (or not) a character
Posted: Sun Mar 07, 2010 11:09 am (GMT 0)

Hi.
In some situations a font can't display a certain character.
In this case ScaleRichView shows a rectangle.
Is there a way to know that a character can't be displayed properly with a specific font..?
Thank you in advance for your reply.

Support :: RE: ParamStyle Help about ...

Sergey Tkachenko — Sun, 07 Mar 2010 09:52:21 GMT

Author: Sergey Tkachenko
Posted: Sun Mar 07, 2010 9:52 am (GMT 0)

Do you mean caret?
Use CurParaStyleNo property.

Support :: ParamStyle Help about ...

r1d2m3 — Sun, 07 Mar 2010 00:16:44 GMT

Author: r1d2m3
Subject: ParamStyle Help about ...
Posted: Sun Mar 07, 2010 12:16 am (GMT 0)

How to get the ParaStyle paragraph where the cursor?

Thank you very much

Support :: RE: rvoCtrlJumps not displaying correct cursor icon!

Sergey Tkachenko — Fri, 05 Mar 2010 20:30:15 GMT

Author: Sergey Tkachenko
Posted: Fri Mar 05, 2010 8:30 pm (GMT 0)

In a read-only editor, hypertext works automatically, without Ctrl. Only when editing, it requires pressing and holding Ctrl.
DB controls work like read-only controls when the dataset in a browsing mode. What's why hypertext works automatically.
When the user starts editing, the dataset is in an editing mode, and requires Ctrl. Until the user posts or cancels editing.

Support :: rvoCtrlJumps not displaying correct cursor icon!

dakota — Fri, 05 Mar 2010 18:44:59 GMT

Author: dakota
Subject: rvoCtrlJumps not displaying correct cursor icon!
Posted: Fri Mar 05, 2010 6:44 pm (GMT 0)

Hi:

I want my user's to press ctrl+click to follow a link so I have rvoCtrlJumps set to True. This works fine however,

it shows up as the hand cursor instead of the caret symbol

- Once a character is typed into the DBRichViewEdit, then the mouse cursor behaves correctly, meaning the hand cursor only appears when user hold down ctrl key and hovers over the url

What could be causing this? Do I have something set wrong?

Thanks

Dale

Support :: RE: Paste text with images from IE\Firefox

Sergey Tkachenko — Fri, 05 Mar 2010 17:22:49 GMT

Author: Sergey Tkachenko
Posted: Fri Mar 05, 2010 5:22 pm (GMT 0)

When I copy a web page from FireFox to MS Word, Word attempts to download data, my firewall shows it.

Support :: Paste text with images from IE\Firefox

Tobias — Thu, 04 Mar 2010 22:27:58 GMT

Author: Tobias
Subject: Paste text with images from IE\Firefox
Posted: Thu Mar 04, 2010 10:27 pm (GMT 0)

I need to paste formated text from IE\Firefox. If I paste with .Paste method, there are no images.
I made working demo using RvHtmlViewImporter and Indy. But in such case all images downloaded from web. When there many pictures, it is pain on slow connections.
When I copy such data to MS Words, it is copies instantly, so pictures already in clipboard. Btw, when I copy first to Word and then from Word to RichEdit there are also no problems.
So, it is possible to copy such clipboard data to RichEdit without redownloading images?