Discussion :

[Roland Chastain]

Bonjour !

Je me décide à vous soumettre un problème que je cherche en vain à résoudre à chaque nouveau projet.

Mettons que j'ai une fenêtre avec une barre de menu. Je veux mettre dans cette fenêtre un bouton de 300 pixels sur 200, avec une marge de 2 pixels tout autour. Quelle sera la hauteur de la fenêtre ? Sur l'ordinateur sur lequel je suis en train de travailler, j'ai trouvé empiriquement que je devais régler la propriété Height de ma fenêtre (TForm) à 233.

Mais si je change d'environnement, ça risque de ne plus fonctionner, n'est-ce pas ?

233 - (200 + 2 * 2) = 29

Il correspond à quoi ce 29 ?

Connaîtriez-vous une stratégie permettant de régler ce problème ?

[microb]

Bonjour,

Et en utilisant la propriété Screen.Height ?

[BeanzMaster]

Salut Roland

Bonjour !

Je me décide à vous soumettre un problème que je cherche en vain à résoudre à chaque nouveau projet.

Mettons que j'ai une fenêtre avec une barre de menu. Je veux mettre dans cette fenêtre un bouton de 300 pixels sur 200, avec une marge de 2 pixels tout autour. Quelle sera la hauteur de la fenêtre ? Sur l'ordinateur sur lequel je suis en train de travailler, j'ai trouvé empiriquement que je devais régler la propriété Height de ma fenêtre (TForm) à 233.


Mais si je change d'environnement, ça risque de ne plus fonctionner, n'est-ce pas ?

233 - (200 + 2 * 2) = 29

Il correspond à quoi ce 29 ?

Connaîtriez-vous une stratégie permettant de régler ce problème ?

Salut Roland, ton problème est en fait assez simple. Mais il faut prendre en compte que la hauteur de la barre de titre n'est pas prise en compte lorsque tu règles les dimensions de ta fenêtre. En effet la hauteur de la barre de titre peut varier d'un OS à l'autre, suivant le thème de l'OS et suivant le style choisi dans Lazarus (QT, GTK, Natif, Cocoa etc...)

La hauteur du menu = TMenu.Height;

La Largeur optimale pour ta fenêtre sera donc : 300 (Largeur du bouton) + 4 (Les marges à gauche et droite du bouton = 2 + 2 ) = 304
La hauteur optimale pour ta fenêtre sera donc : 200 (Hauteur du bouton) + 4 (Les marges en haut et bas du bouton = 2 + 2) + 20 (Hauteur du menu) = 224

Code :

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

1
2
3
 
  Self.Width := BTQuit.Width + 4;
  Self.Height := BTQuit.Height + 4 + MMMenu.Height;

Sinon, pourquoi ne pas mettre Les propriétés de BTQuit : align := alClient et BorderSpacing.Around := 2 ?

Tu peux également restreindre les dimensions de ta form à l'aide de la propriété Constraints
Ou tu peux encore utiliser la propriété AutoSize de ta form (sauf qu'avec celle-ci dans l'IDE la form ne se met pas à jour automatiquement) qui redimensionnera alors automatiquement celle-ci en fonction des dimensions de ton bouton. (des contrôles visible dans ta form)

Bref à toi de voir si tu veux jouer avec les propriétés de la form et/ou du bouton, et comment. Il y a plusieurs solutions. Ou si tu veux tout faire par code.

Bonne soirée

A+

Jérôme

[Roland Chastain]

Bonjour,

Et en utilisant la propriété Screen.Height ?

Merci pour votre réponse, qui pourra me servir une autre fois, mais en l'occurrence je crois que ça ne correspond pas à mon problème (que je n'ai peut-être pas expliqué assez clairement).

[Roland Chastain]

Merci Jérôme pour ta réponse. Je ne connaissais pas TMenu.Height; donc c'est déjà ça de gagné.

