Récupérer une icone 32x32 pixels en 16x16 pixels

Commenter

Contenu du snippet

Pour récupérer une icone (32x32 pixels) en une iage de 16x16 pixels.
Vous aurez besoin sur votre form de :
Image1 (TImage),
Button1 (TButton).

Source / Exemple : 


procedure TForm1.Button1Click(Sender: TObject);
var
 Icon:TIcon;
 redim:TBitmap;
 ImageTemp:TImage;
begin
 Icon:=TIcon.Create;
 Redim:=TBitmap.Create;
 ImageTemp:=TImage.Create(Self);
  try
   Icon.Assign(Application.Icon);
   with ImageTemp do
   begin
    Width:=Icon.Width;
    Height:=Icon.Height;
    Canvas.Draw(0,0,Icon);
   end;
   Redim.Assign(ImageTemp.Picture);
   With Image1 do
   begin
    Transparent:=True;
    Stretch:=True;
    Width:=Icon.Width div 2;
    Height:=Icon.Height div 2;
    Picture.Bitmap.Assign(Redim);
   end;
  finally
   Icon.Free;
   Redim.Free;
   ImageTemp.Destroy;
  end;
end;

Conclusion :


Voila, c'est tout...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Spatul)