Discussion :

[Just-Soft]

Salut

dans l'évènement AfterScroll j'ai ce petit code

Code :

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

1
2
3
4
5
if ig_Fichier.Visible then
      begin
        h := ExtractAssociatedIcon(hInstance, PChar(ed_Chemin.Text),lpiIcon);
        DrawIcon(ig_Fichier.Canvas.Handle,0, 0, h);
      end;

il sert à extraire l'icone d'un fichier et le mettre dans un composant Image sauf qu'il laisse la trace de l'icone précedente quand je parcours mon ensemble de données, je cherche le moyen pour l'effacer avant attribution d'un nouveau handle comme si j’initialisais le canevas du compo image.

merci par avance.

[freud]

Bonjour,

Avez-vous essayer avec :

Code :

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

1
2
 
ig_Fichier.Picture := nil;

Ou

Code :

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

1
2
 
ig_Fichier.Canvas.Refresh;

[Just-Soft]

Merci freud, c'était ça effectivement, juste un nil quelle honte !!
mais tant qu'on y est, j'ai un autre pépin, la propriété Transparent du compo Image est positionnée à True mais mon icone est toujours sur un fond blanc alors que j'ai besoin d'un fond transparent où est le problème ?

[freud]

Je ne sais pas mais peut-être qu'avec ça :

Code :

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

1
2
 
ig_Fichier.Picture.Icon.Transparent:=True ou False;

[Paul TOTH]

Merci freud, c'était ça effectivement, juste un nil quelle honte !!
mais tant qu'on y est, j'ai un autre pépin, la propriété Transparent du compo Image est positionnée à True mais mon icone est toujours sur un fond blanc alors que j'ai besoin d'un fond transparent où est le problème ?

Pourquoi n'utilises-tu pas un TPaintBox avec un appel à DrawIcon dans le OnPaint ?

Sinon Image.Picture.Icon.Handle := ExtractAss....

[Just-Soft]

Pourquoi n'utilises-tu pas un TPaintBox avec un appel à DrawIcon dans le OnPaint ?

pour la simple raison que je ne fais que charge des icones donc le TImage est plus approprié pour cela d'après ce que j'ai compris !

Sinon Image.Picture.Icon.Handle := ExtractAss....

c'est ce que j'utilise effectivement mais ce fond blanc n'est pas du tout beau à voir

[Paul TOTH]

pour la simple raison que je ne fais que charge des icones donc le TImage est plus approprié pour cela d'après ce que j'ai compris !

je ne vois pas en quoi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.FormCreate(Sender: TObject);
var
  w : Word;
begin
  w := 0;
  PaintBox1.Tag := ExtractAssociatedIcon(hInstance, PChar(Application.ExeName), w);
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  DrawIcon(PaintBox1.Canvas.Handle, 0, 0, PaintBox1.Tag);
end;

c'est ce que j'utilise effectivement mais ce fond blanc n'est pas du tout beau à voir

ce n'est pas ce que tu dis dans ton premier message

Code :

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

1
2
3
4
5
6
7
8
9
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
  w : Word;
begin
  w := 0;
  Image1.Picture.Icon.Handle := ExtractAssociatedIcon(hInstance, PChar(Application.ExeName), w);
end;