Titlebar/Statusbar DCX

By Protheus on Jan 07, 2017

Screenshot:

Image 1

Hawkee cut off the last part of the bar, full screenshot here: https://puu.sh/uSC1r/edb552213f.png

Wrote a little titlebar/statusbar in DCX. You will need DCX.dll as well as the following aliases:

dir.dll { return $shortfn($mircdir) $+ dll\ }
dcx { if ($isid) returnex $dll($dir.dll $+ dcx.dll,$1,$2-) | else dll " $+ $dir.dll $+ dcx.dll" $1 $2- }
udcx { if ($dcx(IsUnloadSafe)) $iif($menu, .timer 1 0) dll -u dcx.dll | else echo 4 -qmlbfti2 [DCX] Unable to Unload Dll. }
xdid { if ( $isid ) returnex $dcx( _xdid, $1 $2 $prop $3- ) | dcx xdid $2 $3 $1 $4- }
xdialog { if ( $isid ) returnex $dcx( _xdialog, $1 $prop $2- ) | dcx xdialog $2 $1 $3- }
xdock { if ($isid) returnex $dcx( _xdock, $1 $prop $2- ) | dcx xdock $1- }
xstatusbar { !if ($isid) returnex $dcx( _xstatusbar, mIRC $prop $1- ) |  dcx xstatusbar $1- }
xtreebar { !if ($isid) returnex $dcx( _xtreebar, mIRC $prop $1- ) | dcx xtreebar $1- }
xtray { if ($isid) returnex $dcx(TrayIcon, $1 $prop $2-) | dcx TrayIcon $1- }
xpop { if ( $isid ) returnex $dcx( _xpop, $1 $prop $2- ) | dcx xpop $2 $1 $3- }
xpopup { if ( $isid ) returnex $dcx( _xpopup, $1 $prop $2- ) | dcx xpopup $2 $1 $3- }
xmenubar { if ($isid) returnex $dcx(_xmenubar, $prop $1-) | dcx xmenubar $1- }
mpopup { dcx mpopup $1 $2 }
dcxml dcx dcxml $1-
tab {
  var %i = 1, %tab
  while (%i <= $0) {
    if ($eval($+($,%i),2) != $null) { %tab = $instok(%tab,$eval($+($,%i),2),$calc($numtok(%tab,9) + 1),9) }
    inc %i
  }
  return %tab
}
xdc return xdialog -c $dname
blk return xdialog -g $dname +b $rgb(0,0,0)

Here is my titlebar/statusbar system. Hope you like it.

on *:load: { 
  .echo -aq $input(Author: Protheus $+ $crlf $+ $crlf $+ Addon: Titlebar System $chr(40) $+ v1.0 $+ $chr(41) $+ $crlf $+ $crlf $+ Released on: 1/07/2017 $+ $crlf $+ $crlf $+ Contact: lokiisagod@live.com $+ $crlf $+ $crlf $+ Thank you for using this Addon!,igo,Addon: Titlebar System $chr(40) $+ v1.0 $+ $chr(41))
  .echo -sa _____________________________________________________
  .echo -sa 0,1 Loading 9,1Titlebar System0,1 Add-On... 
  .echo -sa 0,1 You are running mIRC $version on Windows $+ $os
  .echo -sa ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: Protheus $+ $crlf $+ $crlf $+ Addon: Titlebar System $chr(40) $+ v1.0 $+ $chr(41) $+ $crlf $+ $crlf $+ Released on: 1/07/2017 $+ $crlf $+ $crlf $+ Contact: lokiisagod@live.com $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Titlebar System $chr(40) $+ v1.0 $+ $chr(41))
}

alias tbar {
  if ($dialog(tbar)) { dialog -x tbar }
  dialog -m tbar tbar
}

alias DCX_tbar {
}

dialog tbar {
  title ""
  size -1 -1 1600 1
  option dbu
}
on *:dialog:tbar:init:*: {
  dcx Mark $dname tbar_cb
  $blk
  $xdc 1 list 0 8 200 20 nosel
  xdid -f $dname 1 +a ansi 8 Verdana
  xdid -C $dname 1 +t $color(3) 
  xdid -C $dname 1 +b $color(1)
  xdid -a $dname 1 1 3{14- Server 14-3}9 $+($iif($scid($activecid).server,$scid($activecid).server,Not Connected))
  $xdc 2 list 235 8 200 20 nosel
  xdid -f $dname 2 +a ansi 8 Verdana
  xdid -C $dname 2 +t $color(3) 
  xdid -C $dname 2 +b $color(1)
  xdid -a $dname 2 1 3{14- $active 14-3}9 $chan($active).mode
  $xdc 3 list 480 8 200 20 nosel
  xdid -f $dname 3 +a ansi 8 Verdana
  xdid -C $dname 3 +t $color(3) 
  xdid -C $dname 3 +b $color(1)
  xdid -a $dname 3 1 3{14- Nickname 14-3}9 $nick
  $xdc 4 list 725 8 200 20 nosel
  xdid -f $dname 4 +a ansi 8 Verdana
  xdid -C $dname 4 +t $color(3) 
  xdid -C $dname 4 +b $color(1)
  xdid -a $dname 4 1 3{14- Usermodes 14-3}9 $usermode
  $xdc 5 list 962 8 226 20 nosel
  xdid -f $dname 5 +a ansi 8 Verdana
  xdid -C $dname 5 +t $color(3) 
  xdid -C $dname 5 +b $color(1)
  xdid -a $dname 5 1 3{14- Date 14-3}9 $day $+ , $date(mmmm dd yyyy) 
  xdock -m $dialog(tbar).hwnd +t
}

alias tbar_cb { }

on *:ACTIVE:*: {
  if ($dialog(tbar)) {
    xdid -o tbar 1 1 3{14- Server 14-3}9 $+($iif($scid($activecid).server,$scid($activecid).server,Not Connected))
    xdid -o tbar 2 1 3{14- $active 14-3}9 $chan($active).mode
    xdid -o tbar 3 1 3{14- Nickname 14-3}9 $nick
    xdid -o tbar 4 1 3{14- Usermodes 14-3}9 $usermode
    xdid -o tbar 5 1 3{14- Date 14-3}9 $day $+ , $date(mmmm dd yyyy)
  }
}

Comments

Sign in to comment.
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.