trichview.com

Support :: RE: Pure embedded OCX controls

Mr Andreas — Tue, 15 May 2012 23:59:59 GMT

Author: Mr Andreas
Posted: Tue May 15, 2012 11:59 pm (GMT 0)

Sergey Tkachenko wrote:

But how? I can see (in MS Word) the command for inserting object.
It corresponds not to inserting ocx, but to insertion of TOLEContainer.

Hmm, yes, my mistake.

Ignoring this, how does one go about inserting non-container OCX controls that Words can insert, such as check-boxes, for example?

Support :: RE: Insertion bullets/lists into a protected paragraph

Sergey Tkachenko — Tue, 15 May 2012 20:47:59 GMT

Author: Sergey Tkachenko
Posted: Tue May 15, 2012 8:47 pm (GMT 0)

A fixed version is uploaded (for registered users)

1) The problem with paragraph lists and protection is solved.
2) I was wrong when I said that there was no option for protection of paragraph style. There is rvpaoStyleProtect in Options of paragraph style. But TRVRuler ignored this option. Fixed.

Support :: RE: Hearder and footer is not cleaning

Sergey Tkachenko — Tue, 15 May 2012 20:44:13 GMT

Author: Sergey Tkachenko
Posted: Tue May 15, 2012 8:44 pm (GMT 0)

A fixed version is uploaded (for registered users)

Support :: RE: Pure embedded OCX controls

Sergey Tkachenko — Mon, 14 May 2012 16:33:55 GMT

Author: Sergey Tkachenko
Posted: Mon May 14, 2012 4:33 pm (GMT 0)

But how? I can see (in MS Word) the command for inserting object.
It corresponds not to inserting ocx, but to insertion of TOLEContainer.

Support :: RE: Drag and Drop - Help

alexandreq — Mon, 14 May 2012 13:55:56 GMT

Author: alexandreq
Posted: Mon May 14, 2012 1:55 pm (GMT 0)

Sergey, I tried this and I didn't have any success:

Code:

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
re: TDBSRichViewEdit;
lb: TListbox;
begin
if (Source is TDBSRichViewEdit) and (Source <> nil) then
begin
re := TDBSRichViewEdit(Source);
if (Sender is TListbox) and (Sender <> nil) then
begin
lb := TListBox(Sender);
lb.Items.Add(re.RichViewEdit.GetSelText);
end;
end;

end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source = DBSRichViewEdit1.RichViewEdit;
end;

And I settled

DBSRichViewEdit1.RichViewEdit.DragMode := dmAutomatic

With a RichEdit worked fine, unfortunately it didn't with DBSrichViewEdit

Support :: Drag and Drop - Help

alexandreq — Mon, 14 May 2012 12:21:22 GMT

Author: alexandreq
Subject: Drag and Drop - Help
Posted: Mon May 14, 2012 12:21 pm (GMT 0)

Hello Sergey,

How could you do a drag and drop word this way?

I have a listbox and I want to get a word from DBSrichviewEdit and drop only a copy of my word into my ListBox.

how could you do that?

thanks
Alex

Support :: RE: Pure embedded OCX controls

Mr Andreas — Sun, 13 May 2012 22:08:58 GMT

Author: Mr Andreas
Posted: Sun May 13, 2012 10:08 pm (GMT 0)

Sergey Tkachenko wrote:

Sorry for overlooking this question.

Does MS Word allow to embed arbitrary OCX controls directly in a document (not in a VBA form)?

Yes, as long as it is registered, arbitrary OCX controls can be inserted into normal Word documents.

Support :: RE: Pure embedded OCX controls

Sergey Tkachenko — Sun, 13 May 2012 19:27:15 GMT

Author: Sergey Tkachenko
Posted: Sun May 13, 2012 7:27 pm (GMT 0)

Sorry for overlooking this question.

Does MS Word allow to embed arbitrary OCX controls directly in a document (not in a VBA form)?

Support :: RE: TRichEdit with Japanese (and other non roman) characters

Sergey Tkachenko — Sun, 13 May 2012 19:10:21 GMT

Author: Sergey Tkachenko
Posted: Sun May 13, 2012 7:10 pm (GMT 0)

Sorry for overlooking this post.

And sorry, I cannot reproduce this problem.
(The Roman numerals are displayed as boxes in the most of fonts, because fonts do not have glyphs for these characters; however, after applying "Lucida Sans Unicode" or "Arial Unicode MS", they are displayed correctly).
I pasted these examples from a browser, pressed Enter several times in the middle of text, did some other editing - and still I cannot reproduce the problem.
So I need step-by-step instructions.
Also I need to know versions of Delphi and Windows.

