paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fixed Quick-Paste-selection (usually middle mouse button)

Browse Source 
git-svn-id: trunk@22197 -
This commit is contained in:
martin 2009-10-17 00:47:33 +00:00
parent 82ae075ca3
commit d7dd7cd328
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -2476,6 +2476,8 @@ begin
ClipHelper.ReadFromClipboard(PrimarySelection); ClipHelper.ReadFromClipboard(PrimarySelection);
if ClipHelper.TextP <> nil then begin if ClipHelper.TextP <> nil then begin
MoveCaret; MoveCaret;
if (not FBlockSelection.Persistent) then
FBlockSelection.Clear;
Result := PasteFromClipboardEx(ClipHelper); Result := PasteFromClipboardEx(ClipHelper);
end end
else else