Création de composant

Version imprimable

bonjour

a gauche ma cible, à droite le résultat ou l'on voit deux toolbar au lieu d'une

http://alheuredudejeuner.fr/images/Doublecreate.PNG
http://alheuredudejeuner.fr/images/AlhFiremonkey.zip

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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
unit uAlhFloatingWindows;
 
interface
 
uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls,System.Types,System.UITypes,
  FMX.Platform ;
 
type
  TAlhFloatingWindows = class(TPanel)
  private
    { Déclarations privées }
 
    OkDeplace: Boolean;
    HoldPosition: TPointF;
    HoldMousePosition: TPointF;
 
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
    aTitleBar   : TToolBar;
    bClose : TButton;
 
    constructor Create(AOwner: TComponent);  override;
    destructor Destroy; override;
 
    procedure obOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
    procedure obOnMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);
    Procedure obOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
 
  published
    { Déclarations publiées }
  end;
 
 
procedure Register;
 
implementation
 
constructor TAlhFloatingWindows.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);
 
  aTitleBar:=TToolBar.Create(self);
  bClose:=TButton.Create(self);
 
  with bClose do
  begin
    Parent:=aTitleBar;
    Height:=25;
    Width:=25;
    Align:=TAlignLayout.alRight;
    Text:='X';
  end;
  with aTitleBar do
  begin
    Parent:=Self;
    Height:= 25;
    OnMouseDown:=obOnmouseDown;
    OnMouseMove:=obOnMouseMove;
    OnMouseUp:=obOnMouseUp;
  end;
 
 
end;
 
destructor TAlhFloatingWindows.Destroy;
begin
 
  Inherited;
end;
 
 
 
procedure TAlhFloatingWindows.obOnMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  OkDeplace:=false;
end;
 
procedure TAlhFloatingWindows.obOnMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  OkDeplace:=true;
  HoldPosition.X:=Position.X ;
  HoldPosition.Y:=Position.Y;
  HoldMousePosition:=Platform.GetMousePos;
end;
 
procedure TAlhFloatingWindows.obOnMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
  if OkDeplace then
  begin
    Position.X:=HoldPosition.X+(Platform.GetMousePos.X-HoldMousePosition.X);
    Position.Y:=HoldPosition.Y+(Platform.GetMousePos.Y-HoldMousePosition.Y);
  end;
end;
 
procedure Register;
begin
  RegisterComponents('AlhFiremonkey', [TAlhFloatingWindows]);
end;
 
end.

Question : qu'est-ce qui ne va pas dans ce code ?

Cordialement

André

14/05/2012, 12h49
arkhamon
Salut,

petite question : c'est quoi tes "Composants[8]" et [9] ? Si c'est des TTOolbar comme le 9 est n fils de 8, c'est normal que tu en voies 2.
PAr ailleurs, si j'en crois le code :
Code:

1 2 3 4 5 6 7 8 with bClose do begin Parent:=aTitleBar; Height:=25; Width:=25; Align:=TAlignLayout.alRight; Text:='X'; end;
ton bClose a effectivement comme parent ton toolbar...
A moins que j'ai pas bien compris ton affaire...
14/05/2012, 13h24
alheuredudejeuner

c'est quoi tes "Composants[8]" et [9]

c'est des composant créer une deuxième fois après que j'ai déposer le nouveau composant sur une fiche et que j'ai exécuter le programme,

j'ai remplacé le toolbar par un panel, et je cherche un bout de code pour empêcher la création des composants si il sont déjà créés.

André
14/05/2012, 13h48
arkhamon

houla pas tout compris là...

le code de create se rexecute plusieurs fois

ce code là

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  aTitleBar:=TToolBar.Create(self);
  bClose:=TButton.Create(self);
 
  with bClose do
  begin
    Parent:=aTitleBar;
    Height:=25;
    Width:=25;
    Align:=TAlignLayout.alRight;
    Text:='X';
  end;
  with aTitleBar do
  begin
    Parent:=Self;
    Height:= 25;
    OnMouseDown:=obOnmouseDown;
    OnMouseMove:=obOnMouseMove;
    OnMouseUp:=obOnMouseUp;
  end;

s’exécute plusieurs fois

Normalement

Code:

TToolBar.Create(self);

ne devrais s'executer qu'une fois.

14/05/2012, 17h29
alheuredudejeuner

le tes de base
vu dans le dernier dev du jeudi
Code:

1 2 3 4 5 6 7 procedure TForm1.Button1Click(Sender: TObject); begin MonPanel:=TAlhFloatingWindows.Create(self); MonPanel.Parent:=Self; MonPanel.Position.X:=100; MonPanel.Position.Y:=100; end;
fonctionne parfaitement,
le problème survient en design.

J'ai joint l'exemple pour haut, il suffit d’exécuter plusieurs fois l'application exemple dans Delphi pour voir.
14/05/2012, 21h37
alheuredudejeuner

