Miroirs/RadStudio
1
0
Fork 0
mirror of https://github.com/patquoi/RadStudio.git synced 2024-11-15 19:47:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Release version of Lcpdb 1.3.2.4

Browse source
This commit is contained in:
Patrice Fouquet 2020-06-06 15:08:22 +02:00
parent 60a93d7984
commit 4bf4c9d937
11 changed files with 82 additions and 97 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lcpdb/bin/lisezmoi.txt
View file

@ -72,6 +72,12 @@ versions ant
HISTORIQUE DES VERSIONS
[Version 1.3.2 - 06/06/2020]
- Sous Windows XP, le fichier Lcpdb.ini est désormais stocké dans
%UserProfile%\Local Settings\Application Data\Patquoi.fr\lcpdb.
Il faut exécuter impcfgcpt.exe lors de l'installation pour récupérer le
fichier ini depuis l'ancien chemin (le même que celui du programme exe).
[Version 1.3.1 - 02/05/2020]
- Icône en haute résolution
@ -227,4 +233,4 @@ INFORMATIONS SUR INTERNET
mailto:lcpdb@patquoi.fr
http://patquoi.fr/#jm
Dernière mise à jour le 2 mai 2020.
Dernière mise à jour le 6 juin 2020.

11
lcpdb/impcfgcpt/src/impcfgcpt.dproj
View file

@ -63,13 +63,13 @@
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.1;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<Icon_MainIcon>impcfgcpt_Icon.ico</Icon_MainIcon>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<UWP_DelphiLogo44>..\img\impcfgcpt44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>..\img\impcfgcpt150.png</UWP_DelphiLogo150>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
@ -88,8 +88,7 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.1;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@ -100,8 +99,8 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.1;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">

BIN
lcpdb/impcfgcpt/src/impcfgcpt.res
View file

Binary file not shown.

48
lcpdb/impcfgcpt/src/main_f.pas
View file

@ -338,40 +338,50 @@ procedure TFormMain.TimerTimer(Sender: TObject);
//---------------------------------------------------------------------------
const stTitreMessage = 'Import de configuration lcpdb';
//---------------------------------------------------------------------------
function GetLocalAppDataDupFolder : String;
const stVarLocalAppData = 'LocalAppData';
stRepLocAppDataDup = '\Patquoi.fr\lcpdb';
var n : DWord;
begin
n:=0;
n:=GetEnvironmentVariable(pChar(stVarLocalAppData), nil, n);
if n>0 then
function GetLocalAppDataLcpdbFolder : String;
const stVarLocalAppData = 'LocalAppData';
stVarUserProfile = 'USERPROFILE'; // v1.1
stRepLocAppDataLcpdb = '\Patquoi.fr\lcpdb';
var stExePath : String; // v1.1
begin // v1.1 fonction réécrite
stExePath := ExtractFilePath(ParamStr(0));
Result := GetEnvironmentVariable(stVarLocalAppData);
if Result = '' then
begin
SetLength(Result, n-1);
if GetEnvironmentVariable(pChar(stVarLocalAppData), pChar(Result), n)<>n-1 then
Result:=''
Result := GetEnvironmentVariable(stVarUserProfile);
if Result = '' then
Result := stExePath // Dossier de Duplicata.exe
else
begin
Result:=Result+stRepLocAppDataDup;
if not DirectoryExists(Result) then
if not ForceDirectories(Result) then
Result:=''
Result := Result + '\Local Settings\Application Data' + stRepLocAppDataLcpdb;
if not DirectoryExists(Result) then
if not ForceDirectories(Result) then
Result := stExePath // Dossier de Duplicata.exe
else
Result:=Result+'\'
else
Result:=Result+'\';
end
end;
end
else
Result:=''
end{function stRepLocalAppDataDup};
begin
Result := Result + stRepLocAppDataLcpdb;
if not DirectoryExists(Result) then
if not ForceDirectories(Result) then
Result:=stExePath // Dossier de Duplicata.exe
else
Result:=Result+'\'
else
Result:=Result+'\';
end
end{function GetLocalAppDataLcpdbFolder};
//---------------------------------------------------------------------------
begin{function TFormMain.TimerTimer}
if Tag>0 then Exit; // Busy?
case Timer.Tag of
0: begin // 1. EXISTENCE DE %LocalAppData% ?
Tag:=1; // Busy
LabeledEditLocalAppData.Text:=GetLocalAppDataDupFolder;
LabeledEditLocalAppData.Text:=GetLocalAppDataLcpdbFolder;
if LabeledEditLocalAppData.Text = '' then
begin
AffecteImage(1, False);

