Discussion :

[Gouyon]

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

[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...

[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

[Jipété]

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 ?

[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 !

[Gouyon]

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 !

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 :

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
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.