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

No version change. Minor tweaks, incl per-monitor HighDPI supported

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5455 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2016-12-09 10:13:04 +00:00
parent d6f59a224b
commit 49d960779c
4 changed files with 20 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/json_packager/jsonpackage.lpi
View File

@ -10,7 +10,7 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
<DpiAware Value="True/PM"/>
<TextName Value="CompanyName.ProductName.AppName"/>
<TextDesc Value="Your application description."/>
</XPManifest>

14
applications/json_packager/jsonpackage.lps
View File

@ -10,7 +10,7 @@
<IsPartOfProject Value="True"/>
<EditorIndex Value="5"/>
<CursorPos Y="30"/>
<UsageCount Value="83"/>
<UsageCount Value="84"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@ -20,12 +20,12 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="30"/>
<CursorPos X="86" Y="65"/>
<UsageCount Value="83"/>
<TopLine Value="403"/>
<CursorPos X="43" Y="421"/>
<UsageCount Value="84"/>
<Bookmarks Count="2">
<Item0 Y="545" ID="1"/>
<Item1 Y="829"/>
<Item0 Y="552" ID="1"/>
<Item1 Y="836"/>
</Bookmarks>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -33,7 +33,7 @@
<Unit2>
<Filename Value="ugenericcollection.pas"/>
<IsPartOfProject Value="True"/>
<UsageCount Value="83"/>
<UsageCount Value="84"/>
</Unit2>
<Unit3>
<Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/>

BIN
applications/json_packager/jsonpackage.res
View File

Binary file not shown.

17
applications/json_packager/umain.pas
View File

@ -46,19 +46,25 @@ unit umain;
0.1.15.0: BugFix: File/Save didn't add the '.json' suffix in Linux (minesadorada)
Addition: After Loading, run validation tests(minesadorada)
0.1.16.0: Renamed ForceUpdate to ForceNotify (GetMem/minesadorada)
0.1.17.0: po files stored in resources
Use Project/Options/Resources in Laz 1.7+
Use LazRes to make a file 'translate.lrs' in older Laz (minesadorada)
0.1.17.0: po files stored in executable's resources (minesadorada)
Use Project/Options/Resources in Laz 1.7+ to add the .po files
or.. Use (Gl)LazRes to make a file 'translate.lrs' in older Laz (minesadorada)
This can be disabled by commenting out $DEFINE PO_BUILTINRES
This system means you do not have to deploy the /locale folder - just the executable.
Portability: On startup, it will make a unique cfg file in the GetAppConfig folder based
on the executable's location on disk, so you can have copies of jsoneditor
in each component's dev folder that uses its own config file, language and updates folder.
0.1.18.0: Bugfix: Linux path error when creating locale folder (minesadorada)
0.1.19.0: Added IntrnalVersion integer field to json (minesadorada)
0.1.19.0: Added IntrnalVersion integer field to json (getmem/minesadorada)
Added SpinEdit to control the above (minesadorada)
In Laz 1.7 DPIAwareness configured
0.1.20.0: ??
}
{$mode objfpc}{$H+}
interface
{DefaultTranslator}
{DefaultTranslator not used}
uses
Classes, Forms, Controls, StdCtrls, Menus, ActnList, StdActns, Grids,
Graphics, Buttons, fileutil, LazFileUtils, fileinfo, ugenericcollection,
@ -374,6 +380,7 @@ end;
function TfrmMain.FoundADuplicateLPK: boolean;
// Add lpk entries one-by-one to a temp stringlist looking for a duplicate
var
TempStringList: TStrings;
iCount: integer;