Discussion :

[paulfr]

Bonjour

Dans une procédure je souhaite preparer l'affichage d'un graphique en affectant à WindowState wsMaximized, l'état initial étant wsNormal, et initialiser les dimensions A et B de la PaintBox contenue dans la form pour des calculs ultérieurs à effectuer avant l'affichage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TFAffGraph.GrInit;
begin
//  A := FAffGraph.ClientWidth;                // A=495 essai valeur à l'exécution
  FAffGraph.WindowState := wsMaximized;
  A := FAffGraph.PBGraph.Width ;
  B := FAffGraph.PBGraph.Height;
//  A := FAffGraph.ClientWidth - 20;           // Clientwidth=495
//  B := FAffGraph.ClientHeight -FAffGraph.PBGraph.Top-5;
end;

A l'exécution je constate que cette procédure est inefficace l'écran ayant encore les mêmes dimensions avant et après l'exécution de l'affectation de wsMaximized, A = 495, largeur max. possible 1240.

Comment activer la modification de l'affichage, si possible sans passer par l'événement OnResize ?

D'aprés mes recherches il semble que la solution soit ni évidente ni simple.

Est-il possible d'exécuter par un code la méthode "Agrandir" de Windows ?

[ALWEBER]

Quelques propriétés utiles. L'image étant ici directement dans la Form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  object Image1: TImage
    Align = alClient
    Stretch = True

[Ph. B.]

Bonjour,

Vous avez plusieurs possibilités pour ce faire :
Utiliser les possibilités d'ancrage du composant dans la fiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PBGraph.Anchors := [akLeft, akTop, akRight, akBottom];

Dans ce cas, votre composant conservera ses positions par rapport aux bords de sa fiche parente quelque soit les dimensions que l'on donnera à cette dernière.

Recalculer les dimensions vous même en traitant l'évènement OnResize de la fiche parente.

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
const
  MARGE = 5;
// ...
procedure TFAffGraph.FormResize(Sender: TObject);
var
  X, Y, W, H: Integer;
begin
  X := MARGE;
  Y := MARGE;
  W := Self.ClientWidth - X - MARGE; // ou Self.ClientWidth - 2 * MARGE;
  H := Self.ClientHeight - Y - MARGE; // ou Self.ClientHeight - 2 * MARGE;
  PBGraph.Left := X;
  PBGraph.Top := Y;
  PBGraph.Width := W;
  PBGraph.Height := H;
end;

Dernière petite chose, évitez de mettre le nom de variable d'une fiche dans une méthode de la classe de cette fiche et utilisez le mot clé Self. Si jamais vous créez une fiche de cette classe que vous affectez à une autre variable, les résultats vont être aléatoire (erreur de type violation d'accès ou comportement à priori erratique).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TFAffGraph.GrInit;
begin
//  A := Self.ClientWidth;                // A=495 essai valeur à l'exécution
  Self.WindowState := wsMaximized; 
  A := Self.PBGraph.Width ;
  B := Self.PBGraph.Height;
//  A := Self.ClientWidth - 20;           // Clientwidth=495
//  B := Self.ClientHeight - Self.PBGraph.Top-5;
end;

--
Philippe.

[paulfr]

Bonjour,

En définitive après modification de FormResize je peux exécuter sans problème.

@ Ph.B
Ayant transféré Grinit à partir d'une unité je oublié de faire la modification dans AffGraph que j'ai supprimé, mais pourquoi self.

Merci pour vos commentaires.

Mais command simuler la commande "Agrandir" de windows ?

[Ph. B.]

Bonjour,

Ayant transféré Grinit à partir d'une unité je oublié de faire la modification dans AffGraph que j'ai supprimé, mais pourquoi self.

Self est facultatif dans l'exemple que j'ai repris. Self correspond à l'instance courante lors de l'appel de la méthode de sa classe.
Cf. FAQ.
Il ne faut pas utiliser un nom d'instance qui pourrait ne pas être instanciée et déclencher une exception de type Violation d'accès.
Cf. exemple suivant :

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
// Code l'unité
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    BtnInformation: TButton;
    procedure BtnInformationClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    Information: String;
  end;
 
var
  Form1: TForm1;
  Form1_bis: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BtnInformationClick(Sender: TObject);
begin
   // Correct et non ambigüe
  ShowMessage(Self.Information);
  // Correct mais ambigüe, cf. FAQ
  ShowMessage(Information);
  // Incorrect
  ShowMessage(Form1.Information);
end;
 
end.
// code du projet
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1_bis);
  Form1_bis.Information := 'Form1_bis';
  Application.Run;
end.

Mais command simuler la commande "Agrandir" de windows ?

Une piste est de déduire la taille maximale que pourra avoir la fenêtre à partir des éléments suivants : Screen.Height et Screen.Width (unité Forms). Il faudra déduire la hauteur de la barre de la fenêtre et la hauteur de la barre Windows si celle-ci est horizontale ou sa largeur si celle ci est verticale et non masquée.
On peut le savoir par des appels API (faire une recherche) ou le déterminer approximativement :

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
const
  MARGE = 5;
 
procedure TFAffGraph.GrInit;
var
  X, Y, W, H: Integer;
begin
  X := MARGE;
  Y := MARGE;
  // Ici, je suppose la barre Windows masquée
  // et le contour inférieur de la fenêtre n'est pas déduite
  W := Screen.Width - X - MARGE;
  H := Screen.Height - (Height - ClientHeight) - Y - MARGE;
  PBGraph.Left := X;
  PBGraph.Top := Y;
  PBGraph.Width := W;
  PBGraph.Height := H;
end;

Sinon gérer cela dans l'événement OnResize (cf. message précédent)
--
Philippe.

[paulfr]

Bonjour,

@Ph.B merci pour le code.

P lautier