Discussion :

[Kaneda666]

Bonjour

voilà, je developpe une ptite sidebar en delphi.
Niveau redimensionnement de la zone de travail du bureau, aucun soucis.

Mon probleme se situe au niveau du redimensionnement/maj des fenetres déjà ouvertes/maximisées.

Voilà mon code de test (delphi2005, winXP pro SP2)

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit Unit1;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
 
const
 dockHeight = 120;
 
type
 TForm1 = class(TForm)
   ButtonDock: TButton;
   ButtonUnDock: TButton;
   procedure ButtonUnDockClick(Sender: TObject);
   procedure ButtonDockClick(Sender: TObject);
 private
   { Déclarations privées }
   isDocked: boolean;
 public
   { Déclarations publiques }
 end;
 
var
 Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ButtonDockClick(Sender: TObject);
var
 rect: TRect;
begin
 If SystemParametersInfo(SPI_GETWORKAREA, 0, @rect, 0)
 then begin
   rect.Top := rect.Top + dockHeight;
   isDocked := true;
   if SystemParametersInfo(SPI_SETWORKAREA, 0, @rect, SPIF_SENDCHANGE)
   then begin
     SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, 0);
     SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
     ButtonDock.Enabled := false;
   end
   else begin
     isDocked := false;
     showmessage(string(GetLastError()));
   end
 end
end;
 
procedure TForm1.ButtonUnDockClick(Sender: TObject);
var
 rect: TRect;
begin
 if(isDocked) then begin
   If SystemParametersInfo(SPI_GETWORKAREA, 0, @rect, 0)
   then begin
     rect.Top := rect.Top - dockHeight;
     if SystemParametersInfo(SPI_SETWORKAREA, 0, @rect, SPIF_SENDCHANGE)
     then begin
       isDocked := false;
       ButtonDock.Enabled := true;
       SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, 0);
       SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
     end
     else begin
       showmessage(string(GetLastError()));
     end
   end
 end
end;
 
 
end.

un bouton pour docker, un autre pour dédocker ...
reste la maj des fenetres deja ouvertes à mettre à jour (je me repete je sais lol)

Code :

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

1
2
       SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, 0); 
       SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

mais aucun effet

j'ai fouillé sur le forum et a priori j'ai po trouvé mon bonheur ...

merci pour vos commentaires / votre aide

[anapurna]

salut

tu veut faire quoi exactement un refresh de toute les fenetres deja ouvertes ?

@+ Phil

[Kaneda666]

en gros oui

ce que je veux faire exactement, c'est au démarrage de la barre, là l'espace du bureau est reduit (avec SPI_SETWORKAREA) et donc je dois mettre à jour les fenetres déjà ouvertes pour qu'elles prennent en compte la nouvelle taille de la zone de travail: fenetres maximisées avant ouverture de la barre remaximisées avec la nouvelle taille, etc

j'ai utilisé plusieurs techniques pour tenter ça (enumeration des process, etc) mais rien de bien concluant/propre (fenetre qui s'active en pagaille, certaines qui ne reagissent pas,...)

en fait le seul truc qui marche très bien pour l'instant c'est la maj du placement des icones lol

j'espere avoir été plus clair dans mes explications

++, GreG

[anapurna]

salut

as tu essayer de faire un une fonction callback ?
genre

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
Fonction EnumWindowsProc(HWND : Thandle; Param : Integer) : Boolean;
begin
   if(IsWindowVisible(hwnd)) Then
  begin
    GetWindowRect(hwnd,@rcw);
    atop = rcw.top;
    if  atop > dockHeight then 
      atop :=  dockHeight;
 
    abottom = rcw.bottom;
    ....
    SetWindowPos(hwnd,HWND_BOTTOM,rcw.left,atop, rcw.right,abottom, SWP_SHOWWINDOW);
 end; 
end;
...
 
procedure TForm1.ButtonDockClick(Sender: TObject);
...
begin
  ...
     EnumWindows(@EnumWindowsProc,LongInt(Self));
  ...
end;

@+ Phil

[Kaneda666]

lut

ouep, j'ai deja essayé mais c'est pas super concluant (certaines fenetres ne reagissent pas)
je pensais qu'une API bien cachée ferait le travail

je crois que je vais pas trop avoir le choix et me contenter d'une soluce alternative 'fait maison' ... sniff lol

j'vous tiens au courant et posterai ma 'soluce' dès que ca marche

++
GreG

[anapurna]

salut

essai la commande
MoveWindow si le setpos ne fonctionne pas

@+ Phil

[smyley]

Tout celà peut ce faire automatiquement par Windows, mais dans ce cas il faut que celà soit une barre d'outils ( -> redimensionnement de l'espace de travail, comme la barre des taches ).
Il existe un composant Delphi qui permet de le faire :
http://www.torry.net/quicksearchd.php?String=TAppBar&Title=Yes

[Kaneda666]

Tout celà peut ce faire automatiquement par Windows, mais dans ce cas il faut que celà soit une barre d'outils ( -> redimensionnement de l'espace de travail, comme la barre des taches ).
Il existe un composant Delphi qui permet de le faire :
http://www.torry.net/quicksearchd.php?String=TAppBar&Title=Yes

ok merci je vais voir avec ça

j'vous tiens au courant sous peu

[Kaneda666]

bon, y'a une fonction qui fait parfaitement ce que je voudrais faire dans la demo (position > edge > top)
il me reste à explorer le code pour trouver comment ça marche ... je suis po couché ^^
si quelqu'un le trouve avant moi, je suis preneur ...

++ GreG

[Kaneda666]

bon bah ça marche nickel avec ton lien smyley
merci encore