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

0.1.15.0

Browse Source 
Added free methods in _Destroy

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5425 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-05 15:33:48 +00:00
parent 7c9f822f15
commit 8b3a1a4d80
5 changed files with 48 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
applications/json_packager/jsonpackage.lpi
View File

@@ -24,8 +24,7 @@
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="1"/> <MinorVersionNr Value="1"/>
<RevisionNr Value="14"/> <RevisionNr Value="15"/>
<BuildNr Value="1"/>
<StringTable Comments="Buld configured for Win Linux and Darwin" FileDescription="An editor for OnlinePackageManager update JSON files" InternalName="jsoneditor" LegalCopyright="(c)2016 usernames lainz and minesadorada @ forum.lazarus.freepascal.org" LegalTrademarks="GPL code" OriginalFilename="jsoneditor" ProductName="Lazarus and Freepascal" ProductVersion="1.x and 3.x"/> <StringTable Comments="Buld configured for Win Linux and Darwin" FileDescription="An editor for OnlinePackageManager update JSON files" InternalName="jsoneditor" LegalCopyright="(c)2016 usernames lainz and minesadorada @ forum.lazarus.freepascal.org" LegalTrademarks="GPL code" OriginalFilename="jsoneditor" ProductName="Lazarus and Freepascal" ProductVersion="1.x and 3.x"/>
</VersionInfo> </VersionInfo>
<BuildModes Count="6"> <BuildModes Count="6">
@@ -131,6 +130,11 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<OtherDefines Count="1">
<Define0 Value="IGNOREPICTURE"/>
</OtherDefines>
</Other>
</CompilerOptions> </CompilerOptions>
</Item4> </Item4>
<Item5 Name="Darwin32"> <Item5 Name="Darwin32">

68
applications/json_packager/jsonpackage.lps
View File

@@ -20,12 +20,12 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="23"/> <TopLine Value="466"/>
<CursorPos X="35" Y="39"/> <CursorPos Y="470"/>
<UsageCount Value="62"/> <UsageCount Value="62"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 Y="484" ID="1"/> <Item0 Y="488" ID="1"/>
<Item1 Y="753"/> <Item1 Y="757"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@@ -129,123 +129,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="214" Column="18" TopLine="174"/> <Caret Line="403" Column="21" TopLine="363"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="397" Column="21" TopLine="357"/> <Caret Line="464" Column="70" TopLine="424"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="403" Column="21" TopLine="363"/> <Caret Line="486" Column="21" TopLine="446"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="464" Column="70" TopLine="424"/> <Caret Line="598" Column="32" TopLine="558"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="486" Column="21" TopLine="446"/> <Caret Line="600" Column="37" TopLine="560"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="598" Column="32" TopLine="558"/> <Caret Line="601" Column="23" TopLine="561"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="600" Column="37" TopLine="560"/> <Caret Line="620" Column="77" TopLine="580"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="601" Column="23" TopLine="561"/> <Caret Line="623" Column="37" TopLine="583"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="620" Column="77" TopLine="580"/> <Caret Line="624" Column="23" TopLine="585"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="623" Column="37" TopLine="583"/> <Caret Line="628" Column="33" TopLine="589"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="624" Column="23" TopLine="585"/> <Caret Line="629" Column="42" TopLine="590"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="628" Column="33" TopLine="589"/> <Caret Line="631" Column="37" TopLine="592"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="629" Column="42" TopLine="590"/> <Caret Line="632" Column="23" TopLine="593"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="631" Column="37" TopLine="592"/> <Caret Line="636" Column="65" TopLine="597"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="632" Column="23" TopLine="593"/> <Caret Line="638" Column="37" TopLine="599"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="636" Column="65" TopLine="597"/> <Caret Line="639" Column="23" TopLine="600"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="638" Column="37" TopLine="599"/> <Caret Line="710" Column="61" TopLine="670"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="639" Column="23" TopLine="600"/> <Caret Line="397" TopLine="360"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="710" Column="61" TopLine="670"/> <Caret Line="441" Column="5" TopLine="414"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="397" TopLine="360"/> <Caret Line="444" Column="42" TopLine="141"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="441" Column="5" TopLine="414"/> <Caret Line="386" Column="27" TopLine="377"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="444" Column="42" TopLine="141"/> <Caret Line="431" Column="18" TopLine="417"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="386" Column="27" TopLine="377"/> <Caret Line="367" Column="18" TopLine="363"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="431" Column="18" TopLine="417"/> <Caret Line="36" Column="71" TopLine="10"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="367" Column="18" TopLine="363"/> <Caret Line="700" TopLine="682"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="36" Column="71" TopLine="10"/> <Caret Line="31" Column="60" TopLine="13"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="700" TopLine="682"/> <Caret Line="417" Column="45" TopLine="393"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="31" Column="60" TopLine="13"/> <Caret Line="6" Column="60"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="417" Column="45" TopLine="393"/> <Caret Line="38" Column="37" TopLine="23"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="umain.pas"/> <Filename Value="umain.pas"/>
<Caret Line="6" Column="60"/> <Caret Line="388" TopLine="375"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

BIN
applications/json_packager/jsonpackage.res
View File

Binary file not shown.

1
applications/json_packager/umain.lfm
View File

@@ -13,6 +13,7 @@ object frmMain: TfrmMain
OnClose = FormClose OnClose = FormClose
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '1.7'

10
applications/json_packager/umain.pas
View File

@@ -138,6 +138,7 @@ type
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure LoadItemClick(Sender: TObject); procedure LoadItemClick(Sender: TObject);
procedure mnu_fileNewClick(Sender: TObject); procedure mnu_fileNewClick(Sender: TObject);
@@ -384,9 +385,6 @@ begin
CFG.WriteBool('Options', 'Virgin', False); CFG.WriteBool('Options', 'Virgin', False);
CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings); CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings);
CFG.UpdateFile; CFG.UpdateFile;
Application.ProcessMessages;
CFG.Free;
slErrorList.Free;
end; end;
end; end;
function TfrmMain.CreateUniqueINI(var aCount: integer):Boolean; function TfrmMain.CreateUniqueINI(var aCount: integer):Boolean;
@@ -465,6 +463,12 @@ begin
bDirty := False; // No effect :( bDirty := False; // No effect :(
end; end;
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
CFG.Free;
slErrorList.Free;
end;
procedure TfrmMain.FormShow(Sender: TObject); procedure TfrmMain.FormShow(Sender: TObject);
begin begin
bDirty := False; bDirty := False;