Discussion :

[Invité]

Bonjour,

je souhaite alterner la taille de ma fenêtre de normal à tout l'écran.
Pour cela j'ai un popup menu avec 2 items "Agrandir" et "réduire" qui utilisent le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.mnAgrandirClick(Sender: TObject);
begin
  WindowState := wsMaximized;
end;
 
procedure TForm1.mnReduireClick(Sender: TObject);
begin
  WindowState := wsNormal;
end;

Jusque là tout va bien.
Maintenant je souhaite passer d'un mode d'affichage à l'autre en double cliquant directement sur le form.
Je pensais faire simplement :

Code :

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

1
2
3
4
5
6
procedure TForm1.FormDblClick(Sender: TObject);
begin
  if (WindowState = wsNormal)
  then WindowState := wsMaximized
  else WindowState := wsNormal;
end;

Le problème est alors que lors de l'agrandissement la fenêtre est mal positionnée, elle reste où elle se trouve au milieu de l'écran avec la bonne taille agrandi.
Est-ce un bug ? Ou dois-je faire différemment ?

Merci de vos réponses.
Ben

[thewolf]

Bonjour.

Je ne comprends pas bien votre question. J'ai essayé et le comportement me semble être celui attendu : la fenêtre passe en plein écran puis revient à son état initial (taille et emplacement).

Christian

[microb]

Bonjour,
j'ai essayé et pour moi aussi,le comportement est normal.

[mm_71]

Pareil pour moi, ça fonctionne. Après agrandissement plein écran le retour à wsNormal la remet à la taille et position qu'elle avait avant.

[Lung]

En Delphi, ça pourrait être un problème lié à la propriété Position de la Form.
Cette propriété existe sous Lazarus ?

[Invité]

J'ai 2 écran, je ne sais pas si cela peut jouer.
Je vous joins une copie du projet si vous pouvez tester ce que cela donne chez vous.

Merci

[ThWilliam]

Bonjour.

Dans ton code, la propriété Form1.Position = poDefault.
Ce qui, chez moi (Windows 7), entraine un agrandissement de la fiche par rapport aux dimensions fixées en mode design.
Si tu fixes Form1.Position = poScreenCenter --> ton problème est-il résolu ?

Cordialement
Thierry

[Invité]

J'ai justement changé la propriété Form1.Position de poScreenCenter à poDefault avant de sauvegarder ce projet pour voir si mon problème ne venait pas de là.

[mm_71]

Dans l'inspecteur d'objets tu as viré la propriété BorderIcons et par le fait même la possibilité de redimensionner la fenêtre. Remet cette propriété à:

Code :

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

[biMinimize,biMaximize]

Et tout ira bien. J'ai aussi 2 écrans.

[mm_71]

Et tu n'as pas non plus besoin de Posx Posy, la fenêtre retrouve bien taille et position sans eux.

[Invité]

Dans l'inspecteur d'objets tu as viré la propriété BorderIcons et par le fait même la possibilité de redimensionner la fenêtre. Remet cette propriété à:

Code :

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

[biMinimize,biMaximize]

Et tout ira bien. J'ai aussi 2 écrans.

Je n'ai peut être pas utilisé la bonne méthode, je afficher la fenêtre sans icônes ni titre. Je souhaiterais masquer complètement la barre en haut de la fenêtre.
J'ai tester en les remettant à True, cela ne change rien.

Et tu n'as pas non plus besoin de Posx Posy, la fenêtre retrouve bien taille et position sans eux.

Posx et Poxy me servent à déplacer la fenêtre en cliquant à l'intérieur de celle-ci.
Ils ne sont pas utilisés pour la redimension.



C'est juste le double clique qui pose problème, les méthodes appelées depuis le menu contextuel, qui semblent faire la même chose, fonctionne correctement.

[mm_71]

Je souhaiterais masquer complètement la barre en haut de la fenêtre.

Pour ça c'est BorderStyle=:=BsNone mais le programme ne fonctionnera plus.
Pour maximiser ou redimensionner une fenêtre il faut que la barre et les icônes appropriés soient actifs.

[Invité]

Je ne veux pas mettre BorderStyle := BsNone, car la fenêtre doit rester redimensionnable.
Encore une fois cela fonctionne bien en passant par le menu contextuel, c'est seulement le double clique qui pose problème.

[BeanzMaster]

Salut tu peux essayé ça :

Je sais plus ou j'ai lu ça mais il faut également re-paramétrer les propriétés FormStyle et Position (cf ExitFullScreen). BorderStyle c'est optionel si je me souviens bien.

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
procedure TForm1.EnterFullScreen;
begin
 BorderStyle:=bsNone;
 FormStyle:=fsSystemStayOnTop;
 WindowState:=wsMaximized; //wsFullScreen;
 FFullScreen:=True;
end;
 
procedure TForm1.ExitFullScreen;
begin
  WindowState:=wsNormal;
  Position:=poDesigned;
  FormStyle:=fsNormal;
  BorderStyle:=bsSizeable;
  FFullScreen:=False;
end;

A+

[Invité]

Merci, je teste et vous tiens au courant.

[mm_71]

Je sais plus ou j'ai lu ça mais il faut également re-paramétrer les propriétés FormStyle et Position (cf ExitFullScreen). BorderStyle c'est optionel si je me souviens bien.

Au moins sous Linux mint 18.2 GTK 2 ça ne marche pas, j'avais essayé un truc du genre et ton exemple me donne des résultats similaires et désastreux. La fençetre s'agrandit bien mais après soit elle passe en mode minimisé dans la barre des tâches, soit le système se fige plusieurs dizaines de secondes et quand il revient à lui la fenêtre à carrément disparu .

Code :

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

FFullScreen:=True;

C'est du delphi ça non ? Pas trouvé avec Lazarus.

Encore une fois cela fonctionne bien en passant par le menu contextuel, c'est seulement le double clique qui pose problème.

Oui, j'avais compris, mais le code que je met ici en P.J. fonctionne parfaitement sous Linux mint 18.2, si après compilation il ne fonctionne pas chez toi il faut en déduire qu'il y-a un bogue dans la version lazarus de winodws.
Tu as essayé de mettre un showmessage('test'); dans la procédure double click pour voir si elle est bien appelée ?
testwin.zip

[BeanzMaster]

Au moins sous Linux mint 18.2 GTK 2 ça ne marche pas, j'avais essayé un truc du genre et ton exemple me donne des résultats similaires et désastreux. La fençetre s'agrandit bien mais après soit elle passe en mode minimisé dans la barre des tâches, soit le système se fige plusieurs dizaines de secondes et quand il revient à lui la fenêtre à carrément disparu .

Ce que j'avais lu c'était pour Mac, justement. Il y a une chose à faire. Benoit fait une recherche sur le Forum anglais, il me semble que c'etait là que j'avais lu l'info

Code :

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

FFullScreen:=True;

C'est du delphi ça non ? Pas trouvé avec Lazarus.

Non FFullScreen c'est une variable à moi que j'ai laissé trainer

Sinon il faut sauvegarder la position( Left et Top) Avant passer en plein écran et rétablir ensuite.

[Invité]

Je me remet dessus dans la semaine, je vous tiendrais informé