Support :: RE: Header height

Sergey Tkachenko — Sat, 12 May 2012 14:30:46 GMT

Author: Sergey Tkachenko
Posted: Sat May 12, 2012 2:30 pm (GMT 0)

1) Make sure that not only SRV.PageProperty.HeaderY&FooterY are equal, but also SRV.UnitsProgram are equal

2) What version of ScaleRichView do you use? Probably, some old version of TSRichViewEdit had a bug of not converting HeaderY and FooterY when assigning UnitsProgram.

Support :: RE: Header height

don709 — Sat, 12 May 2012 13:17:15 GMT

Author: don709
Posted: Sat May 12, 2012 1:17 pm (GMT 0)

Still no idea how this happened or how to fix it from within the program.

This is what I did find...
As I said I use 2 different SRichViewEdit in the same screen on 2 different PageControl Pages. As you suggested I checked the PageProperty.HeaderY in both and they were the same, both the working one and the one with the abnormal header height.

Still no closer to an answer and beginning to spend way to much time on the problem, which was putting me way behind schedule here the nasty fix I came up with.

Each time the program saves the file it is saved in both rvf and rtf format. So I opened the good and the bad rtf in NotePad++ and found the headers to be completely different.

File with abnormal header:
{\rtf1\ansi\ansicpg0\uc1\deff0\deflang0\deflangfe0\paperw11906\paperh16838\margl1984\margr850\margt1417\margb1417\headery5669\footery5669\viewscale112\viewzk2
{\fonttbl{\f0\fnil Arial;}{\f1\fnil Courier New;}{\f2\fnil Times New Roman;}{\f3\fnil\fcharset2 Symbol;}{\f4\fnil Arial Unicode MS;}{\f5\fnil\fcharset0 tahoma;}{\f6\fnil ms sans serif;}{\f7\fnil\fcharset0 times new roman;}{\f8\fnil\fcharset0 ms sans serif;}{\f9\fnil\fcharset0 cambria;}{\f10\fnil\fcharset0 Arial;}{\f11\fnil\fcharset0 garamond itc t;}{\f12\fnil\fcharset0 calibri;}{\f13\fnil Symbol;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;\red64\green128\blue128;\red255\green255\blue206;\red128\green64\blue0;\red0\green0\blue0;\red153\green180\blue209;\red240\green240\blue240;\red231\green204\blue165;\red52\green18\blue46;\red248\green225\blue165;\red218\green180\blue122;}{\*\listtable{\list\listtemplateid1110066945\listsimple1
{\listlevel\levelnfc23\leveljc0\li360\fi-360\jclisttab\tx360{\leveltext\'01\'b7;}{\levelnumbers;}\f13\fs24}
\listid1602251529}
}
{\*\listoverridetable
{\listoverride\listid1602251529\listoverridecount0\ls1}
}
{\header
\pard\fi0\li0\ql\ri0\sb0\sa0\itap0 \plain \f0\fs20 \par}{\footer
\pard\fi0\li0\ql\ri0\sb0\sa0\itap0 \plain \f0\fs20 \par}

File with normal header:
{\rtf1\ansi\ansicpg0\uc1\deff0\deflang0\deflangfe0\paperw11906\paperh16838\margl1984\margr850\margt1417\margb1417\headery567\footery567\viewscale145\viewzk2
{\fonttbl{\f0\fnil Arial;}{\f1\fnil\fcharset0 garamond itc t;}{\f2\fnil\fcharset0 times new roman;}{\f3\fnil\fcharset0 arial;}{\f4\fnil\fcharset0 calibri;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;}
{\header
\pard\fi0\li0\ql\ri0\sb0\sa0\itap0 \plain \f0\fs20 \par}{\footer
\pard\fi0\li0\ql\ri0\sb0\sa0\itap0 \plain \f0\fs20 \par}

I did a simple copy and paste to overwrote the bad header with the good one then changed the source code to open the new rtf instead of the rvf. Then saved it as rvf. Closed the program and reset the source code back to open rvf and it worked. Header back to normal.

This has to be the nastiest fix ever but it worked.
At least now I know if it happens in the field I can fix it but it would certainly be a lot nicer to have a line of code in the program to reset a nasty header.

Support :: RE: Header height

Sergey Tkachenko — Sat, 12 May 2012 11:57:44 GMT

Author: Sergey Tkachenko
Posted: Sat May 12, 2012 11:57 am (GMT 0)

See the page setup dialog. You can see that the header height (and the footer height) = 10 cm.
If the header/footer is empty, this value is ignored. When it is being edited or non-empty, these values are respected (but not completely: they are to large for A4 page, so TSRichViewEdit uses 1/4 of page height (as far as I remember)).
(in code, they are SRV.PageProperty.HeaderY and FooterY properties).

Announcements :: eDocEngine: ScaleRichView and ReportBuilder support

Sergey Tkachenko — Thu, 10 May 2012 16:24:55 GMT

Author: Sergey Tkachenko
Subject: eDocEngine: ScaleRichView and ReportBuilder support
Posted: Thu May 10, 2012 4:24 pm (GMT 0)

News from Gnostice ( www.gnostice.com )

eDocEngine VCL is a comprehensive e-document creation component suite for Delphi and C++Builder. eDocEngine can create documents in clipboard, PDF, RTF, HTML, XHTML, EXCEL, TEXT, CSV, Quattro Pro, LOTUS 1-2-3, DIF, SYLK, TIFF, PNG, SVG (XML-based vector graphics), JPEG, GIF, BMP, EMF and WMF formats.

eDocEngine supported TRichView for a long time. You can find a demo here: http://www.trichview.com/resources/
And now there are good news for eDocEngine and TRichView users.

1) eDocEngine supports our WYSIWYG components, ScaleRichView.
Exe demo: http://www.trichview.com/resources/edocengine/eDocScaleRichViewDemo.zip
In this demo, you can export TSRichViewEdit's pages to PDF and other formats.

2) eDocEngine supports ppRichView objects when exporting from ReportBuilder's reports. You need to enable RICHVIEW compiler directive in eDocEngine files to activate this feature.

Support :: RE: How Can I do ?The SRichViewEdit only to print the new conten

Sergey Tkachenko — Thu, 10 May 2012 10:44:56 GMT

Author: Sergey Tkachenko
Posted: Thu May 10, 2012 10:44 am (GMT 0)

Yes, but it may be not what the user expects.
If you use MinPrintedItemNo and MaxPrintedItemNo to print only items belonging to the selection, there will be the following problems:

1) If the item is selected only partially, it will still be printed completely.
2) The selection will be printed at the same position on the page(s) as it is in the original document. But (I believe) the user expects that it will be printed from the beginning of the page.

Currently, the only solution is to create a hidden TSRichViewEdit, copy the selection to it, and then print this hidden TSRichViewEdit.

A code for copying:

Code:

var Stream: TMemoryStream;
if not SRichViewEdit1.ActiveEditor.SelectionExists then
exit; // no selection;
Stream := TMemoryStream.Create;
SRichViewEdit1.SaveRVFToStream(Stream, True);
Stream.Position := 0;
SRichViewEditHidden.RichViewEdit.LoadRVFFromStream(Stream);
Stream.Free;
// now print SRichViewEditHidden

Support :: RE: Header height

don709 — Thu, 10 May 2012 10:27:54 GMT

Author: don709
Subject: Header height
Posted: Thu May 10, 2012 10:27 am (GMT 0)

Right... I had only changed it to RVE.Format in the else statement.
Now it's changed in both places but still no difference.

It has something to do with the rvf file itself because if I open the file with ActionTest and when I double click the header it opens up to be the same abnormal height.

It's only a 1 page test file... maybe you could be so kind as to have a look at it for me.
http://www.donwalsh.com/test.zip

I guess my problem is that I don't know how it happened and I need some code to fix it when it does. By fix it I guess I mean make the header come back to a normal default height.

Thanks for taking the time to answer my posts.
Don

Support :: RE: How Can I do ?The SRichViewEdit only to print the new conten

kisshexuxia — Thu, 10 May 2012 00:31:06 GMT

Author: kisshexuxia
Posted: Thu May 10, 2012 12:31 am (GMT 0)

kisshexuxia wrote:

Sergey Tkachenko wrote:

After the first print, store the count of items in some integer variable:
LastPrintedItemCount := SRichViewEdit1.RichViewEdit.ItemCount.

When printing next time, assign
SRichViewEdit1.MinPrintedItemNo := LastPrintedItemCount;

Then you can store the count of items in LastPrintedItemCount again, and so on.

Thank you! You Are Right.
Then i want to Print where my selected text,some people tell me,use GetSelBounds. what can i do?
Thank you very much

The problem has been solved .
I use GetSelectionBounds to get startItemNo,endItemNo.

rve.RVData.GetSelectionBounds(startItemNo,startItemOfs,endItemNo,endItemOfs,false);

Support :: RE: How Can I do ?The SRichViewEdit only to print the new conten

kisshexuxia — Wed, 09 May 2012 13:38:32 GMT

Author: kisshexuxia
Posted: Wed May 09, 2012 1:38 pm (GMT 0)

Sergey Tkachenko wrote:

Thank you! You Are Right.
Then i want to Print where my selected text,some people tell me,use GetSelBounds. what can i do?
Thank you very much

Examples, Demos :: RE: [Demo] Sending HTML email. Saving MIME-encoded files.

Sergey Tkachenko — Wed, 09 May 2012 10:12:58 GMT

Author: Sergey Tkachenko
Posted: Wed May 09, 2012 10:12 am (GMT 0)

A new demo using Indy is added (in Delphi\Indy folder).
The old demo was moved to Delphi\Indy.old.

Old demo:
This demo tricks Indy. Indy thinks that this is a plain text message, but the demo includes all HTML email codes in the plain text, so it is actually an HTML email.
This demo can be used with all versions of Indy (may be with some minor modifications) and Delphi. It requires thirdparty code (included) for base64 encoding.

New demo:
This demo uses Indy features to create an HTML email. It requires Indy 10+ (because Indy 9 did not allow nested mime sections, required for HTML emails).
This demo requires Delphi 2009 or newer (it was created in Delphi XE2)
Note: the new version of Indy allows creating HTML email even more easily, using TIdMessageBuilderHtml. I was not aware about this class when creating this demo. Nevertheless, the results of this demo and of TIdMessageBuilderHtml must be identical.

Support :: RE: How Can I do ?The SRichViewEdit only to print the new conten

Sergey Tkachenko — Wed, 09 May 2012 07:08:34 GMT

Author: Sergey Tkachenko
Posted: Wed May 09, 2012 7:08 am (GMT 0)

After the first print, store the count of items in some integer variable:
LastPrintedItemCount := SRichViewEdit1.RichViewEdit.ItemCount.

When printing next time, assign
SRichViewEdit1.MinPrintedItemNo := LastPrintedItemCount;

Then you can store the count of items in LastPrintedItemCount again, and so on.

Support :: RE: How Can I do ?The SRichViewEdit only to print the new conten

kisshexuxia — Wed, 09 May 2012 01:37:52 GMT

Author: kisshexuxia
Subject: YES
Posted: Wed May 09, 2012 1:37 am (GMT 0)

Sergey Tkachenko wrote:

Do you want to print on the same paper as the old content was printed?
Is the new content added to the end of the document?

YES

Support :: RE: huntspell - only check the current page

alexandreq — Tue, 08 May 2012 11:18:54 GMT

Author: alexandreq
Posted: Tue May 08, 2012 11:18 am (GMT 0)

sniffffff

well, then what can you suggest me to do?

Support :: RE: Load and save PNG in TDBRichViewEdit extremely slow

Sergey Tkachenko — Tue, 08 May 2012 10:42:51 GMT

Author: Sergey Tkachenko
Posted: Tue May 08, 2012 10:42 am (GMT 0)

There were 2 problems

1) Because of "Unicode memo" field type, data were saved as RTF converted to Unicode string. Pictures in RTF ==> twice in size. RTF to Unicode string ==> twice in size. As a result, a picture is increased by 4 times from the original size.
2) Due to property setting or due to the insertion methods, the picture was saved not as PNG but as a metafile containing bitmap (large size).

Support :: RE: How Can I do ?The SRichViewEdit only to print the new conten

Sergey Tkachenko — Tue, 08 May 2012 10:38:58 GMT

Author: Sergey Tkachenko
Posted: Tue May 08, 2012 10:38 am (GMT 0)

Do you want to print on the same paper as the old content was printed?
Is the new content added to the end of the document?

Support :: RE: huntspell - only check the current page

Sergey Tkachenko — Tue, 08 May 2012 10:37:43 GMT

Author: Sergey Tkachenko
Posted: Tue May 08, 2012 10:37 am (GMT 0)

No, the current version does not allow it, sorry.
In future, we plan to modify a spelling check to process a displayed fragment at the first place, but this feature has a low priority, sorry.

Support :: RE: Header height

Sergey Tkachenko — Tue, 08 May 2012 10:36:08 GMT

Author: Sergey Tkachenko
Posted: Tue May 08, 2012 10:36 am (GMT 0)

In this code, you still call RVE.RVHeader.Format instead of RVE.Format;