jsonV tweaks

Author: stijnsanders

LICENSE

@@ -1,6 +1,6 @@
 The MIT License (MIT)
 
-Copyright (c) 2015-2019 Stijn Sanders
+Copyright (c) 2015-2024 Stijn Sanders
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

jsonV.dof

@@ -110,8 +110,8 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=2
-Release=2
-Build=654
+Release=4
+Build=688
 Debug=0
 PreRelease=0
 Special=0
@@ -122,7 +122,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=jsonV
-FileVersion=1.2.2.654
+FileVersion=1.2.4.688
 InternalName=
 LegalCopyright=
 LegalTrademarks=

jsonV.res

@@ -46,6 +46,13 @@ object frmJsonViewer: TfrmJsonViewer
       Height = 16
       Caption = '&Find:'
     end
+    object lblSearchResult: TLabel
+      Left = 352
+      Top = 8
+      Width = 12
+      Height = 16
+      Caption = '...'
+    end
     object txtFind: TEdit
       Left = 40
       Top = 4

jsonV1.dfm

@@ -21,6 +21,7 @@   TfrmJsonViewer = class(TForm)
     actSearchPrev: TAction;
     actSearchNext: TAction;
     actSortChildren: TAction;
+    lblSearchResult: TLabel;
     procedure TreeView1CreateNodeClass(Sender: TCustomTreeView;
       var NodeClass: TTreeNodeClass);
     procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
@@ -46,6 +47,7 @@   TfrmJsonViewer = class(TForm)
     procedure SearchNode(Sender: TObject; Down: boolean);
   protected
     procedure DoShow; override;
+    procedure CreateParams(var Params: TCreateParams); override;
   end;
 
   TJSONNode=class(TTreeNode)
@@ -94,6 +96,7 @@ procedure TfrmJsonViewer.DoShow;
   FFileMulti:=false;
 
   Application.OnActivate:=AppActivate;
+  ShowWindow(Application.Handle,SW_HIDE);
 
   TreeView1.Items.BeginUpdate;
   try
@@ -409,6 +412,12 @@ procedure TfrmJsonViewer.AppActivate(Sender: TObject);
     end;
 end;
 
+procedure TfrmJsonViewer.CreateParams(var Params: TCreateParams);
+begin
+  inherited;
+  Params.WndParent:=GetDesktopWindow;
+end;
+
 { TJSONNode }
 
 procedure TJSONNode.AfterConstruction;
@@ -644,6 +653,7 @@ procedure TfrmJsonViewer.SearchNode(Sender:TObject;Down:boolean);
   n,n1:TTreeNode;
   f:string;
   b:boolean;
+  c:integer;
 
   procedure MoveOne;
   begin
@@ -676,12 +686,14 @@ procedure TfrmJsonViewer.SearchNode(Sender:TObject;Down:boolean);
          end;
        end;
      end;
+    inc(c);
   end;
 
 begin
   Screen.Cursor:=crHourGlass;
   TreeView1.Items.BeginUpdate;
   try
+    c:=0;
     n1:=TreeView1.Selected;
     n:=n1;
     MoveOne;
@@ -695,7 +707,16 @@ procedure TfrmJsonViewer.SearchNode(Sender:TObject;Down:boolean);
     Screen.Cursor:=crDefault;
     TreeView1.Items.EndUpdate;
   end;
-  TreeView1.Selected:=n;
+  if n=nil then
+    lblSearchResult.Caption:='none found'
+  else
+   begin
+    if Down then
+      lblSearchResult.Caption:=IntToStr(c)+' nodes forward'
+    else
+      lblSearchResult.Caption:=IntToStr(c)+' nodes backward';
+    TreeView1.Selected:=n;
+   end;
   TreeView1.SetFocus;
 end;