Re: Importing RTF containing Word Draw objects

Author

Message

Steve Craig

Posted: 07/10/2005 14:42:28

I was able to sort it out, I just used the SetItemExtraIntProperty instead.

Of course!!!

"Steve Craig" <[email protected]> wrote:

>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" <[email protected]> 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);