Mr.Vaka
29-11-2005, 14:17:16
Estoy intentando de hacer este truco, de extraer el icono de un archivo a un Timage, el problema es que si uso el truco varias veces seguidas no se borra el icono anterior que había en el Timage y me pone uno encima y se ven varios iconos al principio del codigo intento poner image1.free; pero me da error, como puedo areglar.
Espero que me aiga explicado bien saludos.
procedure TForm1.Button1Click(Sender: TObject);
var
Icono:TIcon;
Indice:word;
begin
{borro la imagen}
Image1.free;
Icono:=TIcon.Create;
{Indice del icono a extraer}
{Icon Index to extract}
Indice:=0;
Icono.handle:=ExtractAssociatedIcon(hInstance,Pchar('c:\kk\dlib.zip'),Indice);
Image1.Picture.Bitmap.Width:= Icono.Width;
Image1.Picture.Bitmap.Height:= Icono.Height;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Icono);
Icono.Free;
end;
Espero que me aiga explicado bien saludos.
procedure TForm1.Button1Click(Sender: TObject);
var
Icono:TIcon;
Indice:word;
begin
{borro la imagen}
Image1.free;
Icono:=TIcon.Create;
{Indice del icono a extraer}
{Icon Index to extract}
Indice:=0;
Icono.handle:=ExtractAssociatedIcon(hInstance,Pchar('c:\kk\dlib.zip'),Indice);
Image1.Picture.Bitmap.Width:= Icono.Width;
Image1.Picture.Bitmap.Height:= Icono.Height;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Icono);
Icono.Free;
end;