Discussion :

[ApproxDev]

Bonjour,

Si je définis une Form avec Width = 640 et Height = 200 dans l'inspecteur d'objet et que d'autre part je laisse les autres propriétés par défaut,
un ShowMessage(IntToStr(Width)+'x'+IntToStr(Height)); dans le constructeur renvoie 640 x 200.

Si je passe son TWindowsState à wsMaximised ou à wsFullScreen, Width et Height deviennent celles de l'écran. Avec cette option de TWindowsState dans l'inspecteur d'objet, par quel moyen puis-je obtenir les valeurs Width et Height précisées dans celui-ci ?

Merci. Cordialement. AD.

[Roland Chastain]

Bonjour !

Je suppose que la seule solution est de lire le fichier LFM, soit en utilisant les fonctions dont Lazarus lui-même se sert (je ne les connais pas pour ma part), soit en fabriquant soi-même une fonction.

[ApproxDev]

Bonjour,

Après avoir regardé dans l'arbre des héritages, TControl en particulier, on peut régler le problème ainsi :

Code :

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

hgtIni := TControl(self).TBDockHeight; wdtIni := TControl(self).LRDockWidth;

ou

Code :

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

hgtIni := TControl(self).unDockHeight; wdtIni := TControl(self).unDockWidth;

Le problème peut sembler curieux. En réalité, je travaille sur plusieurs écrans. Qt possède un automatisme que j'apprécie beaucoup. Il peut ouvrir les fenêtres sur l'écran où se situe la souris. C'est un confort dont j'ai du mal à me passer. Je souhaite que mes applications Lazarus adoptent ce comportement. Il me manquait cette capacité à revenir à la taille d'origine (définie dans l'Inspecteur d'objet) si la fenêtre était définie en wsMaximized ou en wsFullScreen initialement. Pour ce dernier état, il fonctionne mal en Windows (en dual screen) et nécessite un petit correctif. Je testerai le résultat lundi sous Linux et OS X.

Cordialement. AD.

[ThWilliam]

Bonjour,

Il est vrai qu'avec Lazarus sous Windows (je n'ai pas testé sous Linux), si l'on fixe le wsMaximized dans l'EDI, on ne peut plus réduire à la taille d'origine.
Il y a une solution très simple : c'est de fixer le wsMaximized dans l'événement OnShow de la form (pas dans OnCreate !!!). En repassant au mode normal, tu retrouves non seulement la taille d'origine mais aussi la position Left-top de la form.

Cordialement
Thierry