mirror of
https://github.com/patquoi/RadStudio.git
synced 2024-09-28 03:20:49 +02:00
Release version of Diplikata 1.8.4
This commit is contained in:
Patrice Fouquet
parent
1022c44fd2
commit
efb37ec20e
6 changed files with 36 additions and 25 deletions
|
|
@ -84,6 +84,10 @@ et un dictionnaire complet des mots en cr
|
|||
|
||||
HISTORIQUE DES VERSIONS
|
||||
|
||||
Version 1.8.4 - 03/04/2024
|
||||
- Impossible de passer son tour : un message affichait systématiquement
|
||||
comment placer sa proposition (merci à Norbert J).
|
||||
|
||||
Version 1.8.3 - 06/06/2020
|
||||
- Sous Windows XP, le fichier Diplikata.ini est désormais stocké dans
|
||||
%UserProfile%\Local Settings\Application Data\Patquoi.fr\Diplikata.
|
||||
|
|
@ -825,4 +829,4 @@ avec en plus des statistiques sur les initiales et les finales.
|
|||
|
||||
______________________________________
|
||||
|
||||
Dernière mise à jour le 6 juin 2020.
|
||||
Dernière mise à jour le 3 avril 2024.
|
||||
|
|
@ -2,7 +2,7 @@
|
|||
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
|
||||
|
||||
#define MyAppName "Diplikata"
|
||||
#define MyAppVersion "1.8.3.13"
|
||||
#define MyAppVersion "1.8.4"
|
||||
#define MyAppPublisher "Patquoi.fr"
|
||||
#define MyAppURL "http://patquoi.fr/#diplikata"
|
||||
|
||||
|
|
|
|||
|
|
@ -70,13 +70,12 @@
|
|||
<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.8.3.12;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.8.3;Comments=Licence Publique Générale 2</VerInfo_Keys>
|
||||
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.8.4.0;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.8.4;Comments=Licence Publique Générale 2</VerInfo_Keys>
|
||||
<SanitizedProjectName>Diplikata</SanitizedProjectName>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_MinorVer>8</VerInfo_MinorVer>
|
||||
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
|
||||
<VerInfo_Release>3</VerInfo_Release>
|
||||
<VerInfo_Build>12</VerInfo_Build>
|
||||
<VerInfo_Release>4</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>
|
||||
|
|
@ -123,13 +122,13 @@
|
|||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<Icon_MainIcon>Diplikata_Icon.ico</Icon_MainIcon>
|
||||
<VerInfo_Build>14</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.8.3.14;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.8.3;Comments=Licence Publique Générale 2</VerInfo_Keys>
|
||||
<VerInfo_Build>1</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.8.4.1;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.8.4;Comments=Licence Publique Générale 2</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<Icon_MainIcon>Diplikata_Icon.ico</Icon_MainIcon>
|
||||
<VerInfo_Build>14</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.8.3.14;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.8.3;Comments=Licence Publique Générale 2</VerInfo_Keys>
|
||||
<VerInfo_Build>1</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.8.4.1;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.8.4;Comments=Licence Publique Générale 2</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
@ -224,8 +223,8 @@
|
|||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Composants Microsoft Office 2000 Sample Automation Server Wrapper</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp270.bpl">Composants Microsoft Office XP Sample Automation Server Wrapper</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Composants Microsoft Office 2000 Sample Automation Server Wrapper</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Composants Microsoft Office XP Sample Automation Server Wrapper</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">Diplikata.dpr</Source>
|
||||
|
|
@ -235,7 +234,6 @@
|
|||
<DeployFile LocalName="..\bin\Diplikata.64.exe" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="..\bin\Diplikata.64.rsm" Configuration="Debug" Class="DebugSymbols"/>
|
||||
<DeployFile LocalName="Diplikata150.png" Configuration="Release" Class="UWP_DelphiLogo150"/>
|
||||
<DeployFile LocalName="Diplikata150.png" Configuration="Release" Class="UWP_DelphiLogo150"/>
|
||||
<DeployFile LocalName="Win32\Debug\Diplikata.exe" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="iOSSimulator">
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -2,17 +2,16 @@ object FormMain: TFormMain
|
|||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Diplikata'
|
||||
ClientHeight = 993
|
||||
ClientWidth = 592
|
||||
ClientHeight = 1986
|
||||
ClientWidth = 1212
|
||||
Color = clBlack
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Height = -22
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = []
|
||||
KeyPreview = True
|
||||
Menu = MainMenu
|
||||
OldCreateOrder = False
|
||||
Position = poDesigned
|
||||
ShowHint = True
|
||||
OnCanResize = FormCanResize
|
||||
|
|
@ -26,30 +25,36 @@ object FormMain: TFormMain
|
|||
OnPaint = FormPaint
|
||||
OnResize = FormResize
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 14
|
||||
PixelsPerInch = 192
|
||||
TextHeight = 25
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 973
|
||||
Width = 592
|
||||
Height = 20
|
||||
Top = 1946
|
||||
Width = 1212
|
||||
Height = 40
|
||||
Margins.Left = 6
|
||||
Margins.Top = 6
|
||||
Margins.Right = 6
|
||||
Margins.Bottom = 6
|
||||
AutoHint = True
|
||||
Panels = <
|
||||
item
|
||||
Width = 427
|
||||
Width = 854
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Style = psOwnerDraw
|
||||
Text = 'Temps'
|
||||
Width = 50
|
||||
Width = 100
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Width = 50
|
||||
Width = 100
|
||||
end>
|
||||
SizeGrip = False
|
||||
OnDrawPanel = StatusBarDrawPanel
|
||||
ExplicitTop = 1945
|
||||
ExplicitWidth = 1198
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = ImageListActions
|
||||
|
|
|
|||
|
|
@ -959,7 +959,11 @@ var i, j, // v1.4.4
|
|||
|
||||
begin
|
||||
// v1.5.2 : inclut le test de placement (Tag>2 de PopuMenuTestPlacement)
|
||||
ChoixDirection:=TDirection(1+((Sender as TAction).Tag-1) mod 2); // Le tag des actions donne la direction. 0=Passer son tour
|
||||
|
||||
// v1.8.4 : cas "Passer son tour" exclu
|
||||
ChoixDirection:=dIndefinie;
|
||||
if (Sender as TAction).Tag > 0 then
|
||||
ChoixDirection:=TDirection(1+((Sender as TAction).Tag-1) mod 2); // Le tag des actions donne la direction. 0=Passer son tour
|
||||
TestPlacement:=((Sender as TAction).Tag>2); // v1.5.2
|
||||
if ReflexionEnCours and
|
||||
(ChoixDirection>dIndefinie) then
|
||||
|
|
|
|||
Loading…
Reference in a new issue