From 6ba1ac075cf47810b00e61509c74b0aa28410569 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 13 Dec 2009 11:15:12 +0000
Subject: [PATCH] * Check FSelectionCount in CopyToClipboard

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1056 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-new/trunk/VirtualTrees.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index 4d539e168..a3f65d733 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -31927,10 +31927,13 @@ end;
 {$ifndef LCLWin32}
 procedure TCustomVirtualStringTree.CopyToClipBoard;
 begin
-  MarkCutCopyNodes;
-  DoStateChange([tsCopyPending]);
-  Clipboard.AsText := ContentToUTF8(tstCutCopySet, #9);
-  DoStateChange([], [tsCopyPending]);
+  if FSelectionCount > 0 then
+  begin
+    MarkCutCopyNodes;
+    DoStateChange([tsCopyPending]);
+    Clipboard.AsText := ContentToUTF8(tstCutCopySet, #9);
+    DoStateChange([], [tsCopyPending]);
+  end;
 end;
 
 //----------------------------------------------------------------------------------------------------------------------