la fonction Simple pour convertir une Icône à une image Bitmap.
procédure IconToBitmapEx(Icône: TIcon var Bitmap: TBitmap
& nbsp & nbsp Taille: Entier = 16)
begin
& nbsp & nbsp (* fonction Simple pour convertir une icône dans un
& ! & ! & ! & nbsp bitmap et indiquer la fin de la taille *)
& nbsp & nbsp Assert(Attribué(Icône), ' Aucune Icône indiqué!')
& nbsp & nbsp si non Affecté(Bitmap)
& ! & ! & ! & nbsp Bitmap := TBitmap.Créer
& nbsp & nbsp Bitmap.largeur := Icône.La largeur
& nbsp & nbsp Bitmap.hauteur := Icône.Hauteur
& nbsp & nbsp Bitmap.Toile.Draw(0, 0, Icône)
& nbsp & nbsp si Taille <> Bitmap.La largeur
& ! & ! & ! & nbsp Bitmap.toile.StretchDraw(Rect(0, 0, taille, Taille), Bitmap)
& nbsp & nbsp Bitmap.largeur := Taille
& nbsp & nbsp Bitmap.taille := Taille
fin
Icontobitmap
Icontobitmap : Plusieurs milliers de conseils pour vous faciliter la vie.
la fonction Simple pour convertir une Icone a une image Bitmap.
procedure IconToBitmapEx(Icone: TIcon var Bitmap: TBitmap
& nbsp & nbsp Taille: Entier = 16)
begin
& nbsp & nbsp (* fonction Simple pour convertir une icone dans un
& ! & ! & ! & nbsp bitmap et indiquer la fin de la taille *)
& nbsp & nbsp Assert(Attribue(Icone), ' Aucune Icone indique!')
& nbsp & nbsp si non Affecte(Bitmap)
& ! & ! & ! & nbsp Bitmap := TBitmap.Creer
& nbsp & nbsp Bitmap.largeur := Icone.La largeur
& nbsp & nbsp Bitmap.hauteur := Icone.Hauteur
& nbsp & nbsp Bitmap.Toile.Draw(0, 0, Icone)
& nbsp & nbsp si Taille <> Bitmap.La largeur
& ! & ! & ! & nbsp Bitmap.toile.StretchDraw(Rect(0, 0, taille, Taille), Bitmap)
& nbsp & nbsp Bitmap.largeur := Taille
& nbsp & nbsp Bitmap.taille := Taille
fin
