Discussion :

[HAMBA]

Bonsoir,

Voici le bout de code du composant et le retour de Width et Height dans le Create est de 320 sur 240 alors que ma Form est de 800/600
Je ne comprend pas ce que j'ai oublié pour avoir ce résultat?

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
interface
 
uses
  Windows,Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Grids, DBCtrls, dbgrids, Mask, ComCtrls, DBCGrids, Checklst,buttons ;
 
type
  TGLElastic = class(TComponent)
  private
     FForm : TForm;
     FAdjustLabelWidths : boolean ;
     FEnabled : boolean ;
     FOldHeight : integer ;
     FOldWidth : integer ;
     FOldOnResize : TNotifyEvent ;
     FOnResize : TNotifyEvent ;
     FFixed : TStringList ;
     procedure SetEnabled(b : boolean) ;
     procedure SetFixed(s : TStringList) ;
  protected
     procedure FormResize(Sender : TObject) ;
  public
     constructor Create(AOwner : TComponent) ; override ;
     destructor Destroy ; override ;
  published
     property AdjustLabelWidths : boolean read FAdjustLabelWidths write FAdjustLabelWidths default False ;
     property Enabled : boolean read FEnabled write SetEnabled default True ;
     property FixedComponents : TStringList read FFixed write SetFixed ;
     property OnResize : TNotifyEvent read FOnResize write FOnResize ;
  end;
 
procedure Register;
 
implementation
 
constructor TGLElastic.Create(AOwner : TComponent) ;
begin
     inherited Create(AOwner) ;
     FEnabled := True ;
     FFixed := TStringList.Create ;
     FForm := GetParentForm(TControl(AOwner)) as TForm;
     if not (csDesigning in ComponentState) then begin
      if FForm <> Nil then
         begin
           FOldHeight := FForm.Height;
           FOldWidth := FForm.Width;
           FOldOnResize := FForm.OnResize ;
           FForm.OnResize := FormResize ;
      end;
     end ;
end ;

Merci d'avance
Patrick

[Aka Guymelef]

Bonjour et bienvenue sur les forums de Développez.com

Si je comprends bien, le but de votre composant est qu'il doit redimensionner la fenêtre. Dans ce cas il est clair que votre composant ne fait rien au niveau de son Create vis à vis de sa fenêtre parent.

Néanmoins je pense que votre bout de code est incomplet car on n'a pas la méthode FormResize ...

[HAMBA]

Bonsoir,

Oui c'est comme je le disais un bout de code, car c'est dans le CREATE que :
FOldHeight := FForm.Height;
FOldWidth := FForm.Width;

les propriétées HEIGHT et WIDTH ne retournent pas la bonne valeur.
D'où vient ce Height de 240 et Width de 320 ?
Ma TForm1 où j'ai posé le compo est de 800/600.

La fonction Resize qui suit effectue bien son travail mais comme la valeur de départ est fausse le ratio d'extension ou de réduction est tout à fait faux.

Avez vous une idée de pourquoi les valeurs sont erronées?

D'avance merci
Patrick

[HAMBA]

Hello,

En fait j'ai trouvé que si je place le compo en enabled:= FALSE
Et que je l'active dans le Onresize, la taille correcte de la TForm source est correcte.
Le create est pourtant effectué de la même manière !?! Strange.
Bon, je suppose que le 240/320 renvoyé si je positionne le enabled à True vient d'une valeur par défaut qqpart dans le constructeur.

Il y a donc une grosse différence par rapport à D4 en ce qui concerne l'initalisation des variables.

Soit ce sera ainsi !

bàv
Patrick

[Aka Guymelef]

Ha ok je vois mieux ce que vous voulez faire. En général pour se genre de chose il vaut mieux redéfinir la méthode Loaded des composants car après l'inherited on est sûr que le composant a bien chargé les valeurs des propriétés publiées stockées dans le DFM.

[HAMBA]

Bonjour et merci du message
En fait cela reste toujours pas très clair : pourquoi ne rend il pas la bonne dimension de le fiche alors que normalement le flux de traitement des compos
lors de la création de la fiche ne s'arrêtra que quand toutes les données nécessaires à tous les compos sont initialisées?

Comment alors implémenter qqchose qui permettra d'en être certain?
La méthode Loaded peut-elle être redéfinie et avec quel paramètre?

BàV
Patrick