interdire resize form

**krokmitaine** · 21/09/2006, 19h47

Salut à tous,
J'ai un problème lorsque je resize mon appli. J'ai fixé des valeurs minWidth et minHeight. Quand je resize par le bas, si la hauteur est minimale, on ne peut plus redimensionner et tout estok. Mais quand je redimensionne par le haut, dès que ma form atteint minHeight, alors elle est décalée vers le bas. Idem pour gauche droite. J'ai essayé de toucher les options Anchors de ma form principale en mettant tout à false ou tout à true mais rien n'y fait. Help ! ...
Merci d'avance !

**der§en** · 21/09/2006, 20h26

Etonnant, tu as surement mal parametrés les alignements quelque part, car le Min et Max fonctionne plutôt bien.

Der§en.

**Jipété** · 21/09/2006, 20h48

Ah, je confirme le gag de Krokmitaine, j'ai testé ! (D7 PE)
Cependant, il s'est un peu mal exprimé :

alors elle est décalée vers le bas

Moi j'aurais dit : " elle est déplacée vers le bas "
Et c'est vrai que c'est loufoque à voir !
--
jp

**Sub0** · 21/09/2006, 22h49

Ça le fait aussi avec D6 perso. La form se déplace au lieu d'être bloquée par la taille minimale. J'ai cherché sans trouver le moyen de corriger ce problème. Si quelqu'un possède une solution, ça m'intéresse aussi, à+

**edam** · 21/09/2006, 23h20

une début d'idée,

:

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
 
   Form1=Tform
.....
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Déclarations privées }
......
    Procedure MonMessage(var msg:TMessage);message wm_user;
...
   end;
...
procedure TForm1.MonMessage;
begin
     with msg do
       begin
         if WParam<0 then top:=top+WParam;
         if LParam<0 then Left:=left+LParam;
       end;
end;
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var  h,l:integer;
begin
     h:=NewHeight-300;
     l:=NewWidth-300;
     Resize:=(NewWidth>=300) and (NewHeight>=300);
     if not Resize then
       PostMessage(handle,wm_user,h,l);
end;

**Jipété** · 22/09/2006, 00h15

une début d'idée

C'est pire ! En plus, là, il y a du flicker sur la form...

--
jp

**krokmitaine** · 22/09/2006, 00h24

Je retrouve le même comportement exaspérant avec les splitters !!!

En fait j'ai un splitter au-dessus d'un panel qui a une contrainte de hauteur. Dès que le splitter a réduit mon panel jusqu'à sa limite alors c'est toute l'application qui se resize vers le bas ...

Tout à l'heure j'étais sous D7 Architecte (travail), là je suis sous D2006 Studio (maison). J'espère qu'ils ont une bonne raison chez Borland pour nous laisser trainer ce genre de trucs ...

**edam** · 22/09/2006, 00h26

Envoyé par Jipété

C'est pire ! En plus, là, il y a du flicker sur la form...

--
jp

??????

**krokmitaine** · 22/09/2006, 00h27

C'est encore pire que ce que je croyais : j'ai un deuxième panel au dessus de mon splitter avec une contrainte de hauteur minimale lui aussi. Quand je remonte mon splitter après l'avoir fait descendre (donc que j'ai agrandi ma fenêtre) jusqu'à la limite de mon second panel, le phénomène n'apparait pas. Mieux encore quand je le redescend vers le bas, il a disparu et ma fenetre ne se redimensionne plus ... Je comprends plus rien

**Jipété** · 22/09/2006, 00h37

Tu devrais nous mettre qqpart un zip avec le .pas ET le .dfm.
--
jp

**edam** · 22/09/2006, 00h39

désoler, et ce code

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
procedure TForm1.MonMessage;
begin
     with msg do
       begin
         top:=WParam;
         Left:=LParam;
       end;
end;
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var  h,l:integer;
begin
     h:=top;
     l:=left;
     Resize:=(NewWidth>=300) and (NewHeight>=300);
     if not Resize then
       PostMessage(handle,wm_user,h,l);
end;

bien sur sans modifier la propriéte de contrain

**krokmitaine** · 22/09/2006, 00h43

J'ai mis mes sources ici :

http://krokmitaine.free.fr/tmp/Projet%20Delphi.rar

**Jipété** · 22/09/2006, 01h05

Yop !
À l'ouverture de la fiche j'ai eu une tripotée de messages à propos d'une propriété que je n'ai pas en D7 (me rappelle plus, à propos de taille...), bref, j'ai déplacé la ToolBar hors du panelContainer, j'ai rajouté

Code :

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

1
2
3
4
5
6
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if NewWidth  < form1.Constraints.MinWidth  then Resize := False;
  if NewHeight < form1.Constraints.MinHeight then Resize := False;
end;

et c'est pareil ! C'est p'têt "a feature" ?

--
jp

**krokmitaine** · 22/09/2006, 01h09

héhé

!
Quand même je ne comprends pas comment ça se fait que personne n'aie signalé ce problème plus tot.
Bon bah si quelqu'un trouve la solution je l'en remercie d'avance.

**Jipété** · 22/09/2006, 01h10

désoler, et ce code

Heu, chez moi, obligé de Ctrl-Alt-Suppr pour tuer la tache...

[edit] en mettant comme ça, ça va beaucoup mieux :

Code :

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

Resize := (NewWidth > form1.Constraints.MinWidth) and (NewHeight > form1.Constraints.MinHeight);

Mais c'est toujours mauvais, même pire, au niveau du flicker de la form.
--
jp

**edam** · 22/09/2006, 01h24

flicker de la form.

?????????????
j'ia delphi6 et sa "marche" cher moi

**Jipété** · 22/09/2006, 01h47

@edam : kess tu veux que j'te dise, moi...
Chez moi si j'essaye de diminuer la taille en agissant sur la bordure supérieure, la fiche se met à trembler, le pointeur garde l'icone "Resize" et Ctrl-Alt-Suppr pour tuer ! Je ne peux même plus descendre dans le Systray (où je planque un outil "tueur" !)...
That's life !
@krokmitaine : c'étaient les Explicit..., les ai retrouvées.
bon, j'avais en plus une affreuse appartion de panneau blanc en cas de move du splitter horizontal, entre lui et les 2 panneaux blancs du haut, une horreur ! Jette un oeil à l'attachment.
Pour m'en débarasser, j'ai viré toutes les shapes. C'est moins beau (quoique..)...
--
jp

**krokmitaine** · 22/09/2006, 11h12

C'est quoi les Explicit ? Je les trouve où ?
Et pour l'histoire de la bande blanche qui se crée en fait c'est moi qui a fait une erreur. La shBorderRightTop il faut la mettre en alBottom du panel paFilters et non en alTop de paRight.

**edam** · 22/09/2006, 12h01

et:

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
 
.....
private
  rec:TRect;
....
 
procedure TForm1.MonMessage;
begin
     inc(adp);
     BoundsRect:=rec;
end;
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
     rec:=BoundsRect;
     Resize:=(NewWidth>=300) and (NewHeight>=300);
     if not Resize then PostMessage(Handle,wm_user,0,0);
end;

interdire resize form

Delphi

Discussions similaires

Partager

Partager