Discussion :

[vieuxprof1]

Bonjour.
Pour profiter de ma période de confinement, j'ai entrepris de transcrire une Réussite «FreeCell» que j'avais écrite en Delphi7 (qui fonctionne très bien), en Lazarus.
Pour cela j'utilise des listes d'images, des listes de « Records » et des listes de listes. Avec toutes ces listes, le compilateur ne trouve pas d'erreurs sauf quelques conseils, mais le programme se termine par une « Classe d'exception:External SIGSEGV »
Pour déboguer la création de la liste d'images j'ai écrit un petit programme test dont voici l'unité principale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
unit ListeTest_P;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Image1: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image0: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Panel1: TPanel;
    Panel2: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure CreerListIm(Sender:TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  Image0,Image1,Image2,Image3,Image4,Image5,Image6,Image7,Image8,Image9,
  Image10,Image11,Image12,Image13,Image14,Image15,Image16:TImage;
  ListIm:TList;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListIm.Create;
  CreerListIm(Sender);
end;
procedure TForm1.CreerListIm(Sender:TObject);
var
  n:integer;
  s:string;
begin
 
  ListIm.Add(Image0);//Sert à afficher la pioche (centre haut, index 0)
  ListIm.Add(Image1);//Première colonne bas(index 1)
  ListIm.Add(Image3);
  ListIm.Add(Image4);
  ListIm.Add(Image5);
  ListIm.Add(Image6);
  ListIm.Add(Image7);
  ListIm.Add(Image8);//Dernière colonne bas(index 8)
  ListIm.Add(Image9);//Première colonne haut(index 9)
  ListIm.Add(Image10);
  ListIm.Add(Image11);
  ListIm.Add(Image12);//Dernière colonne haut(index 12)
  ListIm.Add(Image13);//Première colonne de dépôt
  ListIm.Add(Image14);
  ListIm.Add(Image15);
  ListIm.Add(Image16);//Dernière colonne de dépôt
  n:=ListIm.Count;
  str(n,s);
  Panel2.Caption:=s;
end;
 
end.

La fonction ListIm.Add() nécessite pour attribut un pointeur, est-ce que l'erreur viendrait de là ? Dans ce cas, comment créer un pointeur sur chaque image ?
Ensuite comment accéder à une image de la liste pour par exemple modifier sa taille ?

Un grand merci à ceux qui voudront bien se pencher sur mon problème.

[BeanzMaster]

Bonjour

Pour le code dans tes messages utilises la balise c'est plus lisible. stp

Pour ta liste d'image tu peux simplement utiliser le composant TImageList.

Sinon dans ton exemple c'est que tu assignes un composant visuel TImage ce qui n'est pas la bonne solution.
De plus TList ne s'utilise pas de cette façon.
Si tu veux stocker des Objets il faut utiliser TObjectList au lieux de TList. Si non tu peux utiliser une TStringList avec la methode AddObject(monObject, 'LeNomdeMonObject');

Dans tous les cas pour ta liste, le mieux c'est TImageList et l'utilisation de TBitmap et d'un SEUL TImage qui lui sert à l'affichage

A+

Jérôme

[ChPr]

Il y a aussi un autre problème : vous définissez deux fois les variables 'Image_xx' ?

Cordialement.

Pierre.

[vieuxprof1]

Il y a aussi un autre problème : vous définissez deux fois les variables 'Image_xx' ?

Cordialement.

Pierre.

Bonjour

Si je ne déclare pas les Imagexx comme variables le compilateur affiche "Succès" mais le programme s'arrête quand même avec l'erreur "SIGSEGV".
La déclaration des Imagexx comme variables n'est donc pas nécessaire.

Cordialement
JC

[vieuxprof1]

Bonjour
Merci pour ta réponse mais je n'ai pas été assez clair dans ma question.
La réussite FreeCell est constitué de 16 emplacements sur lesquels sont déposés des cartes. Il y a 8 emplacements dont la taille est fixe (une seule carte visible) et 8 dont la hauteur est variable. Ce sont ces emplacements sur le tapis qui sont des images. Les cartes déposés sur lmage1 forment une liste de cartes et les 16 listes de cartes forment une liste de listes.
Sous Delphi7 toutes ces listes sont facilement constituées avec :

ListIm.Add(Image1) où Image1 est un TImage
List1.Add(P) où P est un pointeur sur une carte
Liste.Add(List1) où List1 est la liste des cartes déposées sur l'Image1.

La taille de l'Image doit être ajustée en fonction du nombre de cartes déposées.
List1.Count est le nombre de cartes déposées sur Image1.
Liste est la liste des 16 listes contenant les cartes.
Je cherche donc l'équivalent avec Lazarus
TimageList et TobjectList ne conviennent pas pour ce que je cherche.
A+
JC

[BeanzMaster]

Bonjour

Essaye en ajoutant @ devant tes objets List1.Add(@P)Pour ce qui est du change de taille de tes TImage tu as les propriétés "Stretch" et "Proportionnal" qui feront que l'image s'adaptera aux dimension de ton contrôle

A+

Jérôme

[vieuxprof1]

Bonjour

Essayes en ajoute @ devant tes objets List1.Add(@P)Pour ce qui est du change de taille de tes TImage tu as les propriétés "Stretch" et "Proportionnal" qui feront que l'image s'adaptera aux dimension de ton contrôle

A+

Jérôme

Bonjour Jérôme

Merci pour ta réponse.
Je ne pense pas que les propriétés "Stretch" et "Proportionnal" soient adaptées à mon cas, il me semble qu'ils adaptent la taille du bitmap (en le déformant) à la taille du conteneur Image.
Je cherche une méthode plus générale pour modifier une propriété d'une image de la liste, par exemple modifier le curseur.
Pour modifier la hauteur de l'image d'index 2 j'ai écrit la procédure suivante qui passe sans message du compilateur mais qui se termine par une erreur "SIGSEGV".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ModifImage(Sender:TObject);
var
  P:^TImage;
begin
  P:=ListIm[2];
  Image0:=P^; //Image0 n'est pas utile dans mon programme
  Image0.Height:=120;
  ListIm[2]:=P;
end;

Je pense que l'erreur provient de la définition du pointeur.
Comment modifier cette procédure pour que ça fonctionne?

Cordialement
JC

[BeanzMaster]

Salut JC

Bonjour Jérôme

Merci pour ta réponse.
Je ne pense pas que les propriétés "Stretch" et "Proportionnal" soient adaptées à mon cas, il me semble qu'ils adaptent la taille du bitmap (en le déformant) à la taille du conteneur Image.

Avec "proportionnal" le ratio largeur/hauteur est conservé, donc pas de déformation

Je cherche une méthode plus générale pour modifier une propriété d'une image de la liste, par exemple modifier le curseur.

Que veux tu dire par curseur ? le curseurr de la souris lorsque tu survolles une carte ?

Pour modifier la hauteur de l'image d'index 2 j'ai écrit la procédure suivante qui passe sans message du compilateur mais qui se termine par une erreur "SIGSEGV".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ModifImage(Sender:TObject);
var
  P:^TImage;
begin
  P:=ListIm[2];
  Image0:=P^; //Image0 n'est pas utile dans mon programme
  Image0.Height:=120;
  ListIm[2]:=P;
end;

Je pense que l'erreur provient de la définition du pointeur.
Comment modifier cette procédure pour que ça fonctionne?

Cordialement
JC

Ici tu ne récupères pas correctement ton objet, essayes comme ceci (mais comme je te le disais à mon avis TObjectList serait plus approprié, mais je me trompe peut-être )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.ModifImage(Sender:TObject);
var
  P: TImage;
// avec P : ^TImage il faut que tu alloues la mémoire d'ou le SIGSEGV
begin
   //P:=ListIm[2]; J'aime pas cette façon de faire
 
  p := TImage(ListIm.Items[2]^);
  P.height := 120;
 
  //Image0:=P; 
  //Image0.Height:=120;
  //ListIm.Items[2]:= P;
end;

A+

Jérôme

[ChPr]

Ce qui fait que ton programme plante est dû à la création de la Liste. Tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ListIm.Create;

Je ne sais pas pourquoi, mais cette forme d'écriture ne fonctionne pas, il faut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ListIm:= TList.Create;

Cordialement.

Pierre.

[vieuxprof1]

Bonjour Pierre

Effectivement je viens de tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListIm:=TListCreate

et ça fonctionne ! Merci
C'était une erreur impardonnable de ma part.
Pour ce qui concerne la modification de la taille de l'image, c'était un exemple. J'aurais aussi bien pu demander comment changer le curseur sur cette image.
Lorsque je veux intervenir sur une image de ma liste, il faut que je l'extraie de la liste, je modifie la propriété de l'image, puis je la réintègre dans la liste.
Sous Delphi je procède de la manière suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var
  Imagea:TImage;
  i:integer;
Imagea:=ListIm[i];//pour modifier l'image d'index i
Imagea.Height:=120;
ListIm[i]:=Imagea

Or Lazarus n'accepte pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Imagea:=ListIm[i];

il veut un pointeur! Quel est ce pointeur?

Cordialement
JC

[ChPr]

Quand vous avez enregistré vos images dans la liste, Pour chacune, vous n'avez fait qu'y enregistrer un pointeur sur cette image. Donc, quand vous faites Imagea:=ListIm[i];, vous ne faites que récupérer son pointeur. Mais comme un pointeur ne dit rien de la structure de l'objet qui a été enregistré, vous ne pouvez rien en récupérer. Pour cela, il faut que vous fassiez un transtypage, c'est-à-dire : Imagea:=TImage(ListIm[i]);.

Mais avant tout, vous avez enregistré des images inexistantes puisque vous ne les avez pas créées. Le fait de les avoir déclarées en tant que TImage n'a fait qu'installer une variable pointant sur 'nil'.

Donc, avant toutes choses, vous devez créer ces images par Image_xx:= TImage.Create(Self); ; vous pourrez avoir accès ensuite à leurs propriétés.

Par ailleurs, une fois que vous avez changé les paramètres d'une image, ce n'est pas la peine de réenregistrer son pointeur (ListIm[i]:=Imagea;) ; il n'a pas changé.

Cordialement.

Pierre.