2
lcpdb/ins/lcpdb.iss
View file

@ -2,7 +2,7 @@
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "Le Compte Pour De Bon"
#define MyAppVersion "1.3.1.1"
#define MyAppVersion "1.3.2.4"
#define MyAppPublisher "Patquoi.fr"
#define MyAppURL "http://patquoi.fr"

40
lcpdb/src/IA.pas
View file

@ -906,30 +906,40 @@ end;
//-----------------------------------------------------------------------------
procedure InitialiseRepLocalAppData; // v1.3 : stRepLocalAppData remplace ExtractFilePath(ParamStr(0))
const stVarLocalAppData = 'LOCALAPPDATA';
stRepLocAppDataDup = '\Patquoi.fr\lcpdb';
var n : DWord;
begin
n:=0;
n:=GetEnvironmentVariable(pChar(stVarLocalAppData), nil, n);
if n>0 then
stVarUserProfile = 'USERPROFILE'; // v1.3.2
stRepLocAppDataLcpdb = '\Patquoi.fr\lcpdb';
var stExePath : String; // v1.3.2
begin // v1.3.2 procédure réécrite
stExePath := ExtractFilePath(ParamStr(0));
stRepLocalAppData := GetEnvironmentVariable(stVarLocalAppData);
if stRepLocalAppData = '' then
begin
SetLength(stRepLocalAppData, n-1);
if GetEnvironmentVariable(pChar(stVarLocalAppData), pChar(stRepLocalAppData), n)<>n-1 then
stRepLocalAppData:=ExtractFilePath(ParamStr(0)) // Dossier de lcpdb.exe
stRepLocalAppData := GetEnvironmentVariable(stVarUserProfile);
if stRepLocalAppData = '' then
stRepLocalAppData := stExePath // Dossier de Paradice.exe
else
begin
stRepLocalAppData:=stRepLocalAppData+stRepLocAppDataDup;
if not DirectoryExists(stRepLocalAppData) then
if not ForceDirectories(stRepLocalAppData) then
stRepLocalAppData:=ExtractFilePath(ParamStr(0)) // Dossier de lcpdb.exe
stRepLocalAppData := stRepLocalAppData + '\Local Settings\Application Data' + stRepLocAppDataLcpdb;
if not DirectoryExists(stRepLocalAppData) then
if not ForceDirectories(stRepLocalAppData) then
stRepLocalAppData := stExePath // Dossier de Paradice.exe
else
stRepLocalAppData:=stRepLocalAppData+'\'
else
stRepLocalAppData:=stRepLocalAppData+'\';
end
end;
end
else
stRepLocalAppData:=ExtractFilePath(ParamStr(0)); // Dossier de lcpdb.exe
begin
stRepLocalAppData := stRepLocalAppData + stRepLocAppDataLcpdb;
if not DirectoryExists(stRepLocalAppData) then
if not ForceDirectories(stRepLocalAppData) then
stRepLocalAppData:=stExePath // Dossier de Paradice.exe
else
stRepLocalAppData:=stRepLocalAppData+'\'
else
stRepLocalAppData:=stRepLocalAppData+'\';
end
end;
//-----------------------------------------------------------------------------

2
lcpdb/src/LeCompte.groupproj
View file

@ -1,6 +1,6 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{6517C5E7-4250-4082-B3DE-9DCADD4CA40C}</ProjectGuid>
<ProjectGuid>{C0F25294-D60E-46C9-A669-1A0237692663}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="lcpdb.dproj">

