Problème d'installation de composant : erreur "Impossible de trouver componenttreeview.pas"

Version imprimable

10/04/2014, 10h41
Gouyon

Problème d'installation de composant : erreur "Impossible de trouver componenttreeview.pas"

Salut à tous

Voilà je suis en train de créer un composant graphique et lors de l'installation j'ai l'erreur suivante:
Impossible de trouver componenttreeview.pas
Ce fichier ne fait pas du tout partie de mon composant et j'ai fini par le trouver dans le répertoire lazarus\components\ideintf
Mais quand je met ce chemin dans les chemins supplémentaire de mon paquet, la compilation de Lazarus me sort la même erreur

J'avoue que je sèche :calim2:
10/04/2014, 11h25
Jipété

Salut,

Et en passant par Projet / Inspecteur de projet / Ajouter / Nouvelle condition / Nom du paquet et faire dérouler pour trouver ideIntf ?

Jamais testé en création de composant, mais c'est un truc qui me fait galérer, parfois... :D
10/04/2014, 12h26
Gouyon

Ca ne marche pas car il ne propose que les composants installé et comme je n'arrive pas à l'installer il n'est pas dans la liste
10/04/2014, 12h57
Jipété

1 pièce(s) jointe(s)

Citation:

Envoyé par Gouyon

Ca ne marche pas car il ne propose que les composants installé et comme je n'arrive pas à l'installer il n'est pas dans la liste

On parle bien de IDEintf ?

http://www.developpez.net/forums/att...0&d=1397127287
10/04/2014, 13h22
Jon Shannow

Bonjour,

J'ai eu le même problème (exactement) suite à l'installation de la dernière version.

J'ai tout désinstallé et tout réinstallé et ça fonctionne. Ne me demandez pas pourquoi, mais c'est ce que j'ai fait ! 8-)

Citation:

Envoyé par Jon Shannow

J'ai tout désinstallé et tout réinstallé et ça fonctionne. Ne me demandez pas pourquoi, mais c'est ce que j'ai fait ! 8-)

Je confirme c'est la solution que j'ai finalement utilisée. Mais j'ai fait aussi quelque modifications sur l'emplacement de mon composant (je l'ai mis dans le registre "Standard" au lieu de "Misc") et j'ai complété les procédures qui manquait.

Par contre maintenant si je le met sur une Form il me met une Unknown Runtime error 202 et l'interface plante complètement

Voici mon code

Code:

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
87
88
89
90
 
unit illustratedBarGraphRG;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
  TillustratedBarGraph = class(TImage)
  private
    { Private declarations }
  protected
    { Protected declarations }
    function GetNombreDeCellules:integer;
    procedure SetNombreDeCellules(Nb:integer);
  public
    { Public declarations }
    constructor Create(AOwner :TComponent); override;
    procedure Paint; override;
  published
    { Published declarations }
    property Align;
    property Anchors;
    property AntialiasingMode;
    property AutoSize;
    property BorderSpacing;
    property Center;
    property Constraints;
    property Cursor;
    property DragCursor;
    property DragMode;
    property Enabled;
    property Height;
    property HelpContext;
    property HelpKeyword;
    property HelpType;
    property Hint;
    property Left;
    property Name;
    property ParentShowHint;
    property Picture;
    property PopupMenu;
    property Proportional;
    property ShowHint;
    property Stretch;
    property Tag;
    property Top;
    property Transparent;
    property Visible;
    property Width;
 
    property NombreDeCellules:integer read GetNombreDeCellules write SetNombreDeCellules;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  {$I illustratedbargraphRG_icon.lrs}
  RegisterComponents('Standard',[TillustratedBarGraph]);
end;
constructor TillustratedBarGraph.Create(AOwner :TComponent);
begin
  inherited Create(AOwner);
  NombreDeCellules:=1;
  Height:=72;
  self.Width:=72;
end;
procedure TillustratedBarGraph.Paint;
begin
  inherited Paint;
  //Canvas.Rectangle(0,0,10,10);
end;
 
function TillustratedBarGraph.GetNombreDeCellules:integer;
begin
  result:=NombreDeCellules;
end;
 
procedure TillustratedBarGraph.SetNombreDeCellules(Nb:integer);
begin
 NombreDeCellules:=Nb;
end;
 
end.

Bonjour,

Citation:

Envoyé par Gouyon

Par contre maintenant si je le met sur une Form il me met une Unknown Runtime error 202 et l'interface plante complètement

C'est pour cela que je préfère toujours passer par des tests "runtime" avant de faire le paquet... ;)

Cela étant, l'erreur s'explique par le manque de la variable privée associée à la propriété. :fessee:
Voici le code amendé qui devrait beaucoup mieux fonctionner : 8-)