csDesigning in ComponentState
Code:

1 2 3 4 if not(csDesigning in ComponentState) then begin aTitleBar:=TPanel.Create(Self); bClose:=TButton.Create(Self);
3/4 du dev du jeudi sur la création de composant, et je m'aperçoit, que le contenu de mon panel est créer deux fois.
1 fois quand je pose le composant sur ma fiche
et une autre fois quand j’exécute le programme exemple.

il va falloir rusé, mais à cet instant je ne voit pas comment 8O

Le problème vient du fait que tu n'as pas besoin de créer certains composants parcequ'ils vont être créés automatiquement s'ils sont "déclarés" dans un stylebook (à en croire ton screencast tu veux utiliser le système de resource/stylebook):

Donc toi tu crées les composant dans le constructeur, mais c'est une erreur: tu fais:
Code:

1 2 3 4 5 6 7 constructor TAlhFloatingWindows.Create(AOwner: TComponent); begin Inherited Create(AOwner); aTitleBar:=TToolBar.Create(self); bClose:=TButton.Create(self); end;
Alors que si tu utilises le système des styles, les composants vont être crées automatiquement(ce qui explique les objets non-nommés dans la capture d'écran). Conclusion: ne rien créer du tout si tu utilises un style, donc goodbye le constructeur si c'était juste pour créer des composants enfants.

Si dans ton style ces composants existent, alors tu ne dois pas les créer. A la place tu "Surmontes" la procedure "ApplyStyle" et dans cette dernière tu assignes un pointeur vers une toolbar si le FindResource marche.

En pratique, tu fais:
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 // declarations Private MyToolbar: TToolbar; MyToolButton: TButton; doToolBarClick: Procedure(Sender: TObject); Public Procedure ApplyStyle; Override; // implementations Procedure TMaClasseFMX.ApplyStyle; Var B: TComponent; Begin Inherited; B := FindResource('le_nom_de_ta_toolbar_dans_le_style'); If B <> Nil Then Begin MyToolbar := TToolbar(B); MyToolbar.OnClick := doToolBarClick; // etc.. End; // tu captes le concept ? ;) // après tu as un pointeur vers l'instance de ta toolbar... // il ne faut pas créer les composant qui sont dans les resources mais les assigner ! End;
Et crois mois ca c'est un des gros concept du framework FMX, si tu captes ca, c'est bon, c'est dans la poche ;).
Egalement, si tu utilises les styles, il faut aussi "protéger" les différentes méthodes de ta classe par des

Code:

If MyToolbar = Nil Then Exit

A chaque début de procédure qui utilise ton pointeur de "vers ta toolbar". Autrement tu seras susceptible de te choper de vilaines VA lors de certains évènements propre à une appli Delphi...:aie:

21/05/2012, 18h17
alheuredudejeuner

qu'est-ce que ça veux dire ?
Code:

B := FindResource('le_nom_de_ta_toolbar_dans_le_style');

entre temps j'ai remplacé le panel par un rectangle

dans tous les cas dans le style c'est : panelstyle :Trectangle, toolbarstyle:Trectangle

j'ai essayé
Code:

1 2 3 4 B := FindResource('panelstyle:TRectangle'); If aTitleBar <> Nil Then Begin aTitleBar := TRectangle(B);
[DCC Erreur] uAlhFloatingWindows.pas(79): E2010 Types incompatibles : 'NativeUInt' et 'string'
[DCC Erreur] uAlhFloatingWindows.pas(82): E2003 Identificateur non déclaré : 'TRectangle'
22/05/2012, 02h16
Nexavi

Il est fort possible qu'il y ait eut un malentendu de ma part :oops: ,je présuposait que dans ton stylebook tu avais créé la resource à assigner, mais vu ta réponse je pense que tu utilises la manière standard (création de composant par le code)...désolé. Je pensais pouvoir aider d'autant plus que j'ai réalisé un composant très très similaire sous vgScene (+ ou - lamême chose que FMX) il ya quelques mois (fenêtre flotante et dock-able).

http://img834.imageshack.us/img834/4...ingenrefmx.png

Uploaded with ImageShack.us

Mais bon n'ésite pas à me relancer si effectivement tu cherchais à utiliser ce mécanisme ;)
29/05/2012, 17h07
Nexavi
Bonjour, essaye d'ajouter ça dans ton constructeur...
Et puis il va être nécéssaire d' overrider le déstructeur pour libérer
les deux composants...Mais bon avec ca celà devrait être bon...
Code:

1 2 3 4 5 6 7 8 9 aTitleBar:=TToolBar.Create(Nil); bClose:=TButton.Create(Nil); //... bCLose.Stored := False; bCLose.locked := True; // aTitleBar.Stored := False; aTitleBar.locked := True;
Et encore dsl pour la précédente confusion...sous vgScene il était plus simple de modifer les styles...Et puis ca fait depuis juillet/aout 2011 que je n'ai pas touché à XE2 ;)