Difference between revisions of "$EXEICON"

From QB64 Wiki
Jump to navigation Jump to search
imported>Clippy
m
imported>Clippy
m
Line 11: Line 11:




{{PageErrors}}
''Example:'' Embeds a designated icon file into the compiled EXE which can be viewed in folders.
{{CodeStart}}
{{Cl|$EXEICON}}:'mush.ico'
{{Cl|_ICON}}
{{Cl|_TITLE}} "Mushroom Kingdom"
{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(320, 200, 32)
{{Cl|WHILE}} {{Cl|NOT}} _{{Cl|SCREEN}}EXISTS: {{Cl|WEND}}


{{Cl|_DELAY}} .5
{{Cl|_FONT}} 16
{{Cl|COLOR}} {{Cl|_RGB32}}(255, 255, 255)
Center 6, "- Nintendo -"
{{Cl|_FONT}} 8
Center 13, "Presents"
{{Cl|PLAY}} "t160l16b>e"
{{Cl|_DELAY}} 1
i = 255
DO
    {{Cl|_LIMIT}} 20
    i = i - 10
    {{Cl|IF...THEN|IF}} i < 0 {{Cl|THEN}} {{Cl|EXIT DO}}
    {{Cl|COLOR}} {{Cl|_RGB32}}(i, i, i)
    {{Cl|_FONT}} 16
    Center 6, "- Nintendo -"
    {{Cl|_FONT}} 8
    Center 13, "Presents"
    {{Cl|_DISPLAY}}
{{Cl|LOOP}}
{{Cl|COLOR}} {{Cl|_RGB32}}(255, 255, 255)
{{Cl|END}}
{{Cl|SUB}} Center (row, t$)
    {{Cl|IF...THEN|IF}} {{Cl|LEN}}(t$) {{Cl|THEN}}
        {{Cl|_PRINTSTRING}} ({{Cl|_WIDTH (function)|_WIDTH}} \ 2 - ({{Cl|LEN}}(t$) * {{Cl|_FONTWIDTH}}) \ 2, (row * {{Cl|_FONTHEIGHT}}) - {{Cl|_FONTHEIGHT}}), t$
    {{Cl|END IF}}
{{Cl|END SUB}}
{{CodeEnd}}{{small|Code and command by Fellippe Heitor}}
<center>[http://www.qb64.net/forum/index.php?action=dlattach;topic=13762.0;attach=4558 mush.ico download]</center>





Revision as of 23:47, 19 August 2016

$EXEICON pre-compiler metacommand embeds a designated icon file into the compiled EXE file to be viewed in Windows Explorer.


Syntax

$EXEICON: 'iconfile.ico'


Description

  • _ICON can designate an alternate window image or use the embedded image without any image handle.


Example: Embeds a designated icon file into the compiled EXE which can be viewed in folders.

$EXEICON:'mush.ico' _ICON _TITLE "Mushroom Kingdom" SCREEN _NEWIMAGE(320, 200, 32) WHILE NOT _SCREENEXISTS: WEND _DELAY .5 _FONT 16 COLOR _RGB32(255, 255, 255) Center 6, "- Nintendo -" _FONT 8 Center 13, "Presents" PLAY "t160l16b>e" _DELAY 1 i = 255 DO _LIMIT 20 i = i - 10 IF i < 0 THEN EXIT DO COLOR _RGB32(i, i, i) _FONT 16 Center 6, "- Nintendo -" _FONT 8 Center 13, "Presents" _DISPLAY LOOP COLOR _RGB32(255, 255, 255) END SUB Center (row, t$) IF LEN(t$) THEN _PRINTSTRING (_WIDTH \ 2 - (LEN(t$) * _FONTWIDTH) \ 2, (row * _FONTHEIGHT) - _FONTHEIGHT), t$ END IF END SUB

Code and command by Fellippe Heitor


mush.ico download


See also




Navigation:
Keyword Reference - Alphabetical
Keyword Reference - By Usage
Main Wiki Page