Enkel funksjon for å konvertere et ikon til en Bitmap.procedure IconToBitmapEx (Ikon: Ticon; Var Bitmap: TBitmap; Størrelse: Integer = 16); begynne (* Enkel funksjon for å konvertere et ikon til et bitmap og angi slutten størrelse *) Assert (Assigned (ikon), 'No Ikon spesifisert!'); hvis ikke Assigned (Bitmap) da Bitmap: = TBitmap.Create; Bitmap.width: = Icon.Width; Bitmap.height: = Icon.Height; Bitmap.Canvas.Draw (0, 0, ikon); hvis Size < > Bitmap.Width deretter Bitmap.canvas.StretchDraw (Rekt (0, 0, Størrelse, Size), Bitmap); Bitmap.width: = Størrelse; Bitmap.height: = Størrelse; ende; Anmeldelser