From ad495966ed64526329876a87a984ebff7e4f93b1 Mon Sep 17 00:00:00 2001
From: gbamber <gbamber@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 5 Dec 2016 11:16:14 +0000
Subject: [PATCH] Moved inline procedure CreateUniqueINI to separate function
 Added Const C_DEBUGMESSAGES=TRUE/FALSE

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5420 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/json_packager/jsonpackage.lps | 14 +++++++-------
 applications/json_packager/umain.pas       |  8 ++++++--
 2 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/applications/json_packager/jsonpackage.lps b/applications/json_packager/jsonpackage.lps
index 542340a8e..0fc099376 100644
--- a/applications/json_packager/jsonpackage.lps
+++ b/applications/json_packager/jsonpackage.lps
@@ -20,12 +20,12 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="349"/>
-        <CursorPos X="3" Y="354"/>
+        <TopLine Value="13"/>
+        <CursorPos X="26" Y="31"/>
         <UsageCount Value="61"/>
         <Bookmarks Count="2">
-          <Item0 Y="473" ID="1"/>
-          <Item1 Y="742"/>
+          <Item0 Y="477" ID="1"/>
+          <Item1 Y="746"/>
         </Bookmarks>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -103,7 +103,7 @@
         <EditorIndex Value="3"/>
         <TopLine Value="10428"/>
         <CursorPos X="29" Y="10452"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="14"/>
         <Loaded Value="True"/>
       </Unit11>
       <Unit12>
@@ -111,7 +111,7 @@
         <EditorIndex Value="2"/>
         <TopLine Value="517"/>
         <CursorPos X="3" Y="478"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="14"/>
         <Loaded Value="True"/>
       </Unit12>
       <Unit13>
@@ -119,7 +119,7 @@
         <EditorIndex Value="1"/>
         <TopLine Value="200"/>
         <CursorPos X="21" Y="383"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit13>
     </Units>
diff --git a/applications/json_packager/umain.pas b/applications/json_packager/umain.pas
index 9304b0f88..f785093fe 100644
--- a/applications/json_packager/umain.pas
+++ b/applications/json_packager/umain.pas
@@ -1,5 +1,4 @@
 unit umain;
-
  { OnlinePackageManager Update JSON Editor
 
   Copyright (C)2016 usernames lainz, minesadorada @ http://forum.lazarus.freepascal.org/index.php
@@ -34,6 +33,8 @@ unit umain;
             Comment out Self.AutoAdjustLayout line in Form.Create (GetMem)
             Removed StrUtils from uses (minesadorada)
             Fixed memory leaks with CFG and slErrorList (minesadorada)
+            Moved inline procedure CreateUniqueINI to separate function
+            Added Const C_DEBUGMESSAGES=TRUE/FALSE
  }
 {$mode objfpc}{$H+}
 
@@ -46,6 +47,8 @@ uses
   Dialogs, LCLTranslator, PopupNotifier, SysUtils, inifiles,
   lclintf, lclVersion;
 
+CONST C_DEBUGMESSAGES=FALSE;
+
 type
 
   { TPackage }
@@ -432,7 +435,8 @@ begin
   If CreateUniqueINI(iIniCount) then
     CFG.WriteString('Options', 'AppPath', ProgramDirectory);
   CFG.UpdateFile;
-  ShowMessageFmt('Inifile=%s, Count=%d',[INIFilePath,iIniCount]);
+  If C_DEBUGMESSAGES=TRUE then
+    ShowMessageFmt('Inifile=%s, Count=%d',[INIFilePath,iIniCount]);
   // Pop-up hints (show on first run, then not again unless the user chooses)
   bIsVirgin := CFG.ReadBool('Options', 'Virgin', True);
   bShowPopupHints := bIsVirgin;