Discussion :

[Lucien]

Bonsoir à chacun,

voici le code que j'essaie et qui ne fonctionne pas,
j'ai aussi essayé vainement aussi les autres fonctions du TimageList...?
Les ressources sont dans un fichier *.res
{$R contact.res}
aprés le *.dfm

Si quelqu'un avait une idée j'en serais trés heureux...

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
 
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
        ch : string;
        result : boolean;
begin
  for i :=0 to maxIcon do
  begin
    case i of
      0 : ch :='CHIM';
      1 : ch :='PUCE';
      2 : ch :='CONS';
      3 : ch :='MONDE';
      4 : ch :='FACTORY';
      5 : ch :='FINANCE';
      6 : ch :='MAINS';
      7 : ch :='LOGO';
      8 : ch :='NAVIRE';
      9 : ch :='CIEL';
      10 : ch :='PARABOLE';
    end;
 
    result:=imagelist1.ResourceLoad(rtIcon,ch, clnone);
    if result then   imagelist1.GetIcon(i,image1.Picture.Icon);
  end;
end;

[AlDel]

Bonjour,

je répond car je trouve frustrant de n'avoir aucune réponse : j'ai essayé de trouver une solution à ton problème et j'avoue n'avoir rien trouvé. Désolé et bonne chance.

[Lucien]

Un grand merci pour l'aspect humain qui me touche beaucoup,
c'est je crois l'intérêt de ce forum, les gens qui y participent sont en majorité trés sensibles aux difficultés de chacun.
Merci encore!

[Pierre Castelain]

Il semblerait effectivement qu'il y ait un problème avec cette méthode.
Je te propose de modifier ton code légèrement :

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
 
var i : integer;
        ch : string;
        icon: TIcon;
 
begin
  icon:= TIcon.Create;
  try
    for i :=0 to maxIcon do
    begin
      case i of
        0 : ch :='CHIM';
        1 : ch :='PUCE';
        2 : ch :='CONS';
        3 : ch :='MONDE';
        4 : ch :='FACTORY';
        5 : ch :='FINANCE';
        6 : ch :='MAINS';
        7 : ch :='LOGO';
        8 : ch :='NAVIRE';
        9 : ch :='CIEL';
        10 : ch :='PARABOLE';
      end;
      icon.Handle:= LoadIcon(HInstance, PChar(ch));
      if icon.Handle <> 0 then
        imagelist1.GetIcon(i,image1.Picture.Icon);
    end;
  finally
    icon.Free;
  end;
end;

[Lucien]

Merci à tous et à chacun