62
lcpdb/src/lcpdb.dproj
View file

@ -70,13 +70,13 @@
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<VerInfo_Locale>1036</VerInfo_Locale>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.3.1.1;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3.1;Comments=GPL 2.0</VerInfo_Keys>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.3.2.4;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3.2;Comments=GPL 2.0</VerInfo_Keys>
<SanitizedProjectName>lcpdb</SanitizedProjectName>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_MinorVer>3</VerInfo_MinorVer>
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
<VerInfo_Build>1</VerInfo_Build>
<VerInfo_Release>1</VerInfo_Release>
<VerInfo_Build>4</VerInfo_Build>
<VerInfo_Release>2</VerInfo_Release>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;FireDAC;vcltouch;vcldb;bindcompfmx;svn;FireDACSqliteDriver;FireDACPgDriver;inetdb;soaprtl;DbxCommonDriver;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;fmxobj;vclwinx;rtl;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
@ -112,7 +112,7 @@
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.3.1.1;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3;Comments=GPL 2.0</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.3.2.4;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3.2;Comments=GPL 2.0</VerInfo_Keys>
<Icon_MainIcon>lcpdb_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
@ -129,15 +129,15 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.3.1.2;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3;Comments=GPL 2.0</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.3.2.5;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3.2;Comments=GPL 2.0</VerInfo_Keys>
<Icon_MainIcon>lcpdb_Icon.ico</Icon_MainIcon>
<VerInfo_Build>2</VerInfo_Build>
<VerInfo_Build>5</VerInfo_Build>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<VerInfo_Build>2</VerInfo_Build>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.3.1.2;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3;Comments=GPL 2.0</VerInfo_Keys>
<VerInfo_Build>5</VerInfo_Build>
<Icon_MainIcon>lcpdb_Icon.ico</Icon_MainIcon>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.3.2.5;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.3.2;Comments=GPL 2.0</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -186,28 +186,7 @@
</Source>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile Configuration="Release" Class="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo44x44.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="..\res\png\lcpdb_44.png" Configuration="Release" Class="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo44x44.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile Configuration="Release" Class="UWP_DelphiLogo44">
<Platform Name="Win64">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo44x44.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="..\res\png\lcpdb_150.png" Configuration="Release" Class="UWP_DelphiLogo150">
<DeployFile LocalName="png\lcpdb150.png" Configuration="Debug" Class="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo150x150.png</RemoteName>
@ -221,34 +200,13 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="png\lcpdb150.png" Configuration="Debug" Class="UWP_DelphiLogo150">
<DeployFile LocalName="..\res\png\lcpdb_150.png" Configuration="Release" Class="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo150x150.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="png\lcpdb150.png" Configuration="Debug" Class="UWP_DelphiLogo44">
<Platform Name="Win64">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo44x44.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="..\res\png\lcpdb_44.png" Configuration="Release" Class="UWP_DelphiLogo44">
<Platform Name="Win64">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo44x44.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="png\lcpdb44.png" Configuration="Debug" Class="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets\</RemoteDir>
<RemoteName>Logo44x44.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="Win32\Debug\lcpdb.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>lcpdb.exe</RemoteName>

BIN
lcpdb/src/lcpdb.res
View file

Binary file not shown.

3
lcpdb/src/main_f.pas
View file

@ -306,7 +306,8 @@ var
//-----------------------------------------------------------------------------
implementation
//-----------------------------------------------------------------------------
uses StrUtils, ShellApi,
uses UITypes, // v1.3.2
StrUtils, ShellApi,
tableau_f, pavenum_f, propos_f;
//-----------------------------------------------------------------------------
{$R *.dfm}

3
lcpdb/src/tableau_f.pas
View file

@ -221,7 +221,8 @@ const //(27,18,28,25,30,24,
//-----------------------------------------------------------------------------
implementation
//-----------------------------------------------------------------------------
uses StdCtrls, // Pour TLabel
uses UITypes, // v1.3.2
StdCtrls, // Pour TLabel
Math, // Pour Min
main_f;
//-----------------------------------------------------------------------------