Discussion :

[HumanTool]

Bonjour,
j'essaye de me créer un composant repliable, c'est à dire qu'il aurait une partie supérieur avec un titre et un bouton plier/replier, et une partie inférieure avec un panel (un flowpanel en l'occurence).
Seulement voilà, lorsque je drop un composant (type TCheckBox) sur mon composant j'ai bien la déclaration dans mon fichier pas mais rien au niveau dfm (aucun objet déclaré) :

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
  TTDynamicPanel = class(TCustomControl)
  private
	Shape: TShape;
	LblHeader: TLabel;
	BtnUp: TSpeedButton;
	BtnDown: TSpeedButton;
 
	FOnExpand: TNotifyEvent;
	FOnCollapse: TNotifyEvent;
 
	function  GetBrushColor: TColor;
	procedure SetBrushColor(const Value: TColor);  
	function  GetPenColor: TColor;
	procedure SetPenColor(const Value: TColor);
	function  GetHeaderColor: TColor;
	procedure SetHeaderColor(const Value: TColor);
	function  GetHeader: String;
	procedure SetHeader(const Value: String);
	function  GetExpanded: Boolean;
	procedure SetExpanded(Value: Boolean);
	procedure ButtonClick(Sender: TObject);
  protected 
	PaInfos: TFlowPanel;
	function  GetEnabled: Boolean; override;
	procedure SetEnabled(Value: Boolean); override;
  public
	constructor Create(AOwner: TComponent); override;
	procedure SetFocus; override;
  published 
	property Align;
	property Anchors;
	property BrushColor: TColor read GetBrushColor write SetBrushColor;
	property Constraints;
	property Enabled: Boolean read GetEnabled write SetEnabled default True;
	property Expanded: Boolean read GetExpanded write SetExpanded default True;
	property Font;
	property ParentColor;
	property ParentCtl3D;
	property ParentFont;
	property PenColor: TColor read GetPenColor write SetPenColor;
	property TabOrder;
	property HeaderColor: TColor read GetHeaderColor write SetHeaderColor;
	property Header: String read GetHeader write SetHeader;
	property Visible;
 
	property OnCollapse: TNotifyEvent read FOnCollapse write FOnCollapse;
	property OnExpand: TNotifyEvent read FOnExpand write FOnExpand;
  end;

Est ce que quelqu'un m'a compris ? Est ce que quelqu'un a une idée ?

[Droïde Système7]

Ca ne serait pas plus simple de se contenter d'une simple Form qui à l'aide d'un bouton, tu redimensionnes ?

Puisque ça se redimensionne toujours vers le bas ; tu devrais y trouver avantage.

Enfin, si j'ai bien compris le sens de ta demande

@+

[skywaukers]

Bonjour,

Si j'ai bien compris ce que tu veux, il y a le JVRollout de la jvcl qui fait cela.

@++
Dany

[petitprince]

Il y a aussi le très beau composant SpookPanel sur Torry's Delphi, avec un bel effet de plier/déplier ....

[HumanTool]

Ca ne serait pas plus simple de se contenter d'une simple Form qui à l'aide d'un bouton, tu redimensionnes ?

Puisque ça se redimensionne toujours vers le bas ; tu devrais y trouver avantage.

Enfin, si j'ai bien compris le sens de ta demande

@+

J'ai besoin d'en dropper plusieurs dans un tabsheet pour une présentation par "bloc"

Bonjour,

Si j'ai bien compris ce que tu veux, il y a le JVRollout de la jvcl qui fait cela.

@++
Dany

Oui je connais mais j'ai aussi besoin d'un flowpanel parce qu'il s'occupe de tout repositionner si je rends un des composants contenu dedans invisible.

Il y a aussi le très beau composant SpookPanel sur Torry's Delphi, avec un bel effet de plier/déplier ....

Je vais l'essayer pourquoi pas...mais j'aurais bien voulu connaitre l'explication. Il semblerait que les composant que je drop sur mon composant ne renseigne pas le parent....pourquoi rien n'est généré dans le dfm puis qu'en conception je les voit dans L'EDI et dans le source .pas ??

ERRATUM: Dans mon source, j'avais déplacé mon flowpanel pour voir si cela changeait quelquechose, je le remet là où il doit ê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
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
  TTDynamicPanel = class(TCustomControl)
  private
	Shape: TShape;
	LblHeader: TLabel;
	BtnUp: TSpeedButton;
	BtnDown: TSpeedButton;
	PaInfos: TFlowPanel;
 
	FOnExpand: TNotifyEvent;
	FOnCollapse: TNotifyEvent;
 
	function  GetBrushColor: TColor;
	procedure SetBrushColor(const Value: TColor);  
	function  GetPenColor: TColor;
	procedure SetPenColor(const Value: TColor);
	function  GetHeaderColor: TColor;
	procedure SetHeaderColor(const Value: TColor);
	function  GetHeader: String;
	procedure SetHeader(const Value: String);
	function  GetExpanded: Boolean;
	procedure SetExpanded(Value: Boolean);
	procedure ButtonClick(Sender: TObject);
  protected 
	function  GetEnabled: Boolean; override;
	procedure SetEnabled(Value: Boolean); override;
  public
	constructor Create(AOwner: TComponent); override;
	procedure SetFocus; override;
  published 
	property Align;
	property Anchors;
	property BrushColor: TColor read GetBrushColor write SetBrushColor;
	property Constraints;
	property Enabled: Boolean read GetEnabled write SetEnabled default True;
	property Expanded: Boolean read GetExpanded write SetExpanded default True;
	property Font;
	property ParentColor;
	property ParentCtl3D;
	property ParentFont;
	property PenColor: TColor read GetPenColor write SetPenColor;
	property TabOrder;
	property HeaderColor: TColor read GetHeaderColor write SetHeaderColor;
	property Header: String read GetHeader write SetHeader;
	property Visible;
 
	property OnCollapse: TNotifyEvent read FOnCollapse write FOnCollapse;
	property OnExpand: TNotifyEvent read FOnExpand write FOnExpand;
  end;

[g_gau]

Il y a aussi le très beau composant SpookPanel sur Torry's Delphi, avec un bel effet de plier/déplier ....

En tous cas moi il me convient parfaitement

merci.

[Dr.Who]

si tu le crée en dynamique, normal que dans le DFM il n'y ai rien.


sinon, peut on voir l'implementation de l'objet ?

[HumanTool]

Ok ça marche, j'avais oublié certaines propriétés à l'héritage.....
Désolé du temps de réponse et merci pour votre aide !!