blackvenomm666 commented on a Page, Control Panel v2  -  Mar 20, 2012

Here is part of an old one of mine that does what you want
This one will show you the list of channels you are in in the top list box and will show you the nicks in the channels when you double click on the channel name

Menu Menubar,Nicklist,Channel {
  .Venom Profile Viewer: dialog $iif($dialog(profileview.system),-v,-md profileview.system) profileview.system
}
Dialog profileview.system {
  Title "Profile viewer"
  Size -1 -1 207 80
  Option dbu
  list 1, 02 02 100 40, hsbar vsbar
  button "view profile ",2, 02 62 37 12 , flat
  list 3, 02 33 100 40, hsbar vsba3
  edit "type nick to check here", 4, 40 62 62 12, autohs
  list 5, 105 02 100 75, hsbar vsbar

}
on *:dialog:profileview.system:init:*: {
    chanzz
}
on *:dialog:profileview.system:dclick:1: {
  nickzz
}

alias  nickzz {
  var -s %curr 1, %nick $nick($did(profileview.system,1).seltext,0)
  did -r profileview.system 3
  while (%curr <= %nick) { 
    did -az profileview.system 3 $nick($did(profileview.system,1).seltext,%curr)
    inc %curr
  }
}
alias chanzz {
  var %chans $chan(0), %curr 1
  did -r profileview.System 1
  while (%curr <= %chans) { 
    did -az profileview.System 1 $chan(%curr)
    inc %curr
  }
}

This one will just automatically load in the nicknames of the Active channel when you open the dialog.

Menu Menubar,Nicklist,Channel {
  .Venom Test Dialog: dialog $iif($dialog(testdialog.system),-v,-md testdialog.system) testdialog.system
}
Dialog testdialog.system {
  Title "Test Dialog"
  Size -1 -1 207 80
  Option dbu
  list 1, 02 02 100 80, hsbar vsbar

}
on *:dialog:testdialog.system:init:*: {
   nickzz
}

 alias  nickzz {
  var -s %curr 1, %nick $nick($active,0)
  did -r testdialog.system 1
  while (%curr <= %nick) { 
    did -az testdialog.system 1 $nick($active,%curr)
    inc %curr
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.