opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

SynMemo.PasteFromClipboard sometimes throws some "Cannot open clipboard" exception - don't know why. Turn the exception into a simple message dialog.

Browse Source
This commit is contained in:
Ansgar Becker
2010-09-09 21:53:29 +00:00
parent a2aa3f3438
commit eb4ec87ba4
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/main.pas
View File

@ -7974,8 +7974,12 @@ begin
end else if Control is TSynMemo then begin
SynMemo := TSynMemo(Control);
if not SynMemo.ReadOnly then begin
SynMemo.PasteFromClipboard;
Success := True;
try
SynMemo.PasteFromClipboard;
Success := True;
except on E:Exception do
MessageDlg(E.Message, mtError, [mbOK], 0);
end;
end;
end;
if not Success then