[fpc-pascal] JSON Parser to tree view

[wollepatong]

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.