Re: sample / info Method SetItemExtraIntProperty

Author

Message

Ricardo Bas

Posted: 07/09/2002 21:30:26

Thank you for the example. It works now.

All the best,

Ricardo

s2o wrote in message <[email protected]>...

>> I need to change the size of an image in my rve. I know i need to use the

>> SetItemExtraIntProperty method. Only i don't know how. Does anyone have a

>> little example?

>This is from an old msg of Sergey in this newsgroup:

>Size adjustment is available for standard implementation of metafiles, bmp

>and jpeg.

>It is not available for icons.

>There are several different gif implementations, you can test them

yourself.

>This code scales the current image (in the position of caret) to 100 x 100:

>// minimal code:

>if rve.CurItemStyle in [rvsPicture, rvsHotPicture] then

>begin

>RichViewEdit1.SetCurrentItemExtraIntProperty(rvepImageHeight, 100, False);

>RichViewEdit1.SetCurrentItemExtraIntProperty(rvepImageWidth, 100, True);

>end;

>OR

>// if you want these operations to be undone as one operation:

>if rve.CurItemStyle in [rvsPicture, rvsHotPicture] then

>begin

>MyRichViewEdit.BeginUndoGroup(rvutModifyItem);

>MyRichViewEdit.SetUndoGroupMode(True);

>RichViewEdit1.SetCurrentItemExtraIntProperty(rvepImageHeight, 100, False);

>RichViewEdit1.SetCurrentItemExtraIntProperty(rvepImageWidth, 100, True);

>MyRichViewEdit.SetUndoGroupMode(False);

>end;