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 Duplicata 1.10.2

Browse source
This commit is contained in:
Patrice Fouquet 2024-04-05 18:47:07 +02:00
parent 73ab67c5b6
commit 1022c44fd2
6 changed files with 32 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -88,6 +88,10 @@ proc
HISTORIQUE DES VERSIONS
Version 1.10.2 - 02/04/2024
- Impossible de passer son tour : un message affichait systématiquement
comment placer sa proposition (merci à Norbert J).
Version 1.10.1 - 10/01/2024
- En mode démonstration, une position de proposition était affichée dans la
feuille match.
@ -870,4 +874,4 @@ avec en plus des statistiques sur les initiales et les finales.
______________________________________
Dernière mise à jour le 10 janvier 2024.
Dernière mise à jour le 2 avril 2024.

2
Duplicata/install/insduplicata.iss
View file

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

10
Duplicata/src/Duplicata.dproj
View file

@ -6,7 +6,7 @@
<MainSource>Duplicata.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<Platform Condition="'$(Platform)'==''">Win64</Platform>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>
</PropertyGroup>
@ -74,8 +74,8 @@
<VerInfo_MinorVer>10</VerInfo_MinorVer>
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
<VerInfo_Locale>1036</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.10.1.0;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.10.1;Comments=</VerInfo_Keys>
<VerInfo_Release>1</VerInfo_Release>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.10.2.0;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.10.2;Comments=</VerInfo_Keys>
<VerInfo_Release>2</VerInfo_Release>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_DcuOutput>..\dcu\$(Platform)\$(Config)</DCC_DcuOutput>
@ -142,13 +142,13 @@
<Icon_MainIcon>Duplicata_Icon.ico</Icon_MainIcon>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_Build>1</VerInfo_Build>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.10.1.1;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.10.1;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.10.2.1;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.10.2;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<Icon_MainIcon>Duplicata_Icon.ico</Icon_MainIcon>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_Build>1</VerInfo_Build>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.10.1.1;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.10.1;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.10.2.1;InternalName=;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.10.2;Comments=</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">

BIN
Duplicata/src/Duplicata.res
View file

Binary file not shown.

29
Duplicata/src/main_f.dfm
View file

@ -2,17 +2,16 @@ object FormMain: TFormMain
Left = 0
Top = 0
Caption = 'Duplicata'
ClientHeight = 857
ClientWidth = 600
ClientHeight = 1714
ClientWidth = 1228
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
OnCanResize = FormCanResize
OnClose = FormClose
@ -25,30 +24,36 @@ object FormMain: TFormMain
OnPaint = FormPaint
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
PixelsPerInch = 192
TextHeight = 25
object StatusBar: TStatusBar
Left = 0
Top = 838
Width = 600
Height = 19
Top = 1676
Width = 1228
Height = 38
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 = 1675
ExplicitWidth = 1214
end
object MainMenu: TMainMenu
Left = 48

5
Duplicata/src/main_f.pas
View file

@ -948,7 +948,10 @@ 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.10.2 : 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