Skip to content
MSN

Toolbar help needed

A TG007 community discussion started by Spike1506.

Discussion 9 posts
Page 1 of 1
Open
Topic #391 · 9 published posts · 630 views

i have create this:

 

;-- Toolbar
on *:START:{ 
 dll $utool SetMircTitle TheUndertaker
 dialog -m toolbar toolbar 
 statusbar
}
dialog toolbar {
 title "toolbar"
 size -1 -1 1000 18
 option dbu
 list 1, 1 2 1000 14, size
}
on *:dialog:toolbar:init:0:{
 dll $mdx SetMircVersion $version 
 dll $mdx MarkDialog $dname
 dll $mdx SetControlMDX $dname 1 ToolBar list arrows flat wrap nodivider > $mircdirdlls\bars.mdx
 dll $mdx SetDialog $dname style
 dll $mdx SetBorderStyle 1
 dll $ktool DockToolbar $dialog($dname).hwnd
 did -i $dname 1 1 bmpsize 16 16
 did -i $dname 1 1 setimage icon small $pics(status.ico)
 did -i $dname 1 1 setimage icon small $pics(settings.ico) 
 did -i $dname 1 1 setimage icon small $pics(dialogs.ico) 
 did -i $dname 1 1 setimage icon small $pics(run.ico) 
 did -a $dname 1 +av 1 Status
 did -a $dname 1 +av 2 Settings
 did -a $dname 1 +av 3 Dialogs
 did -a $dname 1 +av 4 Run
}
on *:dialog:toolbar:dclick:1:{
 var %i = $did($dname,1).sel
 if (%i == 2) { 
   dll $popups New Status 16 16
   dll $popups SetStyle Status bordericon
   dll $popups LoadImg Status icon small $pics(connect.ico)
   dll $popups LoadImg Status icon small $pics(disconnect.ico)
   dll $popups AddItem Status end 1 1 Reconnect $cr $iif($server,remsn,msn)
   dll $popups AddItem Status end 2 2 Disconnect $cr unmsn
   popup Status +c $mouse.dx $mouse.dy 
 }
 if (%i == 3) { 
   dll $popups New Settings 16 16
   dll $popups SetStyle Settings bordericon
   dll $popups LoadImg Settings icon small $pics(main.ico) 
   dll $popups LoadImg Settings icon small $pics(groups.ico)
   dll $popups LoadImg Settings icon small $pics(profile.ico)
   dll $popups AddItem Settings end 1 1 Connection $cr $iif($dialog(connection),dialog -c connection,dialog -dm connection connection)
   dll $popups AddItem Settings end 2 2 Groups $cr $iif($dialog(groups),dialog -c groups,dialog -dm groups groups)
   dll $popups AddItem Settings end 3 3 Profile $cr $iif($dialog(profile),dialog -c profile,dialog -dm profile profile)
   popup Settings +c $mouse.dx $mouse.dy 
 }
 if (%i == 4) {   
   dll $popups New Dialogs 16 16
   dll $popups SetStyle Dialogs bordericon
   dll $popups LoadImg Dialogs icon small $pics(mp3.ico) 
   dll $popups LoadImg Dialogs icon small $pics(away.ico) 
   dll $popups LoadImg Dialogs icon small $pics(access.ico) 
   dll $popups LoadImg Dialogs icon small $pics(who.ico) 
   dll $popups LoadImg Dialogs icon small $pics(user.ico) 
   dll $popups AddItem Dialogs end 1 1 Mp³ $cr $iif($dialog(mp3),dialog -c mp3,dialog -dm mp3 mp3)
   dll $popups AddItem Dialogs end 2 2 Away $cr $iif($dialog(awaysys),dialog -c awaysys,dialog -dm awaysys awaysys)
   dll $popups AddItem Dialogs end 3 3 Access $cr access.d
   dll $popups AddItem Dialogs end 4 4 Find $cr $iif($dialog(who),dialog -c who,dialog -dm who who)
   dll $popups AddItem Dialogs end 5 5 Userslist $cr $iif($dialog(users),dialog -c users,dialog -dm users users)
   popup Dialogs +c $mouse.dx $mouse.dy  
 }
 if (%i == 5) { 
   dll $popups New Run 16 16
   dll $popups SetStyle Run bordericon
   dll $popups LoadImg Run icon small $mircexe
   dll $popups LoadImg Run icon small $pics(dir.ico) 
   dll $popups LoadImg Run icon small notepad.exe
   dll $popups LoadImg Run icon small $pics(explorer.ico)
   dll $popups LoadImg Run icon small regedit.exe
   dll $popups AddItem Run end 1 1 Mirc $cr run $mircexe
   dll $popups AddItem Run end 2 2 Mirc Dir $cr run $mircdir
   dll $popups AddItem Run end 3 3 Notepad $cr run notepad.exe
   dll $popups AddItem Run end 4 4 Explorer $cr run iexplore.exe
   dll $popups AddItem Run end 5 5 Regedit $cr run regedit.exe
   popup Run +c $mouse.dx $mouse.dy 
 }
}
alias popup { 
 tokenize 32 $dll($popups,Popup,$1-) 
 if ($isid) return $1- 
 $iif($4- != did not select a menu item,$4-) 
}
;-- End Toolbar

 

on a older mIRC version it works great, but on the new mIRC version it works a little wierd.

 

if anyone can say me whats wrong in it i am happy smile.gif

 

 

Thanks in advance

post what the problem is so i can help you. not just alittle info, but full description of what is the problem.

Edited Apr 28, 2004 12:11 PM by The Gate Keeper

on a older version of mIRC the toolbar looks fine

 

user posted image

 

 

but on the recent version of mIRC i got this:

 

user posted image

Edited Apr 28, 2004 1:05 PM by Spike1506

yea i wintnessed that to. all you need to do is bring the hight of your dialog down. bring it down by 10 to begin with, and then work at your own pace till you are happy. Note that the docking to the top may become bogged up when you hop on a room. i experance it all the time.

i am sorry :$ i dont understand what you are meaning with it :$ sad.gif (because my english isnt so great sad.gif )

dialog toolbar {

title "toolbar"

size -1 -1 1000 18

option dbu

 

size -1 -1 1000 18

1000 = width

18 = hight

 

just bring that hight down in your script till you think your toolbar looks alright.

still doesnt work :s changed the hight to 10, but still get it not @ the good place (toolbar still on the same place)

it could be that the thing you are using to dock, may not suppot mirc 6.1+. I would just recommend leaving it in mirc 6.03 rather then 6.1+

it could be, thanks for help smile.gif