pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Moved inline procedure CreateUniqueINI to separate function

Browse Source 
Added Const C_DEBUGMESSAGES=TRUE/FALSE  

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5420 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-05 11:16:14 +00:00
parent ca2e38be65
commit ad495966ed
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
applications/json_packager/jsonpackage.lps
View File

@ -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>

8
applications/json_packager/umain.pas
View File

@ -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;