| A toolbar-like
icon bar, for use as a program launcher, etc.. It stays top most and iconifies to the tray. See also the button bar.
|
 |
| G4C IconBar // ================================================================ // A icon bar. It stays top most & iconifies to the tray. // ================================================================ WINDOW 10 10 180 20 'IconBar' // the window styles: // TOOL is so there is no window button in the taskbar // REMSIZE is to remember the gui position // MOVE so you can move it from anywhere, etc.. Winattr style clear/topmost/move/remsize/noborder/border/tool winattr background color 200/200/220 xonLoad GuiOpen #this xOnClose // iconify setevent #this tbicon show xOnOpen // de-iconify setevent #this tbicon hide // ================================================================ // the icons - some example commands are attached here. The first // will copy a Gui4Cli keyword from an editor and show you help on // it. NOTE that if you add icons you must resize the gui and move // the others icons.. An easy way to do it is with control-F which // will make the gui window resizable so you can make it bigger and // clone additional icons (with control-c while visually editing) // ================================================================ xIcon 20 0 20 20 shell/#.chm attr style shade attr help 'Get help on the selected Gui4Cli keyword' local key guiclose #this sendKey '^c' delay 100 getclip text key extract key clean guiopen #this htmlhelp keyword home:Gui4Cli.chm $key xIcon 40 0 20 20 g4c/9 attr style shade attr help 'Start a new gui' run $$g4c.editor xIcon 60 0 20 20 shell/#.txt attr style shade attr help 'Start a new text file' xIcon 80 0 20 20 g4c/4 attr style shade xIcon 100 0 20 20 g4c/4 attr style shade // ================================================================ // Quit and iconify.. // ================================================================ xIcon 130 0 20 20 g4c/10 attr style shade attr help 'Minimize IconBar into the system tray' guiclose #this xTBarIcon g4c/9 'Open IconBar' attr show hide // start off hidden attr id tbicon guiopen #this xIcon 150 0 20 20 g4c/5 attr style shade attr help 'Quit the IconBar' GuiQuit #this |
|