Discussion :

[gibet_b]

Bonjour à tous,

Je suis en train de créer mon premier composant. Il s'agit d'un composant conteneur dérivant de TWinControl. Voici le code très simple que j'ai écrit pour le moment :

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
unit JBSimplePlanner;
 
interface
 
uses
  SysUtils, Classes, Controls, StdCtrls, Dialogs, QGraphics ;
 
type
  TJBSimplePlanner = class(TWinControl)
  private
    { Déclarations privées }
    FLabel : TLabel;
    FColumsHeadColor : TColor;
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
    constructor Create(AOwner : TComponent); override;
  published
    { Déclarations publiées }
    property ColumsHeadColor : TColor read FColumsHeadColor write FColumsHeadColor default clAqua;
  end;
 
procedure Register;
 
implementation
 
constructor TJBSimplePlanner.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
Height:=100;
Width:=100;
FLabel:=TLabel.Create(Self);
FLabel.AutoSize:=False;
FLabel.Color:=ColumsHeadColor;
FLabel.Parent:=Self;
FLabel.Height:=Height;
FLabel.Width:=Width;
FLabel.Caption:='Essai';
end;
 
procedure Register;
begin
  RegisterComponents('JB', [TJBSimplePlanner]);
end;
 
end.

Le problème est que le TLabel ainsi créé est noir et non aqua... Comment fait-on pour qu'il prenne la couleur par défaut de ColumsHeadColor et que sa couleur change lorsqu'on modifie la valeur de cette propriété ?

[/dev/null]

Tu a indique a ton TLabel que sont parent est 'Self'... soit lui même... Donne lui le papa qu'il mérite

[gibet_b]

Ayé j'ai trouvé ! En fait, j'avais oublié de faire remonter les propriétés du composant contenu vers les composant conteneur. Merci le livre de Texeira et Pacheco sur Delphi 6 :-)

Voici le nouveau 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
unit JBSimplePlanner;
 
interface
 
uses
  SysUtils, Classes, Controls, StdCtrls, Dialogs, QGraphics ;
 
type
  TJBSimplePlanner = class(TWinControl)
  private
    { Déclarations privées }
    FLabel : TLabel;
    FColumsHeadColor : TColor;
  protected
    { Déclarations protégées }
    procedure SetColumsHeadColor(Value : TColor);
    function GetColumsHeadColor : TColor;
  public
    { Déclarations publiques }
    constructor Create(AOwner : TComponent); override;
  published
    { Déclarations publiées }
    property ColumsHeadColor : TColor read GetColumsHeadColor write SetColumsHeadColor default clAqua;
  end;
 
procedure Register;
 
implementation
 
constructor TJBSimplePlanner.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
Height:=100;
Width:=100;
FLabel:=TLabel.Create(Self);
FLabel.AutoSize:=False;
FLabel.Parent:=Self;
FLabel.Height:=Height;
FLabel.Width:=Width;
FLabel.Caption:='Essai';
end;
 
procedure TJBSimplePlanner.SetColumsHeadColor(Value : TColor);
begin
FLabel.Color:=Value;
end;
 
function TJBSimplePlanner.GetColumsHeadColor;
begin
result:=FLabel.Color;
end;
 
procedure Register;
begin
  RegisterComponents('JB', [TJBSimplePlanner]);
end;
 
end.

[Pedro]

Salut

Tu a indique a ton TLabel que sont parent est 'Self'... soit lui même... Donne lui le papa qu'il mérite

Non ici, self c'est TJBSimplePlanner...

Sinon, tu ferais mieux d'utiliser le canvas pour écrire des textes... C'est plus facile et tu n'as pas à gérer tout ça... Ecris juste ce que tu as à écrire dans Paint... 8)

Autre détail : N'oublie pas de supprimer le TLabel dans Destroy de ton TJBSimplePlanner...

Bonne chance

[/dev/null]

Ah...