La hauteur optimale pour ta fenêtre sera donc : 200 (Hauteur du bouton) + 4 (Les marges en haut et bas du bouton = 2 + 2) + 20 (Hauteur du menu) = 224

Code :

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

1
2
3
 
  Self.Width := BTQuit.Width + 4;
  Self.Height := BTQuit.Height + 4 + MMMenu.Height;

Désolé, mais chez moi (enfin, sur l'un de mes ordinateurs, car sur l'autre c'est différent) c'est 233. Et ton code ne me donne pas le résultat attendu. Je ne me fatigue pas à faire une capture d'écran : je suppose que tu me croiras sur parole.

Sinon, pourquoi ne pas mettre Les propriétés de BTQuit : align := alClient et BorderSpacing.Around := 2 ?

Tu peux également restreindre les dimensions de ta form à l'aide de la propriété Constraints
Ou tu peux encore utiliser la propriété AutoSize de ta form (sauf qu'avec celle-ci dans l'IDE la form ne se met pas à jour automatiquement) qui redimensionnera alors automatiquement celle-ci en fonction des dimensions de ton bouton. (des contrôles visible dans ta form)

Tout ça est intéressant. Je vais explorer ces différentes pistes.

Mais comme tu t'en doutes, ma fenêtre avec un seul bouton n'était qu'un exemple. Le projet pour lequel j'essaie de résoudre ce problème est celui-ci.

https://github.com/rchastain/velena

Je voudrais que le bas de la zone client coïncide exactement avec le bas du label (comme sur la capture d'écran). Mais dès que je passe d'un environnement à un autre (à savoir de Mageia à Manjaro), le résultat n'est plus le même.

[BeanzMaster]

Merci Jérôme pour ta réponse. Je ne connaissais pas TMenu.Height; donc c'est déjà ça de gagné.

Désolé, mais chez moi (enfin, sur l'un de mes ordinateurs, car sur l'autre c'est différent) c'est 233. Et ton code ne me donne pas le résultat attendu. Je ne me fatigue pas à faire une capture d'écran : je suppose que tu me croiras sur parole.

Ok donc la valeur de TMenu.Height; est différente ? non ? car elle dépend de la taille de la police de caractères utilisée.

Tout ça est intéressant. Je vais explorer ces différentes pistes.

Mais comme tu t'en doutes, ma fenêtre avec un seul bouton n'était qu'un exemple. Le projet pour lequel j'essaie de résoudre ce problème est celui-ci.

https://github.com/rchastain/velena

Je voudrais que le bas de la zone client coïncide exactement avec le bas du label (comme sur la capture d'écran). Mais dès que je passe d'un environnement à un autre (à savoir de Mageia à Manjaro), le résultat n'est plus le même.

Je vais y jeter un oeil

A+

[Roland Chastain]

Ok donc la valeur de TMenu.Height; est différente ? non ? car elle dépend de la taille de la police de caractères utilisée.

Voici ce que j'ai essayé :

Code :

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

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(Format('MMMenu.Height=%d', [MMMenu.Height]));
  Self.Height := BTQuit.Height + 4 + MMMenu.Height;
end;

Et le résultat :





Manifestement la valeur de TMenu.Height; est fausse.

[BeanzMaster]

Voici ce que j'ai essayé :

Code :

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

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(Format('MMMenu.Height=%d', [MMMenu.Height]));
  Self.Height := BTQuit.Height + 4 + MMMenu.Height;
end;

Et le résultat :

Manifestement la valeur de TMenu.Height; est fausse.

Effectivement la valeur renvoyée par TMenu.Height; est fausse. En regardant ta capture de plus près la hauteur du menu = 29px et il y a bien 8px en trop en bas. Il y a bel et bien un problème sous Linux. Cela serait un bug à reporter sur le forum anglais. Je testerai demain avec Manjaro et avec mon Mac pour comparer.

[jurassic pork]

hello,
une astuce consiste à ajuster la taille de la fenêtre en calculant la hauteur du menu de la manière suivante :

hauteurMenu = hauteur actuelle de la fenêtre - hauteur actuelle de la zone cliente.

et voici le code qui ajuste la hauteur de la fenêtre à sa création :

Code :

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

1
2
3
4
5
6
procedure TForm1.FormActivate(Sender: TObject);
var hauteurMenu: integer;
begin
   hauteurMenu := Self.Height - Self.ClientHeight;
   Self.Height := BtQuit.height + 4 + hauteurMenu;
end;

Ami calmant, J.P

[Roland Chastain]

Sinon, pourquoi ne pas mettre Les propriétés de BTQuit : align := alClient et BorderSpacing.Around := 2 ?

Je viens d'essayer. Oui, ça fonctionne, et ça me paraît être une piste intéressante.

[Roland Chastain]

une astuce consiste à ajuster la taille de la fenêtre en calculant la hauteur du menu de la manière suivante :

hauteurMenu = hauteur actuelle de la fenêtre - hauteur actuelle de la zone cliente.

et voici le code qui ajuste la hauteur de la fenêtre à sa création :

Oui, ça fonctionne.

P.-S. Pas sûr de bien comprendre à quoi cette valeur correspond. Elle me paraît trop grande pour être la hauteur du menu, et trop petite pour être la hauteur du menu plus la hauteur du titre. Mais peu importe puisque ça marche...

[BeanzMaster]

Bonjour

hello,
une astuce consiste à ajuster la taille de la fenêtre en calculant la hauteur du menu de la manière suivante :

hauteurMenu = hauteur actuelle de la fenêtre - hauteur actuelle de la zone cliente.

et voici le code qui ajuste la hauteur de la fenêtre à sa création :

Code :

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

1
2
3
4
5
6
procedure TForm1.FormActivate(Sender: TObject);
var hauteurMenu: integer;
begin
   hauteurMenu := Self.Height - Self.ClientHeight;
   Self.Height := BtQuit.height + 4 + hauteurMenu;
end;

Ami calmant, J.P

Oui le calcul de JP, peut marcher, mais à la condition qu'aucun autre contrôle ne soit présent sur la "form" et aligner sur "alTop" ou "alBottom"

Oui, ça fonctionne.

P.-S. Pas sûr de bien comprendre à quoi cette valeur correspond. Elle me paraît trop grande pour être la hauteur du menu, et trop petite pour être la hauteur du menu plus la hauteur du titre. Mais peu importe puisque ça marche...

Normalement le "HauteurMenu" avec la fonction de JP devrait te renvoyer 29px chez toi. Si c'est pas le cas, c'est qu'il y a vraiment un bug de taille avec Linux.

Je viens d'essayer. Oui, ça fonctionne, et ça me paraît être une piste intéressante.

Oui et cela fonctionnera quelque soit la dimension de ta "form", c'est le bouton qui s'ajustera à celle-ci

A+

[BeanzMaster]

Je viens de tester sous Mac, le menu se plaçant en haut de l'écran, TMenu.Height renverra toujours 0. Le Self.Height = Self.ClientHeight.
Petit problème quand même, impossible de redimensionner le TButton en hauteur, il se place au milieu. Il faut donc utiliser un TSpeedButton à la place.

[Roland Chastain]

Je clique sur "résolu". Il me semble que la proposition de JP répond bien au problème. On pourrait peut-être l'ajouter dans la FAQ ?

@Jérôme

Il y a des pistes intéressantes dans tes réponses. Je vais creuser tout ça.

Normalement le "HauteurMenu" avec la fonction de JP devrait te renvoyer 29px chez toi. Si c'est pas le cas, c'est qu'il y a vraiment un bug de taille avec Linux.

Oui, c'est bien le résultat que j'obtiens.

[Roland Chastain]

La solution proposée par Jérôme fonctionne aussi. Un TPanel, avec la propriété BorderSpacing.Around = 2 (par exemple), et TForm.AutoSize = True. Puis placer les autres composants sur le TPanel.