Code:

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
87
88
89
90
91
92
unit illustratedBarGraphRG;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
  TillustratedBarGraph = class(TImage)
  private
    { Private declarations }
    FNombreDeCellules: Integer; // A RAJOUTER
  protected
    { Protected declarations }
    function GetNombreDeCellules:integer;
    procedure SetNombreDeCellules(Nb:integer);
  public
    { Public declarations }
    constructor Create(AOwner :TComponent); override;
    procedure Paint; override;
  published
    { Published declarations }
    property Align;
    property Anchors;
    property AntialiasingMode;
    property AutoSize;
    property BorderSpacing;
    property Center;
    property Constraints;
    property Cursor;
    property DragCursor;
    property DragMode;
    property Enabled;
    property Height;
    property HelpContext;
    property HelpKeyword;
    property HelpType;
    property Hint;
    property Left;
    property Name;
    property ParentShowHint;
    property Picture;
    property PopupMenu;
    property Proportional;
    property ShowHint;
    property Stretch;
    property Tag;
    property Top;
    property Transparent;
    property Visible;
    property Width;
 
    property NombreDeCellules:integer read GetNombreDeCellules write SetNombreDeCellules;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  {$I illustratedbargraphRG_icon.lrs}
  RegisterComponents('Standard',[TillustratedBarGraph]);
end;
constructor TillustratedBarGraph.Create(AOwner :TComponent);
begin
  inherited Create(AOwner);
  NombreDeCellules:=1;
  Height:=72;
  self.Width:=72;
end;
procedure TillustratedBarGraph.Paint;
begin
  inherited Paint;
  //Canvas.Rectangle(0,0,10,10);
end;
 
function TillustratedBarGraph.GetNombreDeCellules:integer;
begin
  // result:=NombreDeCellules;  // A REMPLACER !
  Result := FNombreDeCellules;
end;
 
procedure TillustratedBarGraph.SetNombreDeCellules(Nb:integer);
begin
 // NombreDeCellules:=Nb; // A REMPLACER !
  FNombreDeCellules := Nb;
end;
 
end.

11/04/2014, 19h26
Gouyon

Effectivement je m'en suis aperçu après.
Ceci dit c'est très sensible car après correction et vérification du bon fonctionnement j'ai ajouté
Canvas.Rexctangle(10,20,20,30);
Dans la procédure Paint et là Lazarus à explosé dès que j'ai posé le composant sur une Form et réinstallation de Lazarus
Du coup je le fait en "runtime" et après j'essayerais d'en faire un Composant
23/04/2014, 16h26
ThWilliam

Bonjour,

Je viens d'avoir le même problème lors de l'install d'un paquet, et j'ai opté aussi pour la solution de Jon (tout désinstaller, puis réinstaller). Merci pour le tuyau.

@Gouyon :

Je crois voir d'où vient le problème de ton Canvas.Rectangle.
TImage est dérivé de TCustomImage et celui-ci de TGraphicControl.

TGraphicControl a son propre Canvas que l'on peut utiliser sans aucun problème en design-time.
Par contre, quand tu utilises pour la première fois la propriété Canvas de TCustomImage, il y a création d'un bitmap aux dimensions du composant, et le Canvas sur lequel tu dessines est en fait celui du bitmap.
Cette création n'est évidemment plus à faire lorsque Picture a été assigné.
Donc en design-time, cela ne peut poser que des problèmes (dimensionnement du composant, taille du bitmap...).

Tu ne devrais plus avoir de problèmes en mettant dans ta procedure Paint :
if not(csDesigning in ComponentState) then Canvas.Rectangle(0,0,10,10);

Pour que cela marche en design-time, je te conseille de dériver ton composant de TCustomImage et de réécrire la procedure Paint.
Voir fichier : customimage.inc

Tu remarqueras que le Paint utilise "inherited Canvas", c'est-à-dire celui de TGraphicControl.

Thierry
23/04/2014, 19h35
Gouyon

Merci pour ces précisions j'essayerais dès que possible.