on *:start: {
if (%treex == ON) dcxtreebar
}
;====================================================================================================================================================================================;
; xtreebar_callback | Ook http://www.mircscripting.info/ ;
;====================================================================================================================================================================================;
alias xtreebar_callback {
!if ($1 == geticons) {
; geticons <type> <text>
!if ($2 == status) return 1 1
!if ($2 == channel) return 2 2
!if ($2 == custom) return 3 3
!if ($2 == send) return 4 4
!if ($2 == get) return 5 5
!if ($2 == notify) return 6 6
!if ($2 == query) return 7 7
!if (*folder iswm $2) return 8 8
!return 0 0
}
!if ($1 == gettooltip) {
!if ($2 == channel) {
!if ($3 == $chan($active)) return $chan($active)
!if ($chan($active)* iswm $3) return $chan($active) Channel
}
!if ($2 == status) return $3
!if ($2 == WindowFolder) return Custom Windows Folder
}
}
;===========================================================================================================================;
; alias dcxtreebar | Valentino Decaroli ~ caronte.ade@gmail.com ;
;===========================================================================================================================;
alias dcxtreebar {
xtreebar -w clear
if ($isfile(%icostatus)) xtreebar -w 0 +a 1 %icostatus
if ($isfile(%icochan)) xtreebar -w 0 +a 2 %icochan
if ($isfile(%icocust)) xtreebar -w 0 +a 3 %icocust
if ($isfile(%icosend)) xtreebar -w 0 +a 4 %icosend
if ($isfile(%icoget)) xtreebar -w 0 +a 5 %icoget
if ($isfile(%iconot)) xtreebar -w 0 +a 6 %iconot
if ($isfile(%icoq)) xtreebar -w 0 +a 7 %icoq
if ($isfile(%icodir)) xtreebar -w 0 +a 8 %icodir
xtreebar -c +b %treebarbg
xtreebar -c +t %treetext
xtreebar -c +l %treeline
xtreebar -c +m %treemess
xtreebar -c +e %treevent
xtreebar -c +M %messagebg
xtreebar -c +S %treetextsb
xtreebar -c +E %treetextevo
xtreebar -c +z %treevent
xtreebar -c +Z %treetextevo
xtreebar -c +h %treeh
xtreebar -c +H %treehot
xtreebar -s tooltips infotip transparent
xtreebar -s balloon trackselect scroll rootlines showsel fadebuttons richtooltip
xtreebar -f %textmode %xchartree %xdimtree %xcartree
xtreebar -T 1
}
alias treebardialog {
dialog -ma treebardialog treebardialog_table
/xdialog -b treebardialog -mnszo
/xdialog -R treebardialog +s $dcx(GetSystemColor, COLOR_WINDOW)
}
dialog treebardialog_table {
title "treebardialog"
size 200 200 300 1080
}
on *:dialog:treebardialog:*:*: {
if ($devent == init) {
/dcx Mark $dname treebardialog_cb
/xdialog -b treebardialog -mnszo
/xdialog -a $dname +so 200
/xdialog -E $dname +c -defhmstCM
/xdialog -V $dname -1 -1 1920 1080
/xdialog -t $dname transparentcolor none
/xdialog -t $dname alpha %chiaro
/xdialog -g $dname +b $dcx(GetSystemColor, COLOR_WINDOW)
/xdialog -T $dname +bp
/xdialog -t $dname bgcolor $dcx(GetSystemColor, COLOR_WINDOW)
if (%cur_x == ON) /xdialog -q $dname +f %cursore
!if (!$dcx(IsUsingDirectX)) {
/echo -a DirectX Is Disabled.
halt
}
;// Call initilisation alias
treebardialog_init_dcx
}
}
alias -l treebardialog_init_dcx {
tree_close
background_color_tree
text_color_tree
line_color_tree
selected_color_tree
messagebg_color_tree
messages_color_tree
hottext_color_tree
; .timer 1 0 /xdock -b $dialog(treebardialog).hwnd +so
.timer 1 0 /xdock -m $dialog(treebardialog).hwnd +l
}
;// Callback alias for treebardialog
alias treebardialog_cb {
if ($2 != mouse) { echo $color(info) -s */ treebardialog_cb: $1- }
if ($2 == close) { dcxtreebar }
if ($2 == sclick) {
if ($3 == 1) { /set %treebarbg $dll(dlls\color.dll,Color,.) | background_color_tree | dcxtreebar }
elseif ($3 == 2) { /set %treetext $dll(dlls\color.dll,Color,.) | text_color_tree | dcxtreebar }
elseif ($3 == 3) { /set %treeline $dll(dlls\color.dll,Color,.) | line_color_tree | dcxtreebar }
elseif ($3 == 4) { /set %treetextsb $dll(dlls\color.dll,Color,.) | selected_color_tree | dcxtreebar }
elseif ($3 == 5) { /set %messagebg $dll(dlls\color.dll,Color,.) | messagebg_color_tree | dcxtreebar }
elseif ($3 == 6) { /set %treemess $dll(dlls\color.dll,Color,.) | messages_color_tree | dcxtreebar }
elseif ($3 == 7) { /set %treeh $dll(dlls\color.dll,Color,.) | hottext_color_tree | dcxtreebar }
elseif ($3 == 8008) { /xdialog -h treebardialog | /xdialog -x treebardialog }
}
if ($2 == mouseenter) { echo $color(info) -s */ treebardialog_cb: $1- }
if ($2 == mouseleave) { }
}
alias tree_close {
if ($xdialog(treebardialog, 8008).isid == $true) { /xdid -h treebardialog 8008 +c 5 | /xdialog -d treebardialog 8008 }
;// Initialising control: xButton (Button 8008)
if ($xdialog(treebardialog, 8008).isid != $true) {
/xdialog -c treebardialog 8008 button 2 2 300 36 tabstop default group tooltips bitmap shadow notheme transparent
/xdid -s treebardialog 8008 +c 5
; xdid -t treebardialog 8008 text
if (%lang == en) xdid -T treebardialog 8008 Save and Close
if (%lang == it) xdid -T treebardialog 8008 Salva e Chiudi
if (%lang == es) xdid -T treebardialog 8008 Guardar y Cerrar
if (%lang == fr) xdid -T treebardialog 8008 Enregistrer et fermer
xdid -f treebardialog 8008 %quality %chars %xdim %xcar
xdid -m treebardialog 8008 1
xdid -l treebardialog 8008 %icosize
xdid -x treebardialog 8008 -mnswyz
xdid -s treebardialog 8008 +c 5
xdid -w treebardialog 8008 +ng 0 themes\icons\close.ico
xdid -w treebardialog 8008 +hd 0 themes\icons\close.ico
if (%cur_x == ON) /xdid -J treebardialog 8008 +f %butt
/xdid -C treebardialog 8008 +b $dcx(GetSystemColor, COLOR_WINDOW)
}
}
alias background_color_tree {
if ($xdialog(treebardialog, 1).isid == $true) /xdialog -d treebardialog 1
if ($xdialog(treebardialog, 1).isid != $true) {
;// Initialising control: BG (Button 1)
xdialog -c treebardialog 1 button 2 40 200 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 1 BackGround | xdid -T treebardialog 1 Back Ground Color }
if (%lang == it) { xdid -t treebardialog 1 colore di Fondo | xdid -T treebardialog 1 Colore di Fondo }
if (%lang == es) { xdid -t treebardialog 1 color de Fondo | xdid -T treebardialog 1 Color de Fondo }
if (%lang == fr) { xdid -t treebardialog 1 couleur de Fond | xdid -T treebardialog 1 Couleur de Fond }
xdid -f treebardialog 1 %quality %chars %xdim %xcar
xdid -m treebardialog 1 1
xdid -C treebardialog 1 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 1 -mnswyz
xdid -s treebardialog 1 +c 100
xdid -c treebardialog 1 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 1 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 1 +n %treebarbg
xdid -c treebardialog 1 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
if (%cur_x == ON) xdid -J treebardialog 1 +f %butt
}
}
alias text_color_tree {
if ($xdialog(treebardialog, 2).isid == $true) /xdialog -d treebardialog 2
if ($xdialog(treebardialog, 2).isid != $true) {
;// Initialising control: Text (Button 2)
xdialog -c treebardialog 2 button 2 80 200 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 2 Text | xdid -T treebardialog 2 Set Text Color }
if (%lang == it) { xdid -t treebardialog 2 Testo | xdid -T treebardialog 2 Imposta il colore del testo }
if (%lang == es) { xdid -t treebardialog 2 Texto | xdid -T treebardialog 2 Ajuste el color de texto }
if (%lang == fr) { xdid -t treebardialog 2 Texte | xdid -T treebardialog 2 Régler la couleur du texte }
xdid -f treebardialog 2 %quality %chars %xdim %xcar
xdid -m treebardialog 2 1
xdid -C treebardialog 2 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 2 -mnswyz
xdid -s treebardialog 2 +c 100
xdid -c treebardialog 2 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 2 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 2 +n %treetext
xdid -c treebardialog 2 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
if (%cur_x == ON) /xdid -J treebardialog 2 +f %butt
}
}
alias line_color_tree {
if ($xdialog(treebardialog, 3).isid == $true) /xdialog -d treebardialog 3
if ($xdialog(treebardialog, 3).isid != $true) {
;// Initialising control: Line (Button 3)
xdialog -c treebardialog 3 button 2 120 200 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 3 Line | xdid -T treebardialog 3 Set Line Color }
if (%lang == it) { xdid -t treebardialog 3 Linea | xdid -T treebardialog 3 Set Line Color }
if (%lang == es) { xdid -t treebardialog 3 Linea | xdid -T treebardialog 3 establece el color de la Línea }
if (%lang == fr) { xdid -t treebardialog 3 Ligne | xdid -T treebardialog 3 définit la couleur de la ligne }
xdid -f treebardialog 3 %quality %chars %xdim %xcar
xdid -m treebardialog 3 1
xdid -C treebardialog 3 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 3 -mnswyz
xdid -s treebardialog 3 +c 100
xdid -c treebardialog 3 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 3 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 3 +n %treeline
xdid -c treebardialog 3 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
if (%cur_x == ON) /xdid -J treebardialog 3 +f %butt
}
}
alias selected_color_tree {
if ($xdialog(treebardialog, 4).isid == $true) /xdialog -d treebardialog 4
if ($xdialog(treebardialog, 4).isid != $true) {
;// Initialising control: Select BG (Button 4)
xdialog -c treebardialog 4 button 2 160 200 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 4 Selected BG | xdid -T treebardialog 4 Set Selected BG }
if (%lang == it) { xdid -t treebardialog 4 fondo Selezione | xdid -T treebardialog 4 Imposta il colore sotto il testo selezionato }
if (%lang == fr) { xdid -t treebardialog 4 Sous Sélectionné | xdid -T treebardialog 4 Définit la couleur sous le texte sélectionné }
if (%lang == es) { xdid -t treebardialog 4 Bajo Seleccionada | xdid -T treebardialog 4 Establece el color bajo el texto seleccionado }
xdid -f treebardialog 4 %quality %chars %xdim %xcar
xdid -m treebardialog 4 1
/xdid -C treebardialog 4 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 4 -mnswyz
xdid -s treebardialog 4 +c 100
xdid -c treebardialog 4 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 4 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 4 +n %treetextsb
xdid -c treebardialog 4 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
if (%cur_x == ON) /xdid -J treebardialog 4 +f %butt
}
}
alias messagebg_color_tree {
if ($xdialog(treebardialog, 5).isid == $true) /xdialog -d treebardialog 5
if ($xdialog(treebardialog, 5).isid != $true) {
;// Initialising control: Messages BG Colors (Button 5)
xdialog -c treebardialog 5 button 2 200 200 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 5 MessagesBG | xdid -T treebardialog 5 Set Messages Background Colors }
if (%lang == it) { xdid -t treebardialog 5 sotto Messaggio | xdid -T treebardialog 5 Imposta il colore di fondo del Messaggio }
if (%lang == es) { xdid -t treebardialog 5 Mensajes fondo | xdid -T treebardialog 5 Establece el color de fondo del mensaje }
if (%lang == fr) { xdid -t treebardialog 5 message fond | xdid -T treebardialog 5 Définit la couleur du message de fond }
xdid -f treebardialog 5 %quality %chars %xdim %xcar
xdid -m treebardialog 5 1
/xdid -C treebardialog 5 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 5 -mnswyz
xdid -s treebardialog 5 +c 100
xdid -c treebardialog 5 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 5 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 5 +n %messagebg
xdid -c treebardialog 5 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
if (%cur_x == ON) /xdid -J treebardialog 5 +f %butt
}
}
alias messages_color_tree {
if ($xdialog(treebardialog, 6).isid == $true) /xdialog -d treebardialog 6
if ($xdialog(treebardialog, 6).isid != $true) {
;// Initialising control: Messages Colors (Button 6)
xdialog -c treebardialog 6 button 2 240 200 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 6 Messages | xdid -T treebardialog 6 Set Messages Colors }
if (%lang == it) { xdid -t treebardialog 6 Messaggi | xdid -T treebardialog 6 Imposta il colore del Messaggio }
if (%lang == es) { xdid -t treebardialog 6 Mensajes | xdid -T treebardialog 6 Establece el color del Mensaje }
if (%lang == fr) { xdid -t treebardialog 6 Messages | xdid -T treebardialog 6 Définit la couleur du message }
xdid -f treebardialog 6 %quality %chars %xdim %xcar
xdid -m treebardialog 6 1
/xdid -C treebardialog 6 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 6 -mnswyz
xdid -s treebardialog 6 +c 100
xdid -c treebardialog 6 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 6 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 6 +n %treemess
xdid -c treebardialog 6 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
if (%cur_x == ON) /xdid -J treebardialog 6 +f %butt
}
}
alias hottext_color_tree {
if ($xdialog(treebardialog, 7).isid == $true) /xdialog -d treebardialog 7
if ($xdialog(treebardialog, 7).isid != $true) {
;// Initialising control: Messages Colors (Button 7)
xdialog -c treebardialog 7 button 2 280 200 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 7 Hot Text | xdid -T treebardialog 7 Set Hot Text Color }
if (%lang == it) { xdid -t treebardialog 7 Evidenziato | xdid -T treebardialog 7 Imposta il colore in Evidenza }
if (%lang == es) { xdid -t treebardialog 7 punto Culminante | xdid -T treebardialog 7 Ajuste el color a ver }
if (%lang == fr) { xdid -t treebardialog 7 Surligner | xdid -T treebardialog 7 Réglez la couleur à Lire }
xdid -f treebardialog 7 %quality %chars %xdim %xcar
xdid -m treebardialog 7 1
/xdid -C treebardialog 7 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 7 -mnswyz
xdid -s treebardialog 7 +c 100
xdid -c treebardialog 7 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 7 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 7 +n %treeh
xdid -c treebardialog 7 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
if (%cur_x == ON) /xdid -J treebardialog 7 +f %butt
}
}
;// quick-access menu item
menu status,channel {
treebar: { treebardialog }
-
}