Discussion :

[Lung]

Comment modifier la forme rectangulaire par défaut d'un TImage ?

Par exemple, imaginons une bitmap d'un disque que je charge dans un TImage.
Serait-il possible d'ajuster la forme du TImage à la forme du bitmap chargé dedans (donc circulaire) ?
Le but est de pouvoir cliquer plus facilement sur ce qu'il y a derrière le TImage.

J'ai pensé aux régions : ça fonctionne bien pour les TForm.
J'avais trouvé un bout de code qui semblait faire ça (http://www.developpez.net/forums/d12...conque-bitmap/), mais je n'arrive plus à m'en servir :
Si j'ai bien compris, il balaye l'image et semble remplir un PRgnData de tout les pixels considérés comme transparents.
Et ensuite, un simple appel à :

Code :

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

ExtCreateRegion(nil, SizeOf(RGNDATAHEADER) + (SizeOf(TRect) * nMaxRects), RgnData^);

Mais, il semblerait que les régions soient dépréciées, et ne soient plus gérées à partir de Windows 7 (inclu).
Y a t'il quelque chose qui permette de remplacer les régions ?

[ALWEBER]

Tu peux surcharger la méthode onPaint d'un TShape.

[Andnotor]

Mais, il semblerait que les régions soient dépréciées, et ne soient plus gérées à partir de Windows 7 (inclu).

Non non, les régions fonctionnent toujours. Il faut par contre que l'élément ait un handle ce qui n'est pas le cas du TImage. Il faut le poser sur un panel et agir sur ce dernier par SetWindowRgn.

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
function CreateBitmapRgn(aBmp :TBitmap): hRGN;
type
  PRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array[0..0] of TRGBTriple;
 
var
  x, y  :integer;
  RGB   :PRGBTripleArray; //Bitmap 24 bits
  Start :integer;
 
  //
  procedure AddRgn;
  var
    Rgn :hRGN;
  begin
    Rgn := CreateRectRgn(Start, y, x, y+1);
    CombineRgn(Result, Result, Rgn, RGN_OR);
    DeleteObject(Rgn);
    Start := -1;
  end;
  //
 
begin
  Result := CreateRectRgn(0, 0, 0, 0);
  Start  := -1;
 
  for y := 0 to aBmp.Height -1 do
  begin
    RGB := aBmp.ScanLine[y];
 
    for x := 0 to aBmp.Width -1 do
      //Pour blanc = transparent
      if (RGB[x].rgbtBlue = $FF)  and
         (RGB[x].rgbtGreen = $FF) and
         (RGB[x].rgbtRed = $FF)   then
      begin
        if Start > -1 then AddRgn;
      end
      else if Start = -1 then Start := x;
 
    if Start > -1 then AddRgn;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  //L'image est posée sur Panel1
  SetWindowRgn(Panel1.Handle, CreateBitmapRgn(Image1.Picture.Bitmap), TRUE);
end;

[Lung]

Non non, les régions fonctionnent toujours. Il faut par contre que l'élément ait un handle ce qui n'est pas le cas du TImage. Il faut le poser sur un panel et agir sur ce dernier par SetWindowRgn

Effectivement, avec un conteneur comme un TPanel, ça marche.
J'ai fait un projet de test :


Plus qu'à modifier tout mon projet pour remplacer TImage par TPanel ...