Issue with Copying Images from RichView (RVF)

General TRichView support forum. Please post your questions here
Post Reply
tomr
Posts: 56
Joined: Wed Dec 09, 2020 9:36 am

Issue with Copying Images from RichView (RVF)

Post by tomr »

Hello RichView Support,
I’m encountering an issue with an image embedded in a RichEdit control using RichView.
I’ve attached an RVF file that demonstrates the problem.
Test Bild.rvf
Rvf-File with Picture
(39.13 KiB) Downloaded 5 times
When copying the image from this document, it cannot be pasted into applications like Paint. Additionally, the available paste options differ compared to images in other documents.
The image in question appears to be stored in Rich Text Format and RichView Format, whereas other images typically use Bitmap format.
This Picture:
Corrupted Picture Paste Special.png
Corrupted Picture Paste Special.png (8.21 KiB) Viewed 121 times
Other Pictures:
Picture Paste Special.png
Picture Paste Special.png (5.64 KiB) Viewed 121 times
This behavior can also be reproduced in the RichView demo application (“RichViewActions” test). Simply load the attached RVF file and try copying the image.

Do you have any insights into why this is happening or how it can be resolved?

Thank you in advance for your help.

Best regards,
Tom
standay
Posts: 336
Joined: Fri Jun 18, 2021 3:07 pm

Re: Issue with Copying Images from RichView (RVF)

Post by standay »

My guess is this may be by design. You can put something like this in your copy code or action. It's what I use:

Code: Select all

var
  gr: TGraphic;
  ATag: TRVTag;
  RVAlign: TRVVAlign;
  s: TRVUnicodeString;
  AData: THandle;
  APalette: HPALETTE;

begin

  if (rv.GetSelectedImage <> nil) then
  begin

      rv.GetCurrentPictureInfo( s, gr, RVAlign, ATag );
   
      if gr <> nil then
      begin
        //ShowMessage( 'x ' + gr.ClassName); //debug
        Clipboard.Open;
        gr.SaveToClipboardFormat(CF_PICTURE,AData,APalette);
        ClipBoard.SetAsHandle(CF_PICTURE,AData);
        Clipboard.Close;
      end
      else
      if not rv.CopyDef then
      begin
        ShowMessage('Unable to copy data.');
      end;
    end;

  end;
Stan (not with rv support)
tomr
Posts: 56
Joined: Wed Dec 09, 2020 9:36 am

Re: Issue with Copying Images from RichView (RVF)

Post by tomr »

Hi Stan,
Thanks for the help. It is working fine. :D
Post Reply