UN PUZZLE POUR L'ÉTÉ

florenth - 4 juil. 2008 à 14:48
cs_Michel34
Messages postés
79
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
27 juin 2011
- 9 juil. 2008 à 18:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/47217-un-puzzle-pour-l-ete

cs_Michel34
Messages postés
79
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
27 juin 2011

9 juil. 2008 à 18:08
Salut DEBIAR , tout simplement Epoustouflant , je suis conquis d'etudier ta source ,pour info ,juste un petit Pb quand on deplace une piece et que l'on sorte de la fenetre avec , il faut eviter de relacher le bouton de la souris , sinon la piece est perdu ( cache a l'exterieur de ta forme . Je vais regarder a limiter les deplacements dans la zone de jeu.

Sinon que dire d'autre ,c'est super.
A+ et bonne continuation .
cincap
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
8 juil. 2008 à 17:32
@ DEBIARS, j'ai fait ta solution, mais j'ai la form3 qui apparait toujours et qui fait désordre.

Sinon, avec un topenpicturedialog cela fonctionne.

@+,

Cincap
Debiars
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018

8 juil. 2008 à 15:33
@Cincap : Je n'ai pas eu ce problème, mais j'ai quand-même remplacé dans Upuzzle3 ces composants un peu vieillots par un OpenPictureDialog et j'ai gardé et modifié la procédure FileListBox1Click comme suit :
----------------------------------------
procedure TForm3.FileListBox1Click(Sender: TObject);
const
K = 136;
Var
w0, h0 : single;
w, h : single;
kk : single;
begin
{ IF filelistbox1.items.count < 1 then exit;
IF filelistbox1.filename = '' then exit;
IF Diskindrive(Drivecombobox1.drive) = False Then
Begin
Showmessage('CD-ROM or floppy disk not ready');
exit;
end; }
if not OPDlg.Execute then exit;
Image1.visible := false;
Image1.width := K;
Image1.height := K;
try
// Image1.Picture.LoadFromFile(FileListbox1.Filename);
Image1.Picture.LoadFromFile(OPDlg.Filename);
except
----------------------------
Cela entraîne la suppression des procédures suivantes qui ne servent pus à rien :

procedure DirectoryListBox1Change(Sender: TObject);
procedure DriveComboBox1Click(Sender: TObject);
function DiskInDrive(Drive: Char): Boolean;

ainsi que quelques lignes qui se révèlent à la compile et naturellement la Form3.
cincap
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
8 juil. 2008 à 07:57
Bonjour à toutes et à tous,

@ DEBIARS, Dans la procédure de chargement de l'image (puzzle de J. Y. Q.), avec le composant TDirectoryListbox, je suis limité car je n'ai pas accès au dossier "Mes documents" et forcément au dossier "mes images".

Si quelqu'un sait pourquoi et à une autre solution, cela m'intéresse.

@+,

Cincap
Debiars
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018

7 juil. 2008 à 19:16
@Cincap : j'avais déjà neutralisé Lecture1click. Mais ce prog est plein de choses intéressantes, entre autres la génération des pièces sur laquelle Florenth vient de plancher.

@Florenth : Je pense qu'il faut poster, de toutes façons, ça m'intéresse énormément.

A+
Afficher les 21 commentaires