Jump to content

James2006

Members
  • Posts

    6
  • Joined

  • Last visited

Posts posted by James2006

  1. dialog toolbar {
     title "Toolbar"
     size -1 -1 512 1
     option dbu
     list 1, -1 0 514 14, size
    }
    
    on *:dialog:toolbar:init:*:{
     dll system/dlls/mdx/mdx.dll SetMircVersion $version
     dll system/dlls/mdx/mdx.dll MarkDialog $dname
     dll system/dlls/mdx/mdx.dll SetDialog $dname style tool dlgframe
     dll system/dlls/mdx/mdx.dll SetBorderStyle $dname 1
     dll system/dlls/mdx/mdx.dll SetControlMDX $dname 1 ToolBar Bars flat list wrap nodivider > system/dlls/mdx/bars.mdx
     did -i $dname 1 1 bmpsize 16 16
     did -i $dname 1 1 setimage icon small 0,system/images/icons/XP.icl
     did -a $dname 1 +a 1 Start $chr(9) Click here to begin
     dll system/dlls/hOS/hOS.dll Dock $dname top 0
    }
    on *:dialog:toolbar:sclick:1:{
     var %click $did($dname,1).sel
     if (%click == 2) {
       startmenu
     }
    }
    
    alias startmenu {
     dll system/dlls/popups.dll New startmenu 16 16
     dll system/dlls/popups.dll LoadImg startmenu icon small 6,system/images/icons/XP.icl
     dll system/dlls/popups.dll AddItem startmenu end 1 &Run... $cr run cmd
     dll system/dlls/popups.dll Popup startmenu $calc($window(-2).x + 5) $calc($window(-2).y + 45)
    }

     

    im attempting to create a toolbar, right now im focusing on a menu resembling the windows start menu on the toolbar, it works, on start it docks the toolbar to the top of the script and the menu works fine, buuut, when i click on a item on the toolbar menu nothining happens, see this line here:

      dll system/dlls/popups.dll AddItem startmenu end 1 &Run... $cr run cmd
    well i thought after $cr u put the command you want to run, but no matter what i put after $cr it doesn't work, can someone tell me how to get it working please?

     

    p.s. sorry if ive posted in the wrong area.

×
×
  • Create New...