Discussion :

[bubulemaster]

Bonjour,

j'ai lu le tutoriel suivant sur la possibilité de faire des trou dans une fenetre :

http://zewaren.developpez.com/delphi/regions/

il y a une chose que je n'ai pas comprise, c'est comment on peut annuler la transparence (ou les régions qu'on a créé) ?

Merci d'avance

PS : je n'ai rien trouvé sur le net qui répond à ma question.

[lil_jam63]

Bonjour et bienvenue sur les forums de Developpez.com .
Tout dépend, si tu crées ta région en utilisant CombineRgn(), tu peux justement réutiliser la même fonction avec le flag inverse pour recréer ton "trou", exemple:
pour faire le trou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormCreate(Sender: TObject);
var
  R1, R2 : HRGN;
begin
  R1 := CreateRectRgn(10,30,300,100);
  R2 := CreateRectRgn(0,0,width, height);
  CombineRgn(R1, R1, R2, RGN_XOR);
  SetWindowRgn(handle, R1, true);
  DeleteObject(R1);
  DeleteObject(R2);
end;

et pour boucher le trou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormCreate(Sender: TObject);
var
  R1, R2 : HRGN;
begin
  R1 := CreateRectRgn(10,30,300,100);
  R2 := CreateRectRgn(0,0,width, height);
  CombineRgn(R1, R1, R2, RGN_OR); // RGN_OR est l'inverse de RGN_XOR
  SetWindowRgn(handle, R1, true);
  DeleteObject(R1);
  DeleteObject(R2);
end;

[bubulemaster]

Ok merci, ça marche.

[lil_jam63]

Oublie pas le tag (tout en bas à gauche)