Small enhancement for the jsonviewer:
In mainform, OnShow change the code to:
-------------------------------------------------------------------------
procedure TMainForm.FormShow(Sender: TObject);
begin
if (Paramcount > 0) then
try
OpenFile(ParamStr(1));
exit;
except
ShowMessage('Cannot open ' + ParamStr(1));
end;
NewDocument;
end;
-------------------------------------------------------------------------
Now you can start from a filemanager using Open with... to open json files.
--
View this message in context:
http://free-pascal-general.1045716.n5.nabble.com/JSON-Parser-to-tree-view-tp3230590p5720161.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
