Re: Importing RTF containing Word Draw objects

Author

Message

Steve Craig

Posted: 07/10/2005 6:47:52

Thanks for reply

I have tried 2 ways to implement this,

1. Loaded the RTF and loop thru each item using SetCurrentItemExtraIntProperty

on any pictures (StyleIndex is -3) I find to change the vertical position.

My problem is that I don't know how to set an item to the current item.

2. Use the ItemAction event and check for rviaInseted. If picure then use

SetCurrentItemExtraIntProperty as above. However I don't think that the

item just inserted becomes the current item.

Which of these methods (if either) should I use?. How can I set an item

to be the current item?

"Sergey Tkachenko" <svt@trichview.com> wrote:

>The equation objects are special kind of MS Word objects. Their base line

>must be aligned to the text base line, and TRichView does not know where

the

>base line of these objects (images)

>All what you can do is to shift them down until the proper position.

>VAlign cannot be used here, it provides only two options - "image bottom

===

>text base line", "image middle === text base line".

>You need more precise positioning.

>It can be implemented using extra items' integer properties, namely

>rvepVShift and rvepVShiftAbs (see the help file for TRVExtraItemProperty

>type)

>rvepVShift defines a vertical offset of the item, in % of the item height

>(default), or in pixels, depending on the value of rvepVShiftAbs property.

>This code moves the current picture by one unit down:

>var vshift: Integer;

>if GetCurrentItemExtraIntProperty(rvepVShift, vshift) then

> SetCurrentItemExtraIntProperty(rvepVShift, vshift-1, True);