, enkle funktion til at konvertere et ikon for en bitmap.,, procedure icontobitmapex (ikon: ticon, var bitmap: tbitmap;,, størrelse: heltal = 16), begynder, (* enkle funktion til at konvertere et ikon i, bitmap og fastsætte slutningen størrelse, *), hævde (tildelt (ikon, ikon, der er) nej! «);,, hvis ikke tildelt (bitmap) så, bitmap: = tbitmap. skabe;,,, bitmap.width: = ikon. bredde;,, bitmap.height: = ikon. højde,, bitmap. lærred. træk (0, 0, ikon), hvis størrelse < > bitmap. bredde så, bitmap. lærred. stretchdraw (direkte (0, 0, størrelse, størrelse), bitmap);,, bitmap.width: = størrelse;,, bitmap.height: = størrelse,,,,,,,,