pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Check FSelectionCount in CopyToClipboard

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1056 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-13 11:15:12 +00:00
parent 0fb81de4d1
commit 6ba1ac075c
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -31927,10 +31927,13 @@ end;
{$ifndef LCLWin32} {$ifndef LCLWin32}
procedure TCustomVirtualStringTree.CopyToClipBoard; procedure TCustomVirtualStringTree.CopyToClipBoard;
begin begin
MarkCutCopyNodes; if FSelectionCount > 0 then
DoStateChange([tsCopyPending]); begin
Clipboard.AsText := ContentToUTF8(tstCutCopySet, #9); MarkCutCopyNodes;
DoStateChange([], [tsCopyPending]); DoStateChange([tsCopyPending]);
Clipboard.AsText := ContentToUTF8(tstCutCopySet, #9);
DoStateChange([], [tsCopyPending]);
end;
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------