interdire resize form

Version imprimable

21/09/2006, 18h47
krokmitaine

interdire resize form

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 !
21/09/2006, 19h26
der§en

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

Der§en.
21/09/2006, 19h48
Jipété

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

Citation:

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
21/09/2006, 21h49
Sub0

Ç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, à+

une début d'idée, :? :

Code:

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;

21/09/2006, 23h15
Jipété

Citation:

une début d'idée

C'est pire ! En plus, là, il y a du flicker sur la form... :(
--
jp
21/09/2006, 23h24
krokmitaine

Je retrouve le même comportement exaspérant avec les splitters !!! :evilred:
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 ...
21/09/2006, 23h26
edam

Citation:

Envoyé par Jipété

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

??????
21/09/2006, 23h27
krokmitaine

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 :aie:
21/09/2006, 23h37
Jipété

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

:oops: :oops: :oops: :oops:
désoler, et ce code

Code:

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

21/09/2006, 23h43
krokmitaine

J'ai mis mes sources ici :

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

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:

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" ? :mouarf:
--
jp

22/09/2006, 00h09
krokmitaine

héhé :lol: !
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.
22/09/2006, 00h10
Jipété

Citation:

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:

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
22/09/2006, 00h24
edam

Citation:

flicker de la form.

?????????????
j'ia delphi6 et sa "marche" cher moi
22/09/2006, 00h47
Jipété

1 pièce(s) jointe(s)

@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
22/09/2006, 10h12
krokmitaine

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.

et:

Code:

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;