Discussion :

[bionicleman]

Bonsoir à tous,
J'ai un problème depuis un moment :
Je voudrais qu'à l'execution d'un OpenDialog l'icone du fichier (.exe) récupéré soit mise dans le Form1.BitBtn1.Glyph, j'ai ce code et après moultes et moultes essais j'abandonne et je post
Uses et Variables :

Code :

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

1
2
3
 
Uses [...], Unit1;
var h : string;

Fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function TForm1.GetIconHandle(const P_FileName : string;
                              const P_Modifier : integer): HIcon;
var Sfi: TSHFileInfo;
begin
  SHGetFileInfo(PChar(P_FileName),
                0,
                Sfi,
                SizeOf(TSHFileInfo),
                SHGFI_SYSICONINDEX or SHGFI_ICON or P_Modifier);
  Result := Sfi.hIcon;
end;

Procédure :

Code :

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

1
2
3
4
5
6
7
 
procedure TForm2.Btn1Click(Sender: TObject);
begin
if OpenDialog1.execute then
h:=(opendialog1.Filename);
bitbtn1.glyph.handle := GetIconHandle(h, SHGFI_SHELLICONSIZE);
end;

[Cl@udius]

Salut

Transforme ton icône en bitmap et assigne le au Glyph. En conservant ta fonction GetIconHandle, essaye ceci:

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
 
procedure IconToBitmap(hIcon: THandle; var ABmp:TBitmap);
begin
  ABmp.Width := 32;
  ABmp.Height := 32;
  ABmp.PixelFormat := pf24bit;
  DrawIconEx(ABmp.Canvas.Handle, 0, 0, hIcon, 32, 32, 0, 0, DI_NORMAL);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  hIcon: THandle;
  Bitmap: TBitmap;
begin
  with OpenDialog1 do
  begin
    if Execute then
    begin
      Bitmap := TBitmap.Create;
      try
        hIcon := GetIconHandle(Filename, SHGFI_SHELLICONSIZE);
        IconToBitmap(hIcon, Bitmap);
        BitBtn1.Glyph := Bitmap;
      finally
        Bitmap.Free;
      end;
    end;
  end;
end;

@+ Claudius

[bionicleman]

Wow !
Ca marche nikel !
Sauf que je ne sais pas si c'est normal mais l'icone qui s'affiche dans le glyph est une 32*32 alors que je veux une 16*16.
Normalement SHGFI_SHELLICONSIZE renvoie une icone 16*16 non ?

[Edit]
Je n'ai rien dit
Encore merci Cl@udius

Code :

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

1
2
3
4
5
  ABmp.Width := 16;
  ABmp.Height := 16;
  ABmp.PixelFormat := pf24bit;
  DrawIconEx(ABmp.Canvas.Handle, 0, 0, hIcon, 16, 16, 0, 0, DI_NORMAL

[/Edit]