Copy text to clipboard from preview

Comments

• gpi

  January 2012 edited 5:15AM

  procedure TForm1.frxReport1ClickObject(Sender: TfrxView;
    Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
  var MyClipboardFormat: Word;
      MyHandle: Cardinal;
      MyPalette: HPalette;
  begin
       if Sender is TfrxPictureView then
         if Sender.Name = 'Picture1' then
           begin
             MyClipboardFormat := CF_BITMAP;
             TfrxPictureView(Sender).Picture.SaveToClipboardFormat(MyClipboardFormat, MyHandle, MyPalette );
             ClipBoard.SetAsHandle(MyClipboardFormat, MyHandle);
           end;
  end;
  
• JanEK

  January 2012 edited 5:15AM

  i have found that solution before, i was hoping that there is a way to let the end-user, hightlight text in the preview and copy the highlighted text, not just the clicked object...
  
• gpi

  January 2012 edited 5:15AM

  There are no such solution
• technisoft

  January 2012 edited January 2012

  Export and display the report as PDF and copy, paste and print from there works.
• Slashmaster

  March 2013 edited 5:15AM

  Hello,
  
  is it possible to copy a whole Text of an Memo-Field to the Clipboard?
  
  thx a lot!
• gpi

  March 2013 edited 5:15AM

  wrote:

  is it possible to copy a whole Text of an Memo-Field to the Clipboard?

  No
• Slashmaster

  March 2013 edited 5:15AM

  Okay
• Luis Miguel Molinero

  April 2016 edited 5:15AM

  The answer is Yes, I did it, use a TMemoryStream.
  Here is the code I used:

  frxSimpleTextExport1.ShowDialog := false;
  aStream := TMemoryStream.Create
   try
    frxSimpleTextExport1.Stream := aStream;
    frxReport1.Export(frxSimpleTextExport1);
    aStream.Position := 0;
    Memo1.Lines.LoadFromStream(aStream);
    Memo1.SelectAll;
    Memo1.CopyToClipboard;
   finally
    frxSimpleTextExport1.Stream := nil;
    FreeAndNil(aStream);
   end;
  
• ss4925802

  April 2016 edited 5:15AM

  I agree with the second comment about that ....