{{DISPLAYTITLE:_ICON}} The [[_ICON]] statement uses an image handle from [[_LOADIMAGE]] for the program header and icon image in the OS. {{PageSyntax}} : [[_ICON]] [{{Parameter|mainImageHandle&}}[, {{Parameter|smallImageHandle&}}]] {{Parameters}} * {{Parameter|mainImageHandle&}} is the [[LONG]] handle value of the OS icon and title bar image pre-loaded with [[_LOADIMAGE]] when used alone. * {{Parameter|smallImageHandle&}} is the [[LONG]] handle value of a different title bar image pre-loaded with [[_LOADIMAGE]] when used. * No image handle designates use of the default QB64 icon or the embedded icon set by [[$EXEICON]]. {{PageDescription}} * If no image handle is passed, the default QB64 icon will be used (all versions). If the [[$EXEICON]] metacommand is used, [[_ICON]] without an image handle uses the embedded icon from the binary (Windows only). * Beginning with '''version 1.000''', the following is considered: :::{{Parameter|mainImageHandle&}} creates the image as the icon in the OS and the image in the program header (title bar). :::{{Parameter|smallImageHandle&}} can be used for a different image in the program header bar. *The header image will automatically be resized to fit the icon size of 16 X 16 if smaller or larger. *Once the program's icon is set, the image handle can be discarded with [[_FREEIMAGE]]. {{PageErrors}} * '''NOTE: Icon files are not supported with [[_LOADIMAGE]] and an error will occur. See Example 2.''' * Images used can be smaller or larger than 32 X 32 pixels, but image resolution may be affected. * It is important to free unused or uneeded images with [[_FREEIMAGE]] to prevent memory overflow errors. *In '''SCREEN 0''' (default text mode) you need to specify 32-bit mode in [[_LOADIMAGE]] to load images.''' {{PageExamples}} ''Example 1:'' Loading an image to a 32 bit palette in SCREEN 0 (the default screen mode). {{CodeStart}} '' '' i& ={{Cl|_LOADIMAGE}}("RDSWU16.BMP", 32) '<<<<<<< use your image file name here {{Cl|IF}} i& < -1 THEN {{Cl|_ICON}} i& {{Cl|_FREEIMAGE}} i& ' release image handle after setting icon {{Cl|END IF}} {{CodeEnd}} :''Note:'' _ICON images can be freed if the [[SCREEN]] mode stays the same. Freed image handles can on longer be referenced. ''Example 2:'' Function that converts an icon into a temporary bitmap for use in QB64. Function returns the available image count. {{CodeStart}} '' '' {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(640, 480, 256) {{Cl|_TITLE}} "Icon Converter" icon$ = "daphne.ico" '<<<<<<<<< change icon file name bitmap$ = "tempfile.bmp" indx% = 6 '1 minimum <<<<<<< higher values than count get highest entry image in icon file {{Cl|IF...THEN|IF}} Icon2BMP(icon$, bitmap$, indx%) {{Cl|THEN}} img& = {{Cl|_LOADIMAGE}}(bitmap$) ' use 32 as color mode in SCREEN 0 {{Cl|IF...THEN|IF}} img& < -1 {{Cl|THEN}} ' check that handle value is good before loading {{Cl|_ICON}} img& ' place image in header {{Cl|_PUTIMAGE}} (300, 250), img& 'place image on screen {{Cl|_FREEIMAGE}} img& ' always free unused handles to save memory {{Cl|KILL}} bitmap$ ' comment out and/or rename to save the bitmaps {{Cl|END IF}} {{Cl|END IF}} {{Cl|END}} ' ---------------------------------------------------- {{Cl|FUNCTION}} Icon2BMP% (filein {{Cl|AS}} {{Cl|STRING}}, fileout {{Cl|AS}} {{Cl|STRING}}, index {{Cl|AS}} {{Cl|INTEGER}}) 'function creates a bitmap of the icon and returns the icon count {{Cl|DIM}} byte {{Cl|AS}} {{Cl|_UNSIGNED}} {{Cl|_BYTE}}, word {{Cl|AS}} {{Cl|INTEGER}}, dword {{Cl|AS}} {{Cl|LONG}} {{Cl|DIM}} wide {{Cl|AS}} {{Cl|LONG}}, high {{Cl|AS}} {{Cl|LONG}}, BM {{Cl|AS}} {{Cl|INTEGER}}, bpp {{Cl|AS}} {{Cl|INTEGER}} rf = {{Cl|FREEFILE}} {{Cl|IF...THEN|IF}} {{Cl|LCASE$}}({{Cl|RIGHT$}}(filein, 4)) = ".ico" {{Cl|THEN}} 'check file extension is ICO only {{Cl|OPEN}} filein {{Cl|OPEN|FOR}} {{Cl|BINARY}} {{Cl|ACCESS}} {{Cl|ACCESS|READ}} {{Cl|AS}} rf {{Cl|ELSE}} {{Cl|EXIT FUNCTION}} {{Cl|END IF}} {{Cl|GET}} rf, , word {{Cl|GET}} rf, , word: icon = word {{Cl|GET}} rf, , word: count = word {{Cl|IF...THEN|IF}} icon <> 1 {{Cl|OR (boolean)|OR}} count = 0 {{Cl|THEN}} {{Cl|CLOSE}} rf: {{Cl|EXIT FUNCTION}} '{{Cl|PRINT}} icon, count {{Cl|IF...THEN|IF}} index > 0 {{Cl|AND (boolean)|AND}} index <= count {{Cl|THEN}} entry = 16 * (index - 1) {{Cl|ELSE}} entry = 16 * (count - 1) {{Cl|SEEK}} rf, 1 + 6 + entry 'start of indexed Entry header {{Cl|GET}} rf, , byte: wide = byte ' use this unsigned for images over 127 {{Cl|GET}} rf, , byte: high = byte ' use this unsigned because it isn't doubled {{Cl|GET}} rf, , word 'number of 4 BPP colors(256 & 32 = 0) & reserved bytes {{Cl|GET}} rf, , dword '2 hot spots both normally 0 in icons, used for cursors {{Cl|GET}} rf, , dword: size = dword 'this could be used, doesn't seem to matter {{Cl|GET}} rf, , dword: offset = dword 'find where the specific index BMP header is '{{Cl|PRINT}} wide; "X"; high, size, offset {{Cl|SEEK}} rf, 1 + offset + 14 'only read the BPP in BMP header {{Cl|GET}} rf, , word: bpp = word {{Cl|IF...THEN|IF}} bpp = 0 {{Cl|THEN}} {{Cl|CLOSE}} rf: {{Cl|EXIT FUNCTION}} {{Cl|IF...THEN|IF}} bpp <= 24 {{Cl|THEN}} pixelbytes = bpp / 8 {{Cl|ELSE}} pixelbytes = 3 {{Cl|IF...THEN|IF}} bpp > 1 {{Cl|AND (boolean)|AND}} bpp <= 8 {{Cl|THEN}} palettebytes = 4 * (2 ^ bpp) {{Cl|ELSE}} palettebytes = 0 datasize& = (wide * high * pixelbytes) + palettebytes 'no padder should be necessary filesize& = datasize& + 14 + 40 ' data and palette + header bmpoffset& = palettebytes + 54 ' data offset from start of bitmap readbytes& = datasize& + 28 ' (40 - 12) bytes left to read in BMP header and {{Cl|XOR}} mask only '{{Cl|PRINT}} bpp, bmpoffset&, filesize& BM = {{Cl|CVI}}("BM") 'this will create "BM" in file like {{Cl|MKI$}} would wf = {{Cl|FREEFILE}} {{Cl|OPEN}} fileout {{Cl|OPEN|FOR}} {{Cl|BINARY}} {{Cl|AS}} wf {{Cl|PUT}} wf, , BM {{Cl|PUT}} wf, , filesize& dword = 0 {{Cl|PUT}} wf, , dword {{Cl|PUT}} wf, , bmpoffset& 'byte location of end of palette or BMP header dword = 40 {{Cl|PUT}} wf, , dword ' start of 40 byte BMP header {{Cl|PUT}} wf, , wide {{Cl|PUT}} wf, , high {{Cl|SEEK}} rf, 1 + offset + 12 ' after 12 bytes start copy of BMP header starting at planes dat$ = {{Cl|STRING$}}(readbytes&, 0) 'create string to hold remaining bytes needed w/o {{Cl|AND}} mask data {{Cl|GET}} rf, , dat$ ' copy lower header, palette(if used) and {{Cl|XOR}} mask {{Cl|PUT}} wf, , dat$ ' put all of the string data in the bitmap all at once {{Cl|CLOSE}} rf, wf Icon2BMP = count ' return the number of icons available in the icon file {{Cl|END FUNCTION}} '' '' {{CodeEnd}}{{small|Code by Ted Weissgerber}} : ''Note:'' Once the file has been loaded into memory, the image handle can still be used even after the file has been deleted. {{PageSeeAlso}} * [[_TITLE]] * [[_LOADIMAGE]] * [[$EXEICON]] * [[Creating Icon Bitmaps]] {{text|(member-contributed program)}} * [[Bitmaps]], [[Icons and Cursors]] * [[Resource_Table_extraction#Extract_Icon|Icon Extraction]] {{PageNavigation}} <