FreezingFire Admin Team

Joined: 23 Jun 2002 Posts: 3508
|
Posted: Wed Oct 02, 2002 9:26 pm Post subject: |
|
|
Here's a rough outline for a colored back for a menu...use the %%use_bitbtns variable to tell if you would like to use the BITBTNS...
| Code: | Title Menu Demonstration
%%use_bitbtns = yes
if @equal(%%use_bitbtns,yes)
DIALOG CREATE,Menu Demonstration,-1,0,240,160
DIALOG ADD,STYLE,MB,,,,LIME,
DIALOG ADD,GROUP,sep,23,0,241,2
DIALOG ADD,BITBTN,File,2,2,32,18,,File
DIALOG ADD,BITBTN,About,2,38,32,18,,About
DIALOG ADD,TEXT,DialogT,60,68,51,13,DialogText
DIALOG ADD,SHAPE,SHAPE1,75,70,,,WHITE,BLACK,,SQUARE
DIALOG ADD,TEXT,MBACK,0,0,240,24,,,MB
DIALOG SHOW
else
DIALOG CREATE,Menu Demonstration,-1,0,240,160
DIALOG ADD,STYLE,MB,,,L,LIME,
DIALOG ADD,GROUP,sep,23,0,241,2
DIALOG ADD,TEXT,DialogT,60,68,51,13,DialogText
DIALOG ADD,SHAPE,SHAPE1,75,70,,,WHITE,BLACK,,SQUARE
DIALOG ADD,TEXT,MBACK,0,0,240,24,,,MB
DIALOG ADD,TEXT,File,5,7,26,13,File,,TRANSPARENT,CLICK
DIALOG SHOW
end
:Evloop
wait event
goto @event()
:FileCLICK
:FileBUTTON
dialog popup,&Menu Item 1|M&enu Item 2|E&xit
goto evloop
:AboutBUTTON
dialog popup,A&bout
goto evloop
:AboutMENU
info By FreezingFire...
goto evloop
:Menu Item 1MENU
:Menu Item 2MENU
info Menu Item Event
goto evloop
:ExitMENU
:Close
exit |
_________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|