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

Version 1.2

Browse source
This commit is contained in:
Patrice Fouquet 2019-06-27 23:07:02 +02:00
parent 3a6c8ee1df
commit ff5f04a0e0
7 changed files with 64 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
WordKillers/bin/html/index.html
View file

@ -586,13 +586,17 @@
</UL>
Une fois que vous avez formulé votre demande, appuyez sur le bouton <I><U>R</U>echercher</I>&nbsp;: le résultat s'affiche en dessous.<P>
<IMG SRC="resultatrecherche.jpg" HEIGHT=230 WIDTH=426 Alt="Résultat de la recherche de mots"><P>
Il est possible alors de copier la liste dans le presse-papiers&nbsp;:
<UL>
<LI>faites un clic droit sur la liste de mots affichée,
<LI>choisissez <I>Sélectionner tout</I> (<B>Ctrl+A</B>),
<LI>choisissez enfin <I>Copier</I> (<B>Ctrl+C</B>).
</UL><BR>
<U>Remarque</U>&nbsp;: la recherche de mots peut être utilisée en dehors d'une partie.
Il est possible alors de copier la liste dans le presse-papiers&nbsp;: <UL>
<LI>faites un clic droit sur la liste de mots affichée,
<LI>choisissez <I>Sélectionner tout</I> (<B>Ctrl+A</B>),
<LI>choisissez enfin <I>Copier</I> (<B>Ctrl+C</B>).
</UL>
<U>Remarques</U>&nbsp;:<UL>
<LI>La recherche de mots peut être utilisée en dehors d'une partie.
<LI>Si des jokers sont utilisés lors de la recherche, les lettres correspondantes apparaissent en minuscules.
<LI>Les mots ajoutés dans la dernière version du dictionnaire ODS sont précédés d'un astérisque (exemple avec <TT>SKaTeR</TT>).
</UL>
<A NAME="LDMALC"></A><H2>Lister des mots à <A HREF="#LC">lettres chères</A></H2>
Afin de connaître la plupart des mots comportant des <A HREF="#LC">lettres chères</A>, cette rubrique vous permet de créer des listes de mots à votre guise.
@ -1003,6 +1007,6 @@
<TR><TD align="right">26.</TD><TD align="center">W</TD><TD align="right">1290 (0,03%)</TD><TD align="center">10</TD><TD align="center"><font color="#FFFF00">C</font></TD></TR>
</TABLE><P>
<HR>
Dernière mise à jour le 31 décembre 2018.
Dernière mise à jour le 27 juin 2019.
</BODY>
</HTML>

BIN
WordKillers/bin/html/resultatrecherche.jpg
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 18 KiB

After

Width:  |  Height:  |  Size: 30 KiB

14
WordKillers/src/WordKillers.dproj
View file

@ -70,11 +70,11 @@
<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.1.0.0;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0;Comments=Licence Publique Générale 2.0</VerInfo_Keys>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.2.0.0;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0;Comments=Licence Publique Générale 2.0</VerInfo_Keys>
<SanitizedProjectName>WordKillers</SanitizedProjectName>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<VerInfo_MinorVer>2</VerInfo_MinorVer>
</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>
@ -113,17 +113,19 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<VerInfo_Locale>1033</VerInfo_Locale>
<Icon_MainIcon>WordKillers_Icon.ico</Icon_MainIcon>
<VerInfo_Build>1</VerInfo_Build>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.1;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0;Comments=Licence Publique Générale 2.0</VerInfo_Keys>
<VerInfo_Build>2</VerInfo_Build>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.2;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0;Comments=Licence Publique Générale 2.0</VerInfo_Keys>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_DcuOutput>..\dcu\$(Platform)\$(Config)</DCC_DcuOutput>
<VerInfo_Build>1</VerInfo_Build>
<VerInfo_Build>3</VerInfo_Build>
<Debugger_RunParams>!</Debugger_RunParams>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.1;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0;Comments=Licence Publique Générale 2.0</VerInfo_Keys>
<VerInfo_Keys>CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.3;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0;Comments=Licence Publique Générale 2.0</VerInfo_Keys>
<Icon_MainIcon>WordKillers_Icon.ico</Icon_MainIcon>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>

BIN
WordKillers/src/WordKillers.res
View file

Binary file not shown.

8
WordKillers/src/WordKillers.stat
View file

@ -1,9 +1,9 @@
[Stats]
EditorSecs=3475
DesignerSecs=642
EditorSecs=3814
DesignerSecs=649
InspectorSecs=348
CompileSecs=82074
OtherSecs=1039
CompileSecs=86697
OtherSecs=1122
StartTime=28/03/2019 20:13:29
RealKeys=0
EffectiveKeys=0

7
WordKillers/src/main_f.pas
View file

@ -1513,6 +1513,13 @@ TaillePolice,
TailleLettre : Integer;
TailleOk : Boolean;
begin
if WindowState = wsMinimized then // vWK 1.2
begin
with FormTirage do
if Visible then WindowState:=wsMinimized;
with FormFeuilleMatch do
if Visible then WindowState:=wsMinimized;
end;
TaillePlateau:=0; // v1.4.3 : Evite l'avertissement à cause du try
if not Visible or
RafraichissementEnCours then Exit; // Redimensionnement en cours

37
WordKillers/src/rechdico_f.pas
View file

@ -31,6 +31,7 @@ type
NbJokers : Integer;
PosJoker : array [TPositionCritere] of TPositionCritere;
slDelta7 : TStringList; // v1.8
procedure LettresJokersEnMinuscules(var stAnagramme : String; const stTirage : String); // vWK 1.2
procedure Recherche(stTirage : String); // v1.8.2 : plus de paramètre ModeRecherche
public
{ Déclarations publiques }
@ -141,6 +142,7 @@ try
begin
// WriteLn(f, Format('%s ', [p.Dico.stMotDico(Length(stTirage), IndexMot)])); // v1.4.6
stMot:=p.Dico.stMotDico(Length(stTirage), IndexMot);
LettresJokersEnMinuscules(stMot, Edit.Text); // vWK 1.2 : on met en minuscules les lettres de jokers
if slDelta7.IndexOf(stMot)>-1 then Memo.Lines.Add('*'+stMot) // v1.8
else Memo.Lines.Add(stMot); // v1.4.6
Inc(NbMotsTrouves);
@ -296,9 +298,37 @@ procedure TFormRechercheMots.RadioGroupOrdreClick(Sender: TObject);
begin
Edit.SetFocus
end;
//----------------------------------------------------------------------------
procedure TFormRechercheMots.LettresJokersEnMinuscules(var stAnagramme : String; const stTirage : String); // vWK 1.2
type TDrapeauxJokers = array [1..NbLettresMaxMot] of Boolean;
var i, j, Taille : Integer;
AnaTrv, TirTrv : TDrapeauxJokers;
begin
// 1. On initialise les drapeaux
for i := 1 to NbLettresMaxMot do
begin
AnaTrv[i]:=False;
TirTrv[i]:=False;
end;
Taille:=length(stTirage);
// 2. On scanne les lettres de l'anagramme par rapport au tirage
for i := 1 to Taille do
for j:= 1 to Taille do
if not AnaTrv[i] and
not TirTrv[j] and
(stAnagramme[i] = stTirage[j]) then
begin
AnaTrv[i]:=True;
TirTrv[j]:=True;
end;
// 3. On met en minuscule les lettres de jokers
for i := 1 to Taille do
if not AnaTrv[i] then
Inc(stAnagramme[i], 32); // En minuscules
end;
//---------------------------------------------------------------------------
procedure TFormRechercheMots.Recherche(stTirage : String); // v1.8.2 : plus de paramètre ModeRecherche
var i, j, // vWK 1.1 (j)
var i,
iTirageRecherche,
Pourcentage,
Taille : Integer;
@ -315,9 +345,8 @@ if iTirageRecherche>-1 then
begin
Inc(NbMotsTrouves);
stAnagramme:=p.Dico.stMotDico(Taille, Anagrammes.iDico[i]);
// vWK 1.1 : on met en minuscule les lettres de jokers
for j := 1 to NbJokers do
Inc(stAnagramme[PosJoker[j]], 32);
// vWK 1.2 : on met en minuscule les lettres de jokers par procédure
LettresJokersEnMinuscules(stAnagramme, Edit.Text);
// WriteLn(f, Format('%s ', [stAnagramme])); // v1.4.6
if slDelta7.IndexOf(stAnagramme)>-1 then Memo.Lines.Add('*'+stAnagramme) // v1.8
else Memo.Lines.Add(stAnagramme) // v1.4.6