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

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

View File

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

View File

@ -10,7 +10,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<CursorPos Y="30"/> <CursorPos Y="30"/>
<UsageCount Value="83"/> <UsageCount Value="84"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -20,12 +20,12 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="30"/> <TopLine Value="403"/>
<CursorPos X="86" Y="65"/> <CursorPos X="43" Y="421"/>
<UsageCount Value="83"/> <UsageCount Value="84"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 Y="545" ID="1"/> <Item0 Y="552" ID="1"/>
<Item1 Y="829"/> <Item1 Y="836"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -33,7 +33,7 @@
<Unit2> <Unit2>
<Filename Value="ugenericcollection.pas"/> <Filename Value="ugenericcollection.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UsageCount Value="83"/> <UsageCount Value="84"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.pas"/> <Filename Value="D:\Lazarusprojects\golfml\egacalculator\source\umainform.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) 0.1.15.0: BugFix: File/Save didn't add the '.json' suffix in Linux (minesadorada)
Addition: After Loading, run validation tests(minesadorada) Addition: After Loading, run validation tests(minesadorada)
0.1.16.0: Renamed ForceUpdate to ForceNotify (GetMem/minesadorada) 0.1.16.0: Renamed ForceUpdate to ForceNotify (GetMem/minesadorada)
0.1.17.0: po files stored in resources 0.1.17.0: po files stored in executable's resources (minesadorada)
Use Project/Options/Resources in Laz 1.7+ Use Project/Options/Resources in Laz 1.7+ to add the .po files
Use LazRes to make a file 'translate.lrs' in older Laz (minesadorada) 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.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) Added SpinEdit to control the above (minesadorada)
In Laz 1.7 DPIAwareness configured
0.1.20.0: ?? 0.1.20.0: ??
} }
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
{DefaultTranslator} {DefaultTranslator not used}
uses uses
Classes, Forms, Controls, StdCtrls, Menus, ActnList, StdActns, Grids, Classes, Forms, Controls, StdCtrls, Menus, ActnList, StdActns, Grids,
Graphics, Buttons, fileutil, LazFileUtils, fileinfo, ugenericcollection, Graphics, Buttons, fileutil, LazFileUtils, fileinfo, ugenericcollection,
@ -374,6 +380,7 @@ end;
function TfrmMain.FoundADuplicateLPK: boolean; function TfrmMain.FoundADuplicateLPK: boolean;
// Add lpk entries one-by-one to a temp stringlist looking for a duplicate
var var
TempStringList: TStrings; TempStringList: TStrings;
iCount: integer; iCount: integer;