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

tools/jsonviewer: Fix crashing due to unknown clipboard format

Browse Source 
git-svn-id: trunk@55340 -
This commit is contained in:
wp 2017-06-12 21:58:15 +00:00
parent 069ea79aae
commit fe1128f2bc
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tools/jsonviewer/frmmain.pp
View File

@ -211,7 +211,8 @@ var
implementation
uses typinfo,msgjsonviewer, frmNewBoolean, frmNewINteger, frmNewString, clipbrd;
uses
typinfo,msgjsonviewer, lcltype, frmNewBoolean, frmNewINteger, frmNewString, clipbrd;
{$R *.lfm}
Const
@ -628,12 +629,13 @@ begin
D.Free;
Exit;
end;
AddDataToCOntainer(N,D);
AddDataToContainer(N,D);
end;
procedure TMainForm.APasteUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=ClipBoard.HasFormat(Clipboard.FindFormatID('text/plain'));
// (Sender as TAction).Enabled:=ClipBoard.HasFormat(Clipboard.FindFormatID('text/plain'));
(Sender as TAction).Enabled:=ClipBoard.HasFormat(CF_TEXT);
end;
procedure TMainForm.AddNewValue(AType : TJSONType);