Memo1.CopyToClipboard

[eric]

I've got what seems a trivial problem with this function. I have a memo with a few lines of text in it, and a button for the user to click to copy the text to the clipboard. First I wrote this:

Code: [Select]

procedure TMainForm.ClipButtonClick(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.SelLength := 0;
end;
but it doesn't copy anything to the clipboard. If I remove the third line then it works but the text remains highlighted. It looks as if the third line gets implemented before the second line completes its work.

I can work around the problem with the following rather clumsy code:

Code: [Select]

procedure TMainForm.ClipButtonClick(Sender: TObject);
var
  N: Integer;
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  for N := 1 to 10 do
  begin
    Delay(50);
    Application.ProcessMessages;
  end;
  Memo1.SelLength := 0;
end;
but is there a better way?

This is on Linux 64-bit + KDE and I haven't tested it on other systems, but I do need it to work equally on both Windows and Linux.

[exdatis]

Try to use TClipboard:
---(before use ->my_clipboard:= TClipboard.Create)
--eg
my_clipboard.Clear;
  curr_text:= Memo1.Lines.Text;//curr_text : String
  if my_clipboard.HasFormat(CF_Text) then
    my_clipboard.AsText:= curr_text;
It works!
Regards

[eric]

Thank you, I'll have a look at it.

[BigChimp]

Strange. Shouldn't CopyToClipboard just work?

@Eric: what Lazarus version are you using? Perhaps upgrading will help?

FYI, on Windows with Lazarus trunk your original code

Code: [Select]

procedure TMainForm.ClipButtonClick(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.SelLength := 0;
end;
copies to the clipboard ok...

[exdatis]

I suppose that problem is Linux,
I use TClipboard on win and Linux,
without problem.

[BigChimp]

If you have the latest stable version (or trunk version) of Lazarus on Linux and it shows the problem, perhaps it's a good idea to file a bug report (if one hasn't been filed already) so this can be fixed.

[eric]

If you have the latest stable version (or trunk version) of Lazarus on Linux and it shows the problem, perhaps it's a good idea to file a bug report (if one hasn't been filed already) so this can be fixed.

I'll check that out. I'm using the latest released versions (Lazarus 1.0.10, FPC 2.6.2), and I've confirmed that the original code I quoted above works fine on Windows but malfunctions on both Linux 32-bit and 64-bit KDE (it may be a desktop issue rather than Linux per se).

[Dick, from the internet]

Code: [Select]

procedure TMainForm.ClipButtonClick(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.SelLength := 0;
end;

This works as expected on Linux (Fedora) 64 bit, GTK2

  regards,
      geno

[exdatis]

Thank you, but,
try to use several time, I've bad experiences on openSuSe, except when I use a clipboard manager, to clear clipboard.
Regards

[Jurassic Pork]

hello,
it seems that selecting memo text on  linux has some bugs :
this doesn't work for me on Ubuntu 12.04 gtk2 :

Code: [Select]

Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.SelLength := 0;

it seems that the text isn't already selected when the copytoClipboard is executed.
if you have troubleshooting with :

Code: [Select]

Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.SelLength := 0;
replace by this :

Code: [Select]

ClipBoard.AsText := Memo1.Text;     
Friendly, J.P

[Dick, from the internet]

I goofed.     After reading JP's post, I went back to double check myself, and found as he stated that it works if the text is pre-selected.  So my previous assumption that it works with gtk2 was incorrect.

    regards,
        geno


edit:
As eric pointed out in the begining, it works by using   .ProcessMessages

Code: [Select]


  Memo1.SelectAll;
  Application.ProcessMessages;
  Memo1.CopyToClipboard;
  Application.ProcessMessages;
  Memo1.SelLength := 0;

Another oddity, with just this code:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
end;
Clicking the button twice will copy to clipboard correctly - but never if .SelLength := 0 is added at the end.

  regards,
     geno

[eric]

I'm learning things from this thread. It hadn't occurred to me that Application.ProcessMessages on its own (without the delay loop) would fix the problem.

I've posted report ID 0024712 on the bugtracker.

[Edit] Application.ProcessMessages on its own doesn't fix the problem on my system. It needs the delay loop as well.

[Pascaluvr]

I haven't tested this - its just a thought.....

How about instead of ProcessMessages .. Delay ....

Would PostMessage with a message handler for the event work?

[theo]

This works, here:

Code: [Select]


uses Clipbrd; 
....
Memo1.SelectAll;
Clipboard.AsText:=Memo1.text;
Memo1.SelLength := 0;   

[eric]

Thanks Theo, that works here too.

(Actually, with this method it's not necessary to have the first and third lines at all. Clipboard.AsText := Memo1.Text is all that's needed.)