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 Diplikata 1.8.4

Browse source
This commit is contained in:
Patrice Fouquet 2024-04-05 18:59:10 +02:00
parent 1022c44fd2
commit efb37ec20e
6 changed files with 36 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Diplikata/bin/lisez-moi.txt
View file

@ -84,6 +84,10 @@ et un dictionnaire complet des mots en cr
HISTORIQUE DES VERSIONS 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 Version 1.8.3 - 06/06/2020
- Sous Windows XP, le fichier Diplikata.ini est désormais stocké dans - Sous Windows XP, le fichier Diplikata.ini est désormais stocké dans
%UserProfile%\Local Settings\Application Data\Patquoi.fr\Diplikata. %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
Diplikata/install/insdiplikata.iss
View file

@ -2,7 +2,7 @@
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "Diplikata" #define MyAppName "Diplikata"
#define MyAppVersion "1.8.3.13" #define MyAppVersion "1.8.4"
#define MyAppPublisher "Patquoi.fr" #define MyAppPublisher "Patquoi.fr"
#define MyAppURL "http://patquoi.fr/#diplikata" #define MyAppURL "http://patquoi.fr/#diplikata"

18
Diplikata/src/Diplikata.dproj
View file

@ -70,13 +70,12 @@
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44> <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> <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<VerInfo_Locale>1036</VerInfo_Locale> <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> <SanitizedProjectName>Diplikata</SanitizedProjectName>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_MinorVer>8</VerInfo_MinorVer> <VerInfo_MinorVer>8</VerInfo_MinorVer>
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion> <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
<VerInfo_Release>3</VerInfo_Release> <VerInfo_Release>4</VerInfo_Release>
<VerInfo_Build>12</VerInfo_Build>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <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> <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>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<Icon_MainIcon>Diplikata_Icon.ico</Icon_MainIcon> <Icon_MainIcon>Diplikata_Icon.ico</Icon_MainIcon>
<VerInfo_Build>14</VerInfo_Build> <VerInfo_Build>1</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_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>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<Icon_MainIcon>Diplikata_Icon.ico</Icon_MainIcon> <Icon_MainIcon>Diplikata_Icon.ico</Icon_MainIcon>
<VerInfo_Build>14</VerInfo_Build> <VerInfo_Build>1</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_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>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -224,8 +223,8 @@
<BorlandProject> <BorlandProject>
<Delphi.Personality> <Delphi.Personality>
<Excluded_Packages> <Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k270.bpl">Composants Microsoft Office 2000 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)\dclofficexp270.bpl">Composants Microsoft Office XP Sample Automation Server Wrapper</Excluded_Packages> <Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Composants Microsoft Office XP Sample Automation Server Wrapper</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>
<Source> <Source>
<Source Name="MainSource">Diplikata.dpr</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.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployFile LocalName="..\bin\Diplikata.64.rsm" Configuration="Debug" Class="DebugSymbols"/> <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="Diplikata150.png" Configuration="Release" Class="UWP_DelphiLogo150"/>
<DeployFile LocalName="Win32\Debug\Diplikata.exe" Configuration="Debug" Class="ProjectOutput"/> <DeployFile LocalName="Win32\Debug\Diplikata.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployClass Name="AdditionalDebugSymbols"> <DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator"> <Platform Name="iOSSimulator">

BIN
Diplikata/src/Diplikata.res
View file

Binary file not shown.

29
Diplikata/src/main_f.dfm
View file

@ -2,17 +2,16 @@ object FormMain: TFormMain
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'Diplikata' Caption = 'Diplikata'
ClientHeight = 993 ClientHeight = 1986
ClientWidth = 592 ClientWidth = 1212
Color = clBlack Color = clBlack
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -22
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
KeyPreview = True KeyPreview = True
Menu = MainMenu Menu = MainMenu
OldCreateOrder = False
Position = poDesigned Position = poDesigned
ShowHint = True ShowHint = True
OnCanResize = FormCanResize OnCanResize = FormCanResize
@ -26,30 +25,36 @@ object FormMain: TFormMain
OnPaint = FormPaint OnPaint = FormPaint
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 192
TextHeight = 14 TextHeight = 25
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Top = 973 Top = 1946
Width = 592 Width = 1212
Height = 20 Height = 40
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
AutoHint = True AutoHint = True
Panels = < Panels = <
item item
Width = 427 Width = 854
end end
item item
Alignment = taCenter Alignment = taCenter
Style = psOwnerDraw Style = psOwnerDraw
Text = 'Temps' Text = 'Temps'
Width = 50 Width = 100
end end
item item
Alignment = taCenter Alignment = taCenter
Width = 50 Width = 100
end> end>
SizeGrip = False SizeGrip = False
OnDrawPanel = StatusBarDrawPanel OnDrawPanel = StatusBarDrawPanel
ExplicitTop = 1945
ExplicitWidth = 1198
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = ImageListActions Images = ImageListActions

6
Diplikata/src/main_f.pas
View file

@ -959,7 +959,11 @@ var i, j, // v1.4.4
begin begin
// v1.5.2 : inclut le test de placement (Tag>2 de PopuMenuTestPlacement) // 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 TestPlacement:=((Sender as TAction).Tag>2); // v1.5.2
if ReflexionEnCours and if ReflexionEnCours and
(ChoixDirection>dIndefinie) then (ChoixDirection>dIndefinie) then