This code uses the dcx.dll. It allows you to attach images to your desktop, animated images, web controls without a frame. With this method it is possible to animate your controls using transparent dialogs that display the animated drawing or text directly overlay the applications running on the desktop, making it visible in the foreground.
Overlap several controls, dialogs or window styles to get different colored shapes and styles of the dialog box.
In essence, are the effects of transparency of the dialogs and controls used in Windows 10
Tables Script Pre Alpha 1.A ~ Under construction - Treebar & Xpopup - for Windows 7|8|10 - Test version
https://mirc.vxd.mobi/tables.html
Several examples:
https://www.youtube.com/watch?v=UvizaW9_Ai0
https://www.youtube.com/watch?v=ktIraJENiSc
https://www.youtube.com/watch?v=BbDiZkEZEj8
http://vxd.altervista.org/vxd/tables.html
https://www.youtube.com/watch?v=iIVDExxElys
;=============================================================================================;
; tables test video transparent web control | VxÐ ~ https://mirc.vxd.mobi/VxD.htm | ✟NeCRoNoMiCoN✞ $¢®iþ† ~ www.vxd.mobi ;
;=============================================================================================;
; video on channel or status
alias videox {
dialog -ma videox videox_table
}
dialog videox_table {
title "videox"
size -1 -1 500 500
}
on *:dialog:videox:*:*: {
if ($devent == init) {
dcx Mark $dname videox_cb
xdialog -b $dname -vxztwymn
xdialog -V $dname -1 -1 500 500
xdialog -t $dname transparentcolor none
xdialog -t $dname alpha %chiaro
xdialog -g $dname +b none
xdialog -T $dname +bp
xdialog -q $dname +f %cursore
!if (!$dcx(IsUsingDirectX)) {
echo -a DirectX Is Disabled.
halt
}
;// Call initilisation alias
videox_init_dcx
}
}
alias -l videox_init_dcx {
video_x
}
;// Callback alias for videox
alias videox_cb {
if ($2 != mouse) {
echo $color(info) -s */ videox_cb: $1-
}
if ($2 == mouseenter) { xdialog -b videox +vxztwymn }
if ($2 == mouseleave) { .timer 1 0 flash_vx }
}
;// quick-access menu item
menu status,channel {
videox : { videox }
}
on *:Text:test:#: { videox }
alias flash_vz {
xdialog -b videox +xztwymn
xdialog -V videox -1 -1 500 500
xdialog -t videox transparentcolor $rgb(255,255,255)
xdialog -t videox alpha 150
xdialog -g videox +b $rgb(255,255,255)
}
alias flash_vx {
xdialog -b videox -vxztwymn
xdialog -V videox -1 -1 500 500
xdialog -t videox transparentcolor none
xdialog -t videox alpha 150
xdialog -g videox +b none
}
alias video_x {
if ($xdialog(videox, 1).isid == $true) { /xdialog -d videox 1 }
if ($xdialog(videox, 2).isid == $true) { /xdialog -d videox 2 }
if ($xdialog(videox, 8012).isid == $true) { /xdialog -d videox 8012 }
;// Initialising control: (Image 1)
xdialog -c videox 1 image 0 0 640 480 tabstop transparent notheme bitmap alpha
// Initialising control: (WebControl 8012)
xdialog -c videox 8012 webctrl 0 0 640 480 tabstop transparent notheme bitmap alpha
xdid -n videox 8012 %link6
;// Initialising control: (Image 2)
xdialog -c videox 2 image 0 0 640 480 tabstop transparent notheme bitmap alpha
.timer 1 0 /xdid -C videox 1 +bk $rgb(0,0,0)
}
;=============================================================================================;
; tables test anim transparent web control | VxÐ ~ https://mirc.vxd.mobi/VxD.htm | ✟NeCRoNoMiCoN✞ $¢®iþ† ~ www.vxd.mobi ;
;=============================================================================================;
alias table {
if ($dialog(table) == $null) {
/dialog -ma table table_table
}
}
dialog table_table {
title Tables
size 500 500 512 512
icon %icodialog, 0
}
on *:dialog:table:*:*: {
if ($devent == init) {
dcx Mark $dname table_cb
/xdialog -b $dname -vxztwymn
/xdialog -V $dname 500 500 512 512
/xdialog -t $dname transparentcolor none
/xdialog -t $dname alpha 200
/xdialog -T $dname +bp
/xdialog -q $dname +f %cursor
/xdialog -a $dname +nubs 100
if (%xd == OFF) /xdialog -g table +b none
if (%xd == ON) /xdialog -g table +ic image\null.gif
/xdialog -q $dname +f %cursor
if ($isfile(%icon)) /xdialog -w $dname + 0 %icon
;// Call initilisation alias
table_init_dcx
}
}
alias -l table_init_dcx {
regolare
}
;// Callback alias for table
alias table_cb {
if ($2 == close) { }
if ($2 == sclick) {
if ($3 == 8011) { /xdialog -x table }
}
}
alias eventi { .table | .timer 1 0 .hide_x | .timer 2 0 .show_x }
alias hide_x { /xdialog -h table }
alias show_x { xdialog -b table -vxztwymn | xdialog -s table }
alias regolare {
if ($xdialog(table, 8011).isid != $true) {
;// Initialising control: borderflash (Text 8011)
xdialog -c table 8011 text -1 -1 320 320 tabstop transparent center tooltips
/xdid -s table 8011 +c 20
xdid -t table 8011 Tables SCRIPT
if (%tooltipx == ON) xdid -T table 8011 Click HERE & good luck!! ✟
xdid -f table 8011 +b ANSI 10 Arial
xdid -C table 8011 +t none
xdid -J table 8011 +f %cursor
}
if ($xdialog(table, 8012).isid != $true) && ($xdialog(table, 8013).isid != $true) {
;// Initialising control: (WebControl 8012)
xdialog -c table 8012 webctrl -1 -1 320 320 tabstop transparent notheme bitmap shadow
/xdid -s table 8012 +c 20
xdid -n table 8012 %animlink
xdid -J table 8012 +f %cursor
;// Initialising control: (Image 8013)
xdialog -c table 8013 image -1 -1 320 320 tabstop transparent notheme bitmap
/xdid -i table 8013 +abh themes/images/null.gif
/xdid -S table 8013 1
xdid -J table 8013 +f %cursor
}
}
on *:Text:hi:#: { set %animlink http://i662.photobucket.com/albums/uu341/spikeadelika/animated%20gifs/hi.gif | /eventi }
on *:Text:lol:#: { set %animlink http://i662.photobucket.com/albums/uu341/spikeadelika/animated%20gifs/lol.gif | /eventi }
;=============================================================================================;
; tables test anim image .gif .png .bmp - static text | VxÐ ~ https://mirc.vxd.mobi/VxD.htm | ✟NeCRoNoMiCoN✞ $¢®iþ† ~ www.vxd.mobi ;
;=============================================================================================;
alias emo {
dialog -ma emo emo_table
}
dialog emo_table {
title "emo"
size -1 -1 364 364
}
on *:dialog:emo:*:*: {
if ($devent == init) {
dcx Mark $dname emo_cb
xdialog -b $dname %stink
/xdialog -E $dname +c -defhmstCM
xdialog -V $dname -1 -1 364 364
xdialog -t $dname transparentcolor 0
xdialog -t $dname alpha 180
xdialog -g $dname +b $rgb(0,0,0)
xdialog -T $dname +bp
/xdialog -t $dname bgcolor $rgb(0,0,0)
/xdialog -q $dname +f themes\cursor\2.cur
!if (!$dcx(IsUsingDirectX)) {
echo -a DirectX Is Disabled.
halt
}
;// Call initilisation alias
emo_init_dcx
}
}
alias -l emo_init_dcx {
%control
;// Initialising control: (Image 1)
; .timer 1 0 xdialog -c emo 1 image -1 -1 364 364 tabstop transparent notheme bitmap
}
;// Callback alias for emo
alias emo_cb {
if ($2 != mouse) {
echo $color(info) -s */ emo_cb: $1-
}
if ($2 == close) { }
if ($2 == sclick) {
if ($3 == 2) { /xdialog -x emo }
if ($3 == 3) { /xdialog -x emo }
if ($3 == 6) { /xdialog -x emo }
if ($3 == 30) { /xdialog -x emo }
}
if ($2 == mouseenter) { }
if ($2 == mouseleave) { }
}
;// quick-access menu item
menu status,channel {
Stile2
.Aero: { .set %stink +mnsyz | xdialog -b emo +mnsyz }
.Transparent: { .set %stink -vxztwymn | xdialog -b emo -vxztwymn }
-
control text On Connect : { /set %control control2 | emo }
-
control anim
.Aero: { .set %stink +mnsyz | xdialog -b emo +mnsyz | .timer 1 0 /xdid -C emo 1 +bk none }
.Transparent: { .set %stink -vxztwymn | xdialog -b emo -vxztwymn | .timer 1 0 /xdid -C emo 1 +bk none }
.-
.anim 1 : { /set %control control1 | emo | animx | .timer 1 0 /xdid -C emo 1 +bk none }
.anim 2 : { /set %control control1 | emo | animx1 | .timer 1 0 /xdid -C emo 1 +bk none }
.anim 3 : { /set %control control1 | emo | animx2 | .timer 1 0 /xdid -C emo 1 +bk none }
.anim 4 : { /set %control control1 | emo | animx3 | .timer 1 0 /xdid -C emo 1 +bk none }
-
control image : { /set %control imma1 | emo }
}
alias control1 {
// Initialising control: (WebControl 6)
xdialog -c emo 6 webctrl -1 -1 364 364 tabstop transparent notheme bitmap shadow
}
alias control2 {
/xdialog -S emo -1 -1 600 100
xdialog -V emo -1 -1 600 100
;// Initialising control: BackGround (Text 2)
xdialog -c emo 2 text 0 0 364 364 tabstop default group notheme tooltips transparent shadow
xdid -t emo 2 %titlex ∲ Connecting to $network - $server
xdid -T emo 2 %titlex ∲ Connecting to $network - $server
xdid -f emo 2 +b ANSI 10 Arial
xdid -C emo 2 +b $rgb(5,5,5)
xdid -C emo 2 +k $rgb(80,0,0)
xdid -C emo 2 +t $rgb(255,0,0)
xdid -J emo 2 +f themes\cursor\1.cur
}
alias animx {
xdid -n emo 6 $mircdirthemes\images\7.gif
/xdid -C emo 6 +bk $rgb(255,0,0)
/xdid -R emo 6 +b 1
/xdid -R emo 6 +fR TRANSPARENT_COLOR $mircdirthemes\images\7.gif
/xdid -x emo 6 -wbcdfs
}
alias animx1 {
xdid -n emo 6 $mircdirthemes\images\7.gif
/xdid -R emo 6 +f TRANSPARENT_COLOR $mircdirthemes\images\1.gif
}
alias animx2 {
xdid -n emo 6 $mircdirthemes\images\2.gif
}
alias animx3 {
xdid -n emo 6 $mircdirthemes\images\2.gif
/xdid -R emo 6 +fR TRANSPARENT_COLOR $mircdirthemes\images\2.gif
}
alias animx4 {
xdid -n emo 6 $mircdirthemes\images\7.gif
}
alias imma1 {
// Initialising control: (Image 1)
xdialog -c emo 3 image -1 -1 364 364 tabstop transparent notheme bitmap alpha
/xdid -S emo 3 1
/xdid -k emo 3 0
/xdid -i emo 3 +abh $shortfn(themes\images\1.png)
}
on *:Text:test:#: { /set %anima animix | /set %control control1 | emo }
on *:Text:test2:#: { /set %control imma1 | emo }
TREEBAR
; Incomplete code ... by example for the style that is used by Windows 10
on *:start: {
if ($isfile(mirc.chw)) .remove mirc.chw
if (%treex == ON) .timer 1 0 dcxtreebar
}
;====================================================================================================================================================================================;
; treebarinfo | Talon http://forums.mirc.com/ubbthreads.php/topics/251981/Re:_Treebar_position ;
;====================================================================================================================================================================================;
alias treebarinfo {
var %menu = $menubar , %tree = $treebar , %tool = $toolbar
if (%menu) .menubar off
if (%tool) .toolbar off
if (!%tree) .treebar on
var %tree.bw = $window(-2).w - $window(-2).dw , %tree.bh = $window(-2).h - $window(-2).dh
var %tree.w = $window(-2).dw - $window(-3).w , %tree.h = $window(-2).dh - $window(-3).h
var %tree.x = $window(-3).x - $window(-2).x , %tree.y = $window(-3).y - $window(-2).y
var %orientation = $iif(!%tree.w,horizontal,$iif(!%tree.h,vertical))
if (%orientation == horizontal) { /set %position $iif(%tree.y > %tree.bh,top,bottom) }
else { /set %position $iif(%tree.x > %tree.bw,left,right) }
if (%menu) .menubar on
if (%tool) .toolbar on
if (!%tree) .treebar off
return %orientation %position
; //echo -a $treebarinfo
}
;====================================================================================================================================================================================;
; 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 + dialogs settings | VxD ~ caronte.ade@gmail.com ~ www.vxd.mobi ~ https://mirc.vxd.mobi/VxD.htm ;
;===================================================================================================================================================;
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 {
treebarinfo
/showmirc -x
if (%position == left) {
/set %pos_or -500
/set %pos_vr -100
/set %pos_lr 320
/set %pos_lu 1080
}
if (%position == right) {
/set %pos_or 1920
/set %pos_vr -100
/set %pos_lr 320
/set %pos_lu 1080
}
if (%position == top) {
/set %pos_or -100
/set %pos_vr -100
/set %pos_lr 1920
/set %pos_lu 400
}
if (%position == bottom) {
/set %pos_or -100
/set %pos_vr 1600
/set %pos_lr 1920
/set %pos_lu 400
}
dialog -ma treebardialog treebardialog_table
/xdialog -b treebardialog -hmnsvxzo
/xdialog -R treebardialog +s $dcx(GetSystemColor, COLOR_WINDOW)
if (%position == left) { cla_tree_lr }
if (%position == right) { cla_tree_lr }
if (%position == top) { cla_tree_tb }
if (%position == bottom) { cla_tree_tb }
.timer 1 0 xdialog -l treebardialog update
}
dialog treebardialog_table {
title "treebardialog"
size %pos_or %pos_vr %pos_lr %pos_lu
}
on *:dialog:treebardialog:*:*: {
if ($devent == init) {
/dcx Mark $dname treebardialog_cb
/xdialog -V $dname %pos_or %pos_vr %pos_lr %pos_lu
/xdialog -t $dname transparentcolor none
/xdialog -t $dname alpha none
/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 {
/xdialog -E treebardialog +e -h
if (%position == left) { /xdialog -a $dname +so 100 }
if (%position == right) { /xdialog -a $dname +sn 100 }
if (%position == top) { /xdialog -a $dname +sv 100 }
if (%position == bottom) { /xdialog -a $dname +su 100 }
.timer 1 0 /xdock -b $dialog(treebardialog).hwnd +s
refresh_tree_controls
}
;// Callback alias for treebardialog
alias treebardialog_cb {
if ($2 != mouse) { echo $color(info) -s */ treebardialog_cb: $1- }
if ($2 == keyup) {
if ($3 == 3) { /set %xchartree $xdid($1,3).text | .timer 1 0 ref_text | .timer 1 0 ref_char }
elseif ($3 == 4) { /set %xcartree $xdid($1,4).text | .timer 1 0 ref_text | .timer 1 0 ref_char }
}
if ($2 == keydown) {
if ($3 == 3) { if ($xdialog(treebardialog).key & 13) /set %xchartree $xdid($1,3).text | .timer 1 0 ref_text | .timer 1 0 ref_char }
elseif ($3 == 4) { if ($xdialog(treebardialog).key & 13) /set %xcartree $xdid($1,4).text | .timer 1 0 ref_text | .timer 1 0 ref_char }
elseif ($3 == 5) { if ($xdid(treebardialog, 5).caretpos == 1 2) /set %xdimtree $xdid($1,5).text | .timer 1 0 ref_text | .timer 1 0 ref_char }
}
if ($2 == sclick) {
if ($3 == 1) { .run charmap.exe }
elseif ($3 == 2) { if ($dialog(char_set) != $null) xdialog -x char_set | /xdialog -h treebardialog | /xdialog -x treebardialog | .timer -m 1 100 /xdock -R 0 | .timer -m 1 200 /xdock -R 1 | .timer 1 0 dcxtreebar }
elseif ($3 == 3) { .timer 1 0 xdid -r treebardialog 3 }
elseif ($3 == 4) { .timer 1 0 xdid -r treebardialog 4 }
elseif ($3 == 5) { .timer 1 0 xdid -r treebardialog 5 }
elseif ($3 == 6) { char_set }
elseif ($3 == 7) { }
elseif ($3 == 8) { }
elseif ($3 == 9) { /set %textmode +a | xdid -c treebardialog 9 | xdid -u treebardialog 10 | xdid -u treebardialog 11 | ref_text | ref_char }
elseif ($3 == 10) { /set %textmode +i | xdid -c treebardialog 10 | xdid -u treebardialog 9 | xdid -u treebardialog 11 | ref_text | ref_char }
elseif ($3 == 11) { if (%textmode == +i) /set %textmode +bi | if (%textmode == +a) /set %textmode +ba | xdid -c treebardialog 11 | xdid -u treebardialog 10 | xdid -u treebardialog 9 | ref_text | ref_char }
elseif ($3 == 12) { /set %treebarbg $dll(dlls\color.dll,Color,.) | background_color_tree | refresh_dialog_tree }
elseif ($3 == 13) { /set %treetext $dll(dlls\color.dll,Color,.) | text_color_tree | refresh_dialog_tree }
elseif ($3 == 14) { /set %treeline $dll(dlls\color.dll,Color,.) | line_color_tree | refresh_dialog_tree }
elseif ($3 == 15) { /set %treetextsb $dll(dlls\color.dll,Color,.) | selected_color_tree | refresh_dialog_tree }
elseif ($3 == 16) { /set %messagebg $dll(dlls\color.dll,Color,.) | messagebg_color_tree | refresh_dialog_tree }
elseif ($3 == 17) { /set %treemess $dll(dlls\color.dll,Color,.) | messages_color_tree | refresh_dialog_tree }
elseif ($3 == 18) { /set %treeh $dll(dlls\color.dll,Color,.) | hottext_color_tree | refresh_dialog_tree }
elseif ($3 == 19) { /set %treevent $dll(dlls\color.dll,Color,.) | event_color_tree | refresh_dialog_tree }
elseif ($3 == 20) { /set %treetextevo $dll(dlls\color.dll,Color,.) | eventBG_color_tree | refresh_dialog_tree }
elseif ($3 == 21) { /set %treehot $dll(dlls\color.dll,Color,.) | hot_color_tree | refresh_dialog_tree }
elseif ($3 == 22) { .set %icostatus $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | icostatus_tree | refresh_dialog_tree }
elseif ($3 == 23) { .set %icocust $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | icocust_tree | refresh_dialog_tree }
elseif ($3 == 24) { .set %iconot $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | iconot_tree | refresh_dialog_tree }
elseif ($3 == 25) { .set %icoq $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | icoq_tree | refresh_dialog_tree }
elseif ($3 == 26) { .set %icochan $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | icochan_tree | refresh_dialog_tree }
elseif ($3 == 27) { .set %icosend $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | icosend_tree | refresh_dialog_tree }
elseif ($3 == 28) { .set %icoget $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | icoget_tree | refresh_dialog_tree }
elseif ($3 == 29) { .set %icodir $shortfn($sfile(themes\ico\*.ico,Choose image format .ico,Ok)) | icodir_tree | refresh_dialog_tree }
}
if ($2 == mouseenter) { }
if ($2 == mouseleave) { }
}
/cb_treebardialog treebardialog return 3
/cb_treebardialog treebardialog return 4
/cb_treebardialog treebardialog return 5
/cb_treebardialog treebardialog edit 3
/cb_treebardialog treebardialog edit 4
/cb_treebardialog treebardialog edit 5
/cb_treebardialog treebardialog keydown 3 13
/cb_treebardialog treebardialog keydown 4 13
/cb_treebardialog treebardialog keydown 5 13
/cb_treebardialog treebardialog copy 3
/cb_treebardialog treebardialog copy 4
/cb_treebardialog treebardialog copy 5
/cb_treebardialog treebardialog cut 3
/cb_treebardialog treebardialog cut 4
/cb_treebardialog treebardialog cut 5
alias refresh_dialog_tree {
if (%position == left) { cla_tree_lr }
if (%position == right) { cla_tree_lr }
if (%position == top) { cla_tree_tb }
if (%position == bottom) { cla_tree_tb }
.timer -m 1 1 xdialog -l treebardialog update
.timer -m 1 1 dcxtreebar
}
alias refresh_tree_controls {
tree_map
tree_close
xchar_tree
charset_tree
size_font_tree
chars_prev
fonts_prev
size_prev
mode_aliased_tree
mode_norm_tree
mode_bold_tree
background_color_tree
text_color_tree
line_color_tree
selected_color_tree
messagebg_color_tree
messages_color_tree
hottext_color_tree
event_color_tree
eventBG_color_tree
hot_color_tree
icostatus_tree
icocust_tree
iconot_tree
icoq_tree
icochan_tree
icosend_tree
icoget_tree
icodir_tree
refresh_dialog_tree
}
alias ref_char {
if ($dialog(char_set) != $null) {
xdid -f char_set 1 %textmode ansi %xdimtree %xcartree
xdid -f char_set 2 %textmode baltic %xdimtree %xcartree
xdid -f char_set 3 %textmode chinesebig %xdimtree %xcartree
xdid -f char_set 4 %textmode default %xdimtree %xcartree
xdid -f char_set 5 %textmode easteurope %xdimtree %xcartree
xdid -f char_set 6 %textmode gb2312 %xdimtree %xcartree
xdid -f char_set 7 %textmode greek %xdimtree %xcartree
xdid -f char_set 8 %textmode hangul %xdimtree %xcartree
xdid -f char_set 9 %textmode mac %xdimtree %xcartree
xdid -f char_set 10 %textmode oem %xdimtree %xcartree
xdid -f char_set 11 %textmode russian %xdimtree %xcartree
xdid -f char_set 12 %textmode shiftjis %xdimtree %xcartree
xdid -f char_set 13 %textmode symbol %xdimtree %xcartree
xdid -f char_set 14 %textmode turkish %xdimtree %xcartree
xdid -f char_set 15 %textmode vietnamese %xdimtree %xcartree
xdid -f char_set 16 %textmode italic %xdimtree %xcartree
.timer -m 1 1 xdialog -l char_set update
}
}
alias ref_text {
xdid -f treebardialog 1 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 2 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 3 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 4 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 5 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 6 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 7 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 8 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 9 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 10 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 11 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 12 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 13 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 14 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 15 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 16 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 17 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 18 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 19 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 20 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 21 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 22 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 23 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 24 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 25 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 26 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 27 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 28 %textmode %xchartree %xdimtree %xcartree
xdid -f treebardialog 29 %textmode %xchartree %xdimtree %xcartree
.timer -m 1 1 dcxtreebar
.timer -m 1 1 xdialog -l treebardialog update
}
alias tree_map {
if ($xdialog(treebardialog, 1).isid == $true) { /xdid -h treebardialog 1 +c 5 | /xdialog -d treebardialog 1 }
;// Initialising control: mapchars (Button 1)
if ($xdialog(treebardialog, 1).isid != $true) {
if (%position == top) /xdialog -c treebardialog 1 button 80 2 200 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == bottom) /xdialog -c treebardialog 1 button 80 2 200 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == left) /xdialog -c treebardialog 1 button 80 2 200 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == right) /xdialog -c treebardialog 1 button 80 2 200 36 tabstop default group tooltips bitmap shadow notheme transparent right
/xdid -s treebardialog 1 +c 10
if (%lang == en) { xdid -t treebardialog 1 Map Chars | xdid -T treebardialog 1 Map Chars }
if (%lang == it) { xdid -t treebardialog 1 Mappa Caratteri | xdid -T treebardialog 1 Mappa Caratteri }
if (%lang == es) { xdid -t treebardialog 1 Mapa de Caracteres | xdid -T treebardialog 1 Mapa de Caracteres }
if (%lang == fr) { xdid -t treebardialog 1 Table des caractères | xdid -T treebardialog 1 Table des caractères }
xdid -f treebardialog 1 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 1 1
xdid -l treebardialog 1 %icosize
xdid -x treebardialog 1 -hmnsvxzo
xdid -s treebardialog 1 +c 5
xdid -w treebardialog 1 +ng 0 themes\icons\font.ico
xdid -w treebardialog 1 +hd 0 themes\icons\font.ico
if (%cur_x == ON) /xdid -J treebardialog 1 +f %butt
/xdid -C treebardialog 1 +b $dcx(GetSystemColor, COLOR_WINDOW)
}
}
alias tree_close {
if ($xdialog(treebardialog, 2).isid == $true) { /xdid -h treebardialog 2 +c 5 | /xdialog -d treebardialog 2 }
;// Initialising control: close (Button 2)
if ($xdialog(treebardialog, 2).isid != $true) {
if (%position == top) /xdialog -c treebardialog 2 button 2 2 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == bottom) /xdialog -c treebardialog 2 button 2 2 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == left) /xdialog -c treebardialog 2 button 2 2 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == right) /xdialog -c treebardialog 2 button 2 2 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
/xdid -s treebardialog 2 +c 10
if (%lang == en) xdid -T treebardialog 2 Close
if (%lang == it) xdid -T treebardialog 2 Chiudi
if (%lang == es) xdid -T treebardialog 2 Cerrar
if (%lang == fr) xdid -T treebardialog 2 Fermer
xdid -f treebardialog 2 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 2 1
xdid -l treebardialog 2 %icosize
xdid -x treebardialog 2 -hmnsvxzo
xdid -s treebardialog 2 +c 5
xdid -w treebardialog 2 +ng 0 themes\icons\close.ico
xdid -w treebardialog 2 +hd 0 themes\icons\close.ico
if (%cur_x == ON) /xdid -J treebardialog 2 +f %butt
/xdid -C treebardialog 2 +b $dcx(GetSystemColor, COLOR_WINDOW)
}
}
alias xchar_tree {
if ($xdialog(treebardialog, 3).isid == $true) /xdialog -d treebardialog 3
if ($xdialog(treebardialog, 3).isid != $true) {
if (%position == top) xdialog -c treebardialog 3 edit 2 40 250 40 autohs autovs showsel tabstop default group tooltips return
if (%position == bottom) xdialog -c treebardialog 3 edit 2 40 250 40 autohs autovs showsel tabstop default group tooltips return
if (%position == left) xdialog -c treebardialog 3 edit 2 40 250 40 autohs autovs showsel tabstop default group tooltips return
if (%position == right) xdialog -c treebardialog 3 edit 2 40 250 40 autohs autovs showsel tabstop default group tooltips return
xdid -f treebardialog 3 %textmode %xchartree %xdimtree %xcartree
if (%lang == en) { xdid -T treebardialog 3 Can be any of the following: ansi, baltic, chinesebig, default, easteurope, gb2312, greek, hangul, mac, oem, russian, shiftjis, symbol, turkish, vietnamese. - Press ENTER to apply the changes }
if (%lang == it) { xdid -T treebardialog 3 Può essere uno dei seguenti: ansi, baltic, chinesebig, default, easteurope, gb2312, greek, hangul, mac, oem, russian, shiftjis, symbol, turkish, vietnamese. - Premi ENTER per applicare le modifiche }
if (%lang == es) { xdid -T treebardialog 3 Puede ser cualquiera de los siguientes: ansi, baltic, chinesebig, default, easteurope, gb2312, greek, hangul, mac, oem, russian, shiftjis, symbol, turkish, vietnamese. - Pulse ENTER para aplicar los cambios }
if (%lang == fr) { xdid -T treebardialog 3 Peut être une des caractéristiques suivantes: ansi, baltic, chinesebig, default, easteurope, gb2312, greek, hangul, mac, oem, russian, shiftjis, symbol, turkish, vietnamese. - Sur ENTER pour appliquer les modifications }
xdid -C treebardialog 3 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 3 +k $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -C treebardialog 3 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -C treebardialog 3 +g $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 3 +G $dcx(GetSystemColor, COLOR_WINDOW)
/xdid -E treebardialog 3 CharSet $+ %xchartree
if (%cur_x == ON) /xdid -J treebardialog 3 +f %cursore
/xdid -y treebardialog 3 1
}
}
alias charset_tree {
if ($xdialog(treebardialog, 4).isid == $true) /xdialog -d treebardialog 4
if ($xdialog(treebardialog, 4).isid != $true) {
if (%position == top) xdialog -c treebardialog 4 edit 2 80 250 40 autohs autovs showsel tabstop default group tooltips return
if (%position == bottom) xdialog -c treebardialog 4 edit 2 80 250 40 autohs autovs showsel tabstop default group tooltips return
if (%position == left) xdialog -c treebardialog 4 edit 2 80 250 40 autohs autovs showsel tabstop default group tooltips return
if (%position == right) xdialog -c treebardialog 4 edit 2 80 250 40 autohs autovs showsel tabstop default group tooltips return
xdid -f treebardialog 4 %textmode %xchartree %xdimtree %xcartree
if (%lang == en) { xdid -T treebardialog 4 Sets the type of character. Some examples Arial, Sans MS Comics, Thaoma, Verdana, Calibri - Press ENTER to apply the changes }
if (%lang == it) { xdid -T treebardialog 4 Imposta il Tipo di Carattere. Qualche esempio Arial, Sans MS Comics, Thaoma, Verdana, Calibri - Premi ENTER per applicare le modifiche }
if (%lang == es) { xdid -T treebardialog 4 Establece el tipo de carácter. Algunos ejemplos Arial, Sans MS Comics, Thaoma, Verdana, Calibri - Pulse ENTER para aplicar los cambios }
if (%lang == fr) { xdid -T treebardialog 4 Définit le type de caractère. Quelques exemples Arial, Sans MS Comics, Thaoma, Verdana, Calibri - Sur ENTER pour appliquer les modifications }
xdid -C treebardialog 4 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 4 +k $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -C treebardialog 4 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -C treebardialog 4 +g $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 4 +G $dcx(GetSystemColor, COLOR_WINDOW)
/xdid -E treebardialog 4 FontName $+ %xcartree
if (%cur_x == ON) /xdid -J treebardialog 4 +f %cursore
/xdid -y treebardialog 4 1
}
}
alias size_font_tree {
if ($xdialog(treebardialog, 5).isid == $true) /xdialog -d treebardialog 5
if ($xdialog(treebardialog, 5).isid != $true) {
if (%position == left) xdialog -c treebardialog 5 edit 2 120 250 40 autohs autovs showsel tabstop default group tooltips number return
if (%position == right) xdialog -c treebardialog 5 edit 2 120 250 40 autohs autovs showsel tabstop default group tooltips number return
if (%position == top) xdialog -c treebardialog 5 edit 2 120 250 40 autohs autovs showsel tabstop default group tooltips number return
if (%position == bottom) xdialog -c treebardialog 5 edit 2 120 250 40 autohs autovs showsel tabstop default group tooltips number return
xdid -f treebardialog 5 %textmode %xchartree %xdimtree %xcartree
if (%lang == en) { xdid -T treebardialog 5 Sets the size of Character. The minimum numeric value is 10 - Press ENTER to apply the changes }
if (%lang == it) { xdid -T treebardialog 5 Imposta la dimensione del carattere. Il valore minimo numerico è 10 - Premi ENTER per applicare le modifiche }
if (%lang == es) { xdid -T treebardialog 5 Establece el tamaño del personaje. El mínimo valor numérico es 10 - Pulse ENTER para aplicar los cambios }
if (%lang == fr) { xdid -T treebardialog 5 Définit la taille des caractères. La valeur numérique minimale est 10 - Sur ENTER pour appliquer les modifications }
xdid -C treebardialog 5 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 5 +k $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -C treebardialog 5 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -C treebardialog 5 +g $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 5 +G $dcx(GetSystemColor, COLOR_WINDOW)
/xdid -E treebardialog 5 Size $+ %xdimtree
if (%cur_x == ON) /xdid -J treebardialog 5 +f %cursore
/xdid -y treebardialog 5 1
/xdid -q treebardialog 5 2
}
}
;=============================================preview=============================================================;
alias chars_prev {
if ($xdialog(treebardialog, 6).isid == $true) { /xdid -h treebardialog 6 +c 5 | /xdialog -d treebardialog 6 }
;// Initialising control: mapchars (Button 6)
if ($xdialog(treebardialog, 6).isid != $true) {
if (%position == top) /xdialog -c treebardialog 6 button 252 40 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == bottom) /xdialog -c treebardialog 6 button 252 40 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == left) /xdialog -c treebardialog 6 button 252 40 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == right) /xdialog -c treebardialog 6 button 252 40 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
/xdid -s treebardialog 6 +c 10
if (%lang == en) { xdid -t treebardialog 6 Map Chars | xdid -T treebardialog 6 CharSet }
if (%lang == it) { xdid -t treebardialog 6 Mappa Caratteri | xdid -T treebardialog 6 CharSet }
if (%lang == es) { xdid -t treebardialog 6 Mapa de Caracteres | xdid -T treebardialog 6 CharSet }
if (%lang == fr) { xdid -t treebardialog 6 Table des caractères | xdid -T treebardialog 6 CharSet }
xdid -f treebardialog 6 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 6 1
xdid -l treebardialog 6 %icosize
xdid -x treebardialog 6 -hmnsvxzo
xdid -s treebardialog 6 +c 5
xdid -w treebardialog 6 +ng 0 themes\icons\map.ico
xdid -w treebardialog 6 +hd 0 themes\icons\map.ico
if (%cur_x == ON) /xdid -J treebardialog 6 +f %butt
/xdid -C treebardialog 6 +b $dcx(GetSystemColor, COLOR_WINDOW)
}
}
alias fonts_prev {
if ($xdialog(treebardialog, 7).isid == $true) { /xdid -h treebardialog 7 +c 5 | /xdialog -d treebardialog 7 }
;// Initialising control: mapchars (Button 7)
if ($xdialog(treebardialog, 7).isid != $true) {
if (%position == top) /xdialog -c treebardialog 7 button 252 80 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == bottom) /xdialog -c treebardialog 7 button 252 80 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == left) /xdialog -c treebardialog 7 button 252 80 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == right) /xdialog -c treebardialog 7 button 252 80 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
/xdid -s treebardialog 7 +c 10
if (%lang == en) { xdid -T treebardialog 7 Sets the type of character. Some examples Arial, Sans MS Comics, Thaoma, Verdana, Calibri }
if (%lang == it) { xdid -T treebardialog 7 Imposta il Tipo di Carattere. Qualche esempio Arial, Sans MS Comics, Thaoma, Verdana, Calibri }
if (%lang == es) { xdid -T treebardialog 7 Establece el tipo de carácter. Algunos ejemplos Arial, Sans MS Comics, Thaoma, Verdana, Calibri }
if (%lang == fr) { xdid -T treebardialog 7 Définit le type de caractère. Quelques exemples Arial, Sans MS Comics, Thaoma, Verdana, Calibri }
xdid -f treebardialog 7 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 7 1
xdid -l treebardialog 7 %icosize
xdid -x treebardialog 7 -hmnsvxzo
xdid -s treebardialog 7 +c 5
xdid -w treebardialog 7 +ng 0 themes\icons\fonts.ico
xdid -w treebardialog 7 +hd 0 themes\icons\fonts.ico
if (%cur_x == ON) /xdid -J treebardialog 7 +f %butt
/xdid -C treebardialog 7 +b $dcx(GetSystemColor, COLOR_WINDOW)
}
}
alias size_prev {
if ($xdialog(treebardialog, 8).isid == $true) { /xdid -h treebardialog 8 +c 5 | /xdialog -d treebardialog 8 }
;// Initialising control: mapchars (Button 8)
if ($xdialog(treebardialog, 8).isid != $true) {
if (%position == top) /xdialog -c treebardialog 8 button 252 120 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == bottom) /xdialog -c treebardialog 8 button 252 120 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == left) /xdialog -c treebardialog 8 button 252 120 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
if (%position == right) /xdialog -c treebardialog 8 button 252 120 36 36 tabstop default group tooltips bitmap shadow notheme transparent right
/xdid -s treebardialog 8 +c 10
if (%lang == en) { xdid -T treebardialog 8 Sets the size of Character. }
if (%lang == it) { xdid -T treebardialog 8 Imposta la dimensione del carattere. }
if (%lang == es) { xdid -T treebardialog 8 Establece el tamaño del personaje. }
if (%lang == fr) { xdid -T treebardialog 8 Définit la taille des caractères. }
xdid -f treebardialog 8 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 8 1
xdid -l treebardialog 8 %icosize
xdid -x treebardialog 8 -hmnsvxzo
xdid -s treebardialog 8 +c 5
xdid -w treebardialog 8 +ng 0 themes\icons\size.ico
xdid -w treebardialog 8 +hd 0 themes\icons\size.ico
if (%cur_x == ON) /xdid -J treebardialog 8 +f %butt
/xdid -C treebardialog 8 +b $dcx(GetSystemColor, COLOR_WINDOW)
}
}
;==========================================================================================================;
alias mode_aliased_tree {
if ($xdialog(treebardialog, 9).isid == $true) /xdialog -d treebardialog 9
if ($xdialog(treebardialog, 9).isid != $true) {
;// Initialising control: anti-aliased (Check 9)
if (%position == top) xdialog -c treebardialog 9 check 2 160 90 40 tabstop default notheme
if (%position == bottom) xdialog -c treebardialog 9 check 2 160 90 40 tabstop default notheme
if (%position == left) xdialog -c treebardialog 9 check 2 160 90 40 tabstop default notheme
if (%position == right) xdialog -c treebardialog 9 check 2 160 90 40 tabstop default notheme
if (%lang == en) { xdid -t treebardialog 9 Aliased | xdid -T treebardialog 9 Sets the anti-aliased character }
if (%lang == it) { xdid -t treebardialog 9 Aliased | xdid -T treebardialog 9 Imposta il carattere anti-Aliased }
if (%lang == es) { xdid -t treebardialog 9 Aliased | xdid -T treebardialog 9 Establece el carácter anti-Aliased }
if (%lang == fr) { xdid -t treebardialog 9 Aliased | xdid -T treebardialog 9 Définit le caractère anti-Aliased }
xdid -C treebardialog 9 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 9 +k $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -C treebardialog 9 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -f treebardialog 9 +a %xchartree %xdimtree %xcartree
if (%textmode == +a) /xdid -c treebardialog 9
if (%textmode != +a) /xdid -u treebardialog 9
}
}
alias mode_norm_tree {
if ($xdialog(treebardialog, 10).isid == $true) /xdialog -d treebardialog 10
if ($xdialog(treebardialog, 10).isid != $true) {
;// Initialising control: Italics (Check 10)
if (%position == top) xdialog -c treebardialog 10 check 100 160 90 40 tabstop default notheme
if (%position == bottom) xdialog -c treebardialog 10 check 100 160 90 40 tabstop default notheme
if (%position == left) xdialog -c treebardialog 10 check 100 160 90 40 tabstop default notheme
if (%position == right) xdialog -c treebardialog 10 check 100 160 90 40 tabstop default notheme
if (%lang == en) { xdid -t treebardialog 10 Italics | xdid -T treebardialog 10 Sets the Italics character }
if (%lang == it) { xdid -t treebardialog 10 Italics | xdid -T treebardialog 10 Imposta il carattere Italics }
if (%lang == es) { xdid -t treebardialog 10 Italics | xdid -T treebardialog 10 Establece el carácter Italics }
if (%lang == fr) { xdid -t treebardialog 10 Italics | xdid -T treebardialog 10 Définit le caractère Italics }
xdid -C treebardialog 10 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 10 +k $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -C treebardialog 10 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -f treebardialog 10 +i %xchartree %xdimtree %xcartree
if (%textmode == +i) /xdid -c treebardialog 10
if (%textmode != +i) /xdid -u treebardialog 10
}
}
alias mode_bold_tree {
if ($xdialog(treebardialog, 11).isid == $true) /xdialog -d treebardialog 11
if ($xdialog(treebardialog, 11).isid != $true) {
;// Initialising control: Bold (Check 11)
if (%position == top) xdialog -c treebardialog 11 check 200 160 90 40 tabstop default notheme
if (%position == bottom) xdialog -c treebardialog 11 check 200 160 90 40 tabstop default notheme
if (%position == left) xdialog -c treebardialog 11 check 200 160 90 40 tabstop default notheme
if (%position == right) xdialog -c treebardialog 11 check 200 160 90 40 tabstop default notheme
if (%lang == en) { xdid -t treebardialog 11 Bold | xdid -T treebardialog 11 Sets the Bold character }
if (%lang == it) { xdid -t treebardialog 11 Maiuscolo | xdid -T treebardialog 11 Imposta il carattere maiuscolo }
if (%lang == es) { xdid -t treebardialog 11 Mayúsculas | xdid -T treebardialog 11 Establece el carácter Mayúsculas }
if (%lang == fr) { xdid -t treebardialog 11 Majuscule | xdid -T treebardialog 11 Définit le caractère Majuscule }
xdid -C treebardialog 11 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C treebardialog 11 +k $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -C treebardialog 11 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%textmode == +bi) /xdid -c treebardialog 11
if (%textmode == +ba) /xdid -c treebardialog 11
xdid -f treebardialog 11 +b %xchartree %xdimtree %xcartree
}
}
alias background_color_tree {
if ($xdialog(treebardialog, 12).isid == $true) /xdialog -d treebardialog 12
if ($xdialog(treebardialog, 12).isid != $true) {
;// Initialising control: BG (Button 12)
if (%position == top) xdialog -c treebardialog 12 button 300 2 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 12 button 300 2 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 12 button 2 200 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 12 button 2 200 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 12 ██ BackGround | xdid -T treebardialog 12 Back Ground Color }
if (%lang == it) { xdid -t treebardialog 12 ██ colore di Fondo | xdid -T treebardialog 12 Colore di Fondo }
if (%lang == es) { xdid -t treebardialog 12 ██ color de Fondo | xdid -T treebardialog 12 Color de Fondo }
if (%lang == fr) { xdid -t treebardialog 12 ██ couleur de Fond | xdid -T treebardialog 12 Couleur de Fond }
xdid -f treebardialog 12 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 12 1
xdid -C treebardialog 12 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 12 -hmnsvxzo
xdid -s treebardialog 12 +c 10
xdid -c treebardialog 12 +h %treebarbg
xdid -c treebardialog 12 +d %treebarbg
xdid -c treebardialog 12 +n %treebarbg
xdid -c treebardialog 12 +s %treebarbg
if (%cur_x == ON) xdid -J treebardialog 12 +f %butt
}
}
alias text_color_tree {
if ($xdialog(treebardialog, 13).isid == $true) /xdialog -d treebardialog 13
if ($xdialog(treebardialog, 13).isid != $true) {
;// Initialising control: Text color (Button 13)
if (%position == top) xdialog -c treebardialog 13 button 300 50 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 13 button 300 50 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 13 button 2 240 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 13 button 2 240 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 13 ██ Text | xdid -T treebardialog 13 Set Text Color }
if (%lang == it) { xdid -t treebardialog 13 ██ Testo | xdid -T treebardialog 13 Imposta il colore del testo }
if (%lang == es) { xdid -t treebardialog 13 ██ Texto | xdid -T treebardialog 13 Ajuste el color de texto }
if (%lang == fr) { xdid -t treebardialog 13 ██ Texte | xdid -T treebardialog 13 Régler la couleur du texte }
xdid -f treebardialog 13 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 13 1
xdid -C treebardialog 13 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 13 -hmnsvxzo
xdid -s treebardialog 13 +c 10
xdid -c treebardialog 13 +h %treetext
xdid -c treebardialog 13 +d %treetext
xdid -c treebardialog 13 +n %treetext
xdid -c treebardialog 13 +s %treetext
if (%cur_x == ON) /xdid -J treebardialog 13 +f %butt
}
}
alias line_color_tree {
if ($xdialog(treebardialog, 14).isid == $true) /xdialog -d treebardialog 14
if ($xdialog(treebardialog, 14).isid != $true) {
;// Initialising control: Line color (Button 14)
if (%position == top) xdialog -c treebardialog 14 button 300 100 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 14 button 300 100 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 14 button 2 280 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 14 button 2 280 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 14 ██ Line | xdid -T treebardialog 14 Set Line Color }
if (%lang == it) { xdid -t treebardialog 14 ██ Linea | xdid -T treebardialog 14 Imposta il colore della Linea }
if (%lang == es) { xdid -t treebardialog 14 ██ Linea | xdid -T treebardialog 14 establece el color de la Línea }
if (%lang == fr) { xdid -t treebardialog 14 ██ Ligne | xdid -T treebardialog 14 définit la couleur de la ligne }
xdid -f treebardialog 14 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 14 1
xdid -C treebardialog 14 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 14 -hmnsvxzo
xdid -s treebardialog 14 +c 10
xdid -c treebardialog 14 +h %treeline
xdid -c treebardialog 14 +d %treeline
xdid -c treebardialog 14 +n %treeline
xdid -c treebardialog 14 +s %treeline
if (%cur_x == ON) /xdid -J treebardialog 14 +f %butt
}
}
alias selected_color_tree {
if ($xdialog(treebardialog, 15).isid == $true) /xdialog -d treebardialog 15
if ($xdialog(treebardialog, 15).isid != $true) {
;// Initialising control: Select BG color (Button 15)
if (%position == top) xdialog -c treebardialog 15 button 300 150 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 15 button 300 150 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 15 button 2 320 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 15 button 2 320 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 15 ██ Selected BG | xdid -T treebardialog 15 Set Selected BG }
if (%lang == it) { xdid -t treebardialog 15 ██ fondo Selezione | xdid -T treebardialog 15 Imposta il colore sotto il testo selezionato }
if (%lang == fr) { xdid -t treebardialog 15 ██ Sous Sélectionné | xdid -T treebardialog 15 Définit la couleur sous le texte sélectionné }
if (%lang == es) { xdid -t treebardialog 15 ██ Bajo Seleccionada | xdid -T treebardialog 15 Establece el color bajo el texto seleccionado }
xdid -f treebardialog 15 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 15 1
/xdid -C treebardialog 15 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 15 -hmnsvxzo
xdid -s treebardialog 15 +c 10
xdid -c treebardialog 15 +h %treetextsb
xdid -c treebardialog 15 +d %treetextsb
xdid -c treebardialog 15 +n %treetextsb
xdid -c treebardialog 15 +s %treetextsb
if (%cur_x == ON) /xdid -J treebardialog 15 +f %butt
}
}
alias messagebg_color_tree {
if ($xdialog(treebardialog, 16).isid == $true) /xdialog -d treebardialog 16
if ($xdialog(treebardialog, 16).isid != $true) {
;// Initialising control: Messages BG Color (Button 16)
if (%position == top) xdialog -c treebardialog 16 button 600 2 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 16 button 600 2 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 16 button 2 360 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 16 button 2 360 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 16 ██ MessagesBG | xdid -T treebardialog 16 Set Messages Background Colors }
if (%lang == it) { xdid -t treebardialog 16 ██ sotto Messaggio | xdid -T treebardialog 16 Imposta il colore di fondo del Messaggio }
if (%lang == es) { xdid -t treebardialog 16 ██ Mensajes fondo | xdid -T treebardialog 16 Establece el color de fondo del mensaje }
if (%lang == fr) { xdid -t treebardialog 16 ██ message fond | xdid -T treebardialog 16 Définit la couleur du message de fond }
xdid -f treebardialog 16 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 16 1
/xdid -C treebardialog 16 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 16 -hmnsvxzo
xdid -s treebardialog 16 +c 10
xdid -c treebardialog 16 +h %messagebg
xdid -c treebardialog 16 +d %messagebg
xdid -c treebardialog 16 +n %messagebg
xdid -c treebardialog 16 +s %messagebg
if (%cur_x == ON) /xdid -J treebardialog 16 +f %butt
}
}
alias messages_color_tree {
if ($xdialog(treebardialog, 17).isid == $true) /xdialog -d treebardialog 17
if ($xdialog(treebardialog, 17).isid != $true) {
;// Initialising control: Messages Color (Button 17)
if (%position == top) xdialog -c treebardialog 17 button 600 50 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 17 button 600 50 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 17 button 2 400 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 17 button 2 400 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 17 ██ Messages | xdid -T treebardialog 17 Set Messages Colors }
if (%lang == it) { xdid -t treebardialog 17 ██ Messaggi | xdid -T treebardialog 17 Imposta il colore del Messaggio }
if (%lang == es) { xdid -t treebardialog 17 ██ Mensajes | xdid -T treebardialog 17 Establece el color del Mensaje }
if (%lang == fr) { xdid -t treebardialog 17 ██ Messages | xdid -T treebardialog 17 Définit la couleur du message }
xdid -f treebardialog 17 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 17 1
/xdid -C treebardialog 17 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 17 -hmnsvxzo
xdid -s treebardialog 17 +c 10
xdid -c treebardialog 17 +h %treemess
xdid -c treebardialog 17 +d %treemess
xdid -c treebardialog 17 +n %treemess
xdid -c treebardialog 17 +s %treemess
if (%cur_x == ON) /xdid -J treebardialog 17 +f %butt
}
}
alias hottext_color_tree {
if ($xdialog(treebardialog, 18).isid == $true) /xdialog -d treebardialog 18
if ($xdialog(treebardialog, 18).isid != $true) {
;// Initialising control: Hot highlight Color (Button 18)
if (%position == top) xdialog -c treebardialog 18 button 600 100 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 18 button 600 100 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 18 button 2 440 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 18 button 2 440 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 18 ██ Highlight Text | xdid -T treebardialog 18 Set Highlight Text Color }
if (%lang == it) { xdid -t treebardialog 18 ██ Evidenziato | xdid -T treebardialog 18 Imposta il colore in Evidenza }
if (%lang == es) { xdid -t treebardialog 18 ██ punto Culminante | xdid -T treebardialog 18 Ajuste el color a ver }
if (%lang == fr) { xdid -t treebardialog 18 ██ Surligner | xdid -T treebardialog 18 Réglez la couleur à Lire }
xdid -f treebardialog 18 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 18 1
/xdid -C treebardialog 18 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 18 -hmnsvxzo
xdid -s treebardialog 18 +c 10
xdid -c treebardialog 18 +h %treeh
xdid -c treebardialog 18 +d %treeh
xdid -c treebardialog 18 +n %treeh
xdid -c treebardialog 18 +s %treeh
if (%cur_x == ON) /xdid -J treebardialog 18 +f %butt
}
}
alias event_color_tree {
if ($xdialog(treebardialog, 19).isid == $true) /xdialog -d treebardialog 19
if ($xdialog(treebardialog, 19).isid != $true) {
;// Initialising control: Events (Button 19)
if (%position == top) xdialog -c treebardialog 19 button 600 150 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 19 button 600 150 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 19 button 2 480 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 19 button 2 480 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 19 ██ Events | xdid -T treebardialog 19 Sets Events color }
if (%lang == it) { xdid -t treebardialog 19 ██ Eventi | xdid -T treebardialog 19 Imposta il colore Eventi }
if (%lang == es) { xdid -t treebardialog 19 ██ Eventos | xdid -T treebardialog 19 Establece los Eventos de color }
if (%lang == fr) { xdid -t treebardialog 19 ██ Événements | xdid -T treebardialog 19 Définit la couleur Événements }
xdid -f treebardialog 19 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 19 1
xdid -C treebardialog 19 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 19 -hmnsvxzo
xdid -s treebardialog 19 +c 10
xdid -c treebardialog 19 +h %treevent
xdid -c treebardialog 19 +d %treevent
xdid -c treebardialog 19 +n %treevent
xdid -c treebardialog 19 +s %treevent
if (%cur_x == ON) xdid -J treebardialog 19 +f %butt
}
}
alias eventBG_color_tree {
if ($xdialog(treebardialog, 20).isid == $true) /xdialog -d treebardialog 20
if ($xdialog(treebardialog, 20).isid != $true) {
;// Initialising control: eventBG (Button 20)
if (%position == top) xdialog -c treebardialog 20 button 900 2 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 20 button 900 2 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 20 button 2 520 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 20 button 2 520 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 20 ██ Events BG | xdid -T treebardialog 20 Set Event Background Color }
if (%lang == it) { xdid -t treebardialog 20 ██ Eventi fondo | xdid -T treebardialog 20 Imposta il colore di fondo Eventi }
if (%lang == es) { xdid -t treebardialog 20 ██ Eventos fondo | xdid -T treebardialog 20 Establece el color de fondo de Eventos }
if (%lang == fr) { xdid -t treebardialog 20 ██ Événements fond | xdid -T treebardialog 20 Définit la couleur de fond des événements }
xdid -f treebardialog 20 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 20 1
xdid -C treebardialog 20 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 20 -hmnsvxzo
xdid -s treebardialog 20 +c 10
xdid -c treebardialog 20 +h %treetextevo
xdid -c treebardialog 20 +d %treetextevo
xdid -c treebardialog 20 +n %treetextevo
xdid -c treebardialog 20 +s %treetextevo
if (%cur_x == ON) xdid -J treebardialog 20 +f %butt
}
}
alias hot_color_tree {
if ($xdialog(treebardialog, 21).isid == $true) /xdialog -d treebardialog 21
if ($xdialog(treebardialog, 21).isid != $true) {
;// Initialising control: Hot Text (Button 21)
if (%position == top) xdialog -c treebardialog 21 button 900 50 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == bottom) xdialog -c treebardialog 21 button 900 50 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == left) xdialog -c treebardialog 21 button 2 560 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%position == right) xdialog -c treebardialog 21 button 2 560 300 40 tabstop default group tooltips bitmap shadow notheme transparent
if (%lang == en) { xdid -t treebardialog 21 ██ Hot Text | xdid -T treebardialog 21 Set Hot Text Color }
if (%lang == it) { xdid -t treebardialog 21 ██ Testo acceso | xdid -T treebardialog 21 Imposta il colore del Testo acceso }
if (%lang == es) { xdid -t treebardialog 21 ██ Texto iluminado | xdid -T treebardialog 21 Ajuste el color del Texto iluminado }
if (%lang == fr) { xdid -t treebardialog 21 ██ Texte éclairés | xdid -T treebardialog 21 Régler la couleur du Texte éclairés }
xdid -f treebardialog 21 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 21 1
xdid -C treebardialog 21 +b $dcx(GetSystemColor, COLOR_WINDOW)
xdid -x treebardialog 21 -hmnsvxzo
xdid -s treebardialog 21 +c 10
xdid -c treebardialog 21 +h %treehot
xdid -c treebardialog 21 +d %treehot
xdid -c treebardialog 21 +n %treehot
xdid -c treebardialog 21 +s %treehot
if (%cur_x == ON) xdid -J treebardialog 21 +f %butt
}
}
alias icostatus_tree {
if ($xdialog(treebardialog, 22).isid == $true) /xdialog -d treebardialog 22
if ($xdialog(treebardialog, 22).isid != $true) {
;// Initialising control: STATUS (Button 22)
if (%position == top) xdialog -c treebardialog 22 button 900 150 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 22 button 900 150 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 22 button 2 600 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 22 button 2 600 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 22 Status | xdid -T treebardialog 22 Set STATUS window Icon }
if (%lang == it) { xdid -t treebardialog 22 Stato | xdid -T treebardialog 22 Imposta icona della finestra di Stato }
if (%lang == es) { xdid -t treebardialog 22 Estado | xdid -T treebardialog 22 Establece el icono de la ventana Estado }
if (%lang == fr) { xdid -t treebardialog 22 état | xdid -T treebardialog 22 Définit icône de la fenêtre d'état }
xdid -f treebardialog 22 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 22 1
xdid -l treebardialog 22 %icosize
xdid -x treebardialog 22 -hmnsvxzo
xdid -s treebardialog 22 +c 10
xdid -c treebardialog 22 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 22 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 22 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 22 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 22 +nhd 0 %icostatus
if (%cur_x == ON) /xdid -J treebardialog 22 +f %butt
/xdid -C treebardialog 22 +b %treebarbg
}
}
alias icocust_tree {
if ($xdialog(treebardialog, 23).isid == $true) /xdialog -d treebardialog 23
if ($xdialog(treebardialog, 23).isid != $true) {
;// Initialising control: custom (Button 23)
if (%position == top) xdialog -c treebardialog 23 button 1200 2 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 23 button 1200 2 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 23 button 2 640 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 23 button 2 640 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 23 Custom | xdid -T treebardialog 23 Set Custom window Icon }
if (%lang == it) { xdid -t treebardialog 23 Personalizzata | xdid -T treebardialog 23 Imposta l' icona della finestra Personalizzata }
if (%lang == es) { xdid -t treebardialog 23 Personalizado | xdid -T treebardialog 23 Ajuste la "ventana Icono personalizado }
if (%lang == fr) { xdid -t treebardialog 23 Personnalisée | xdid -T treebardialog 23 Réglez la «fenêtre icône personnalisée }
xdid -f treebardialog 23 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 23 1
xdid -l treebardialog 23 %icosize
xdid -x treebardialog 23 -hmnsvxzo
xdid -s treebardialog 23 +c 10
xdid -c treebardialog 23 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 23 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 23 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 23 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 23 +nhd 0 %icocust
if (%cur_x == ON) /xdid -J treebardialog 23 +f %butt
/xdid -C treebardialog 23 +b %treebarbg
}
}
alias iconot_tree {
if ($xdialog(treebardialog, 24).isid == $true) /xdialog -d treebardialog 24
if ($xdialog(treebardialog, 24).isid != $true) {
;// Initialising control: notify (Button 24)
if (%position == top) xdialog -c treebardialog 24 button 1200 50 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 24 button 1200 50 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 24 button 2 680 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 24 button 2 680 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 24 Notify | xdid -T treebardialog 24 Set Notify Icon }
if (%lang == it) { xdid -t treebardialog 24 Notifica | xdid -T treebardialog 24 Imposta l' icona della Notifica }
if (%lang == es) { xdid -t treebardialog 24 Notificación | xdid -T treebardialog 24 Ajuste el 'icono de la Notificación }
if (%lang == fr) { xdid -t treebardialog 24 Notification | xdid -T treebardialog 24 Réglez le 'icône de la notification }
xdid -f treebardialog 24 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 24 1
xdid -l treebardialog 24 %icosize
xdid -x treebardialog 24 -hmnsvxzo
xdid -s treebardialog 24 +c 10
xdid -c treebardialog 24 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 24 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 24 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 24 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 24 +nhd 0 %iconot
if (%cur_x == ON) /xdid -J treebardialog 24 +f %butt
/xdid -C treebardialog 24 +b %treebarbg
}
}
alias icoq_tree {
if ($xdialog(treebardialog, 25).isid == $true) /xdialog -d treebardialog 25
if ($xdialog(treebardialog, 25).isid != $true) {
;// Initialising control: query (Button 25)
if (%position == top) xdialog -c treebardialog 25 button 1200 100 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 25 button 1200 100 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 25 button 2 720 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 25 button 2 720 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 25 Query | xdid -T treebardialog 25 Set Query Icon }
if (%lang == it) { xdid -t treebardialog 25 Query | xdid -T treebardialog 25 Imposta l' icona della Query }
if (%lang == es) { xdid -t treebardialog 25 Query | xdid -T treebardialog 25 Ajuste el 'icono de la Query }
if (%lang == fr) { xdid -t treebardialog 25 Query | xdid -T treebardialog 25 Réglez le 'icône de la Query }
xdid -f treebardialog 25 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 25 1
xdid -l treebardialog 25 %icosize
xdid -x treebardialog 25 -hmnsvxzo
xdid -s treebardialog 25 +c 10
xdid -c treebardialog 25 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 25 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 25 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 25 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 25 +nhd 0 %icoq
if (%cur_x == ON) /xdid -J treebardialog 25 +f %butt
/xdid -C treebardialog 25 +b %treebarbg
}
}
alias icochan_tree {
if ($xdialog(treebardialog, 26).isid == $true) /xdialog -d treebardialog 26
if ($xdialog(treebardialog, 26).isid != $true) {
;// Initialising control: chan (Button 26)
if (%position == top) xdialog -c treebardialog 26 button 1200 150 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 26 button 1200 150 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 26 button 2 760 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 26 button 2 760 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 26 Channel | xdid -T treebardialog 26 Set Channel Icon }
if (%lang == it) { xdid -t treebardialog 26 Canale | xdid -T treebardialog 26 Imposta icona del Canale }
if (%lang == es) { xdid -t treebardialog 26 Canal | xdid -T treebardialog 26 Ajuste el icono de la Canal }
if (%lang == fr) { xdid -t treebardialog 26 Canal | xdid -T treebardialog 26 Réglez le icône de la Canal }
xdid -f treebardialog 26 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 26 1
xdid -l treebardialog 26 %icosize
xdid -x treebardialog 26 -hmnsvxzo
xdid -s treebardialog 26 +c 10
xdid -c treebardialog 26 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 26 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 26 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 26 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 26 +nhd 0 %icochan
if (%cur_x == ON) /xdid -J treebardialog 26 +f %butt
/xdid -C treebardialog 26 +b %treebarbg
}
}
alias icosend_tree {
if ($xdialog(treebardialog, 27).isid == $true) /xdialog -d treebardialog 27
if ($xdialog(treebardialog, 27).isid != $true) {
;// Initialising control: chan (Button 27)
if (%position == top) xdialog -c treebardialog 27 button 1500 2 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 27 button 1500 2 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 27 button 2 800 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 27 button 2 800 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 27 Send | xdid -T treebardialog 27 Set Send Icon }
if (%lang == it) { xdid -t treebardialog 27 Inviati | xdid -T treebardialog 27 Imposta l' icona dei file Inviati }
if (%lang == es) { xdid -t treebardialog 27 Enviado | xdid -T treebardialog 27 Ajuste el 'icono del archivo Enviado }
if (%lang == fr) { xdid -t treebardialog 27 Envoyé | xdid -T treebardialog 27 Réglez le 'icône du fichier Envoyé }
xdid -f treebardialog 27 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 27 1
xdid -l treebardialog 27 %icosize
xdid -x treebardialog 27 -hmnsvxzo
xdid -s treebardialog 27 +c 10
xdid -c treebardialog 27 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 27 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 27 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 27 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 27 +nhd 0 %icosend
if (%cur_x == ON) /xdid -J treebardialog 27 +f %butt
/xdid -C treebardialog 27 +b %treebarbg
}
}
alias icoget_tree {
if ($xdialog(treebardialog, 28).isid == $true) /xdialog -d treebardialog 28
if ($xdialog(treebardialog, 28).isid != $true) {
;// Initialising control: chan (Button 28)
if (%position == top) xdialog -c treebardialog 28 button 1500 50 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 28 button 1500 50 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 28 button 2 840 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 28 button 2 840 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 28 Get | xdid -T treebardialog 28 Set Get Icon }
if (%lang == it) { xdid -t treebardialog 28 Ricevuti | xdid -T treebardialog 28 Imposta l' icona dei file Ricevuti }
if (%lang == es) { xdid -t treebardialog 28 Recibido | xdid -T treebardialog 28 Ajuste el 'icono del archivo Recibito }
if (%lang == fr) { xdid -t treebardialog 28 Reçu | xdid -T treebardialog 28 Réglez le 'icône du fichier Reçu }
xdid -f treebardialog 28 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 28 1
xdid -l treebardialog 28 %icosize
xdid -x treebardialog 28 -hmnsvxzo
xdid -s treebardialog 28 +c 10
xdid -c treebardialog 28 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 28 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 28 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 28 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 28 +nhd 0 %icoget
if (%cur_x == ON) /xdid -J treebardialog 28 +f %butt
/xdid -C treebardialog 28 +b %treebarbg
}
}
alias icodir_tree {
if ($xdialog(treebardialog, 29).isid == $true) /xdialog -d treebardialog 29
if ($xdialog(treebardialog, 29).isid != $true) {
;// Initialising control: chan (Button 29)
if (%position == top) xdialog -c treebardialog 29 button 1500 100 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == bottom) xdialog -c treebardialog 29 button 1500 100 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == left) xdialog -c treebardialog 29 button 2 880 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%position == right) xdialog -c treebardialog 29 button 2 880 300 40 tabstop group default tooltips notheme transparent shadow bitmap left
if (%lang == en) { xdid -t treebardialog 29 Folder | xdid -T treebardialog 29 Set the Folder icon file }
if (%lang == it) { xdid -t treebardialog 29 Cartella | xdid -T treebardialog 29 Imposta l'icona della Cartella file }
if (%lang == es) { xdid -t treebardialog 29 Carpeta | xdid -T treebardialog 29 Establezca el icono del archivo Carpeta }
if (%lang == fr) { xdid -t treebardialog 29 Dossier | xdid -T treebardialog 29 Réglez le fichier de l'icône dossier }
xdid -f treebardialog 29 %textmode %xchartree %xdimtree %xcartree
xdid -m treebardialog 29 1
xdid -l treebardialog 29 %icosize
xdid -x treebardialog 29 -hmnsvxzo
xdid -s treebardialog 29 +c 10
xdid -c treebardialog 29 +h $dcx(GetSystemColor, COLOR_HOTLIGHT)
xdid -c treebardialog 29 +d $dcx(GetSystemColor, COLOR_HIGHLIGHT)
xdid -c treebardialog 29 +n $dcx(GetSystemColor, COLOR_WINDOWTEXT)
xdid -c treebardialog 29 +s $dcx(GetSystemColor, COLOR_HIGHLIGHTTEXT)
xdid -w treebardialog 29 +nhd 0 %icodir
if (%cur_x == ON) /xdid -J treebardialog 29 +f %butt
/xdid -C treebardialog 29 +b %treebarbg
}
}
alias cla_tree_lr {
xdialog -l treebardialog root $chr(9) +plv 0 0 0 0
xdialog -l treebardialog cell root $chr(9) +plv 0 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 1 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 2 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 3 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 4 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 5 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 6 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 7 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 8 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 9 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 10 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 11 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 12 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 13 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 14 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 15 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 16 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 17 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 18 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 19 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 20 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 21 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 22 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 23 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 24 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 25 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 26 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 27 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 28 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +li 29 1 0 0
}
alias cla_tree_tb {
xdialog -l treebardialog root $chr(9) +phv 0 0 0 0
xdialog -l treebardialog cell root $chr(9) +phv 0 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 1 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 2 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 3 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 4 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 5 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +ilp 6 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 7 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 8 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 9 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 10 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 11 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 12 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 13 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 14 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 15 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 16 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 17 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 18 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 19 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 20 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 21 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 22 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 23 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 24 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 25 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 26 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 27 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 28 1 0 0
xdialog -l treebardialog cell 1 $chr(9) +lip 29 1 0 0
}
;// quick-access menu item
menu status,channel {
treebar: { treebardialog }
-
}
;===========================================================================================================================;
; menu charset | VxD ~ caronte.ade@gmail.com ~ www.vxd.mobi ~ https://mirc.vxd.mobi/VxD.htm ;
;===========================================================================================================================;
alias char_set {
dialog -ma char_set char_set_table
/xdialog -b char_set -hmnsvxzo
/xdialog -R char_set +s $dcx(GetSystemColor, COLOR_WINDOW)
cla_char
.timer 1 0 xdialog -l char_set update
}
dialog char_set_table {
title "char_set"
size %pos_or %pos_vr %pos_lr %pos_lu
}
on *:dialog:char_set:*:*: {
if ($devent == init) {
/dcx Mark $dname char_set_cb
/xdialog -V $dname %pos_or %pos_vr %pos_lr %pos_lu
/xdialog -t $dname transparentcolor none
/xdialog -t $dname alpha none
/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
char_set_init_dcx
}
}
alias -l char_set_init_dcx {
if (%position == left) { .timer 1 0 /xdock -m $dialog(char_set).hwnd +l | /xdialog -a $dname +so 100 }
if (%position == right) { .timer 1 0 /xdock -m $dialog(char_set).hwnd +r | /xdialog -a $dname +sn 100 }
if (%position == top) { .timer 1 0 /xdock -m $dialog(char_set).hwnd +t | /xdialog -a $dname +sv 100 }
if (%position == bottom) { .timer 1 0 /xdock -m $dialog(char_set).hwnd +b | /xdialog -a $dname +su 100 }
charsetmenu
}
;// Callback alias for char_set
alias char_set_cb {
if ($2 != mouse) { echo $color(info) -s */ char_set_cb: $1- }
if ($2 == sclick) {
if ($3 == 1) { /set %xchartree ansi | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 2) { /set %xchartree baltic | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 3) { /set %xchartree chinesebig | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 4) { /set %xchartree default | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 5) { /set %xchartree easteurope | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 6) { /set %xchartree gb2312 | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 7) { /set %xchartree greek | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 8) { /set %xchartree hangul | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 9) { /set %xchartree mac | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 10) { /set %xchartree oem | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 11) { /set %xchartree russian | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 12) { /set %xchartree shiftjis | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 13) { /set %xchartree symbol | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 14) { /set %xchartree turkish | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 15) { /set %xchartree vietnamese | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
elseif ($3 == 16) { /set %xchartree italic | .timer 1 0 refresh_char_list | xdialog -x char_set | ref_text }
}
}
alias refresh_char_list {
/xdid -E treebardialog 3 CharSet $+ %xchartree
/xdid -E treebardialog 4 FontName $+ %xcartree
/xdid -E treebardialog 5 Size $+ %xdimtree
}
alias charsetmenu {
if ($xdialog(char_set, 1).isid == $true) /xdialog -d char_set 1
if ($xdialog(char_set, 1).isid != $true) {
;// Initialising control: ansi (Text 1)
xdialog -c char_set 1 text 2 0 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 1 ansi
xdid -T char_set 1 Sets the ansi character Set
xdid -f char_set 1 %textmode ansi %xdimtree %xcartree
xdid -C char_set 1 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 1 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 1 +f %butt
}
if ($xdialog(char_set, 2).isid == $true) /xdialog -d char_set 2
if ($xdialog(char_set, 2).isid != $true) {
;// Initialising control: baltic (Text 2)
xdialog -c char_set 2 text 2 40 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 2 baltic
xdid -T char_set 2 Sets the baltic character Set
xdid -f char_set 2 %textmode baltic %xdimtree %xcartree
xdid -C char_set 2 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 2 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 2 +f %butt
}
if ($xdialog(char_set, 3).isid == $true) /xdialog -d char_set 3
if ($xdialog(char_set, 3).isid != $true) {
;// Initialising control: chinesebig (Text 3)
xdialog -c char_set 3 text 2 80 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 3 chinesebig
xdid -T char_set 3 Sets the chinesebig character Set
xdid -f char_set 3 %textmode chinesebig %xchartree %xdimtree %xcartree
xdid -C char_set 3 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 3 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 3 +f %butt
}
if ($xdialog(char_set, 4).isid == $true) /xdialog -d char_set 4
if ($xdialog(char_set, 4).isid != $true) {
;// Initialising control: default (Text 4)
xdialog -c char_set 4 text 2 120 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 4 default
xdid -T char_set 4 Sets the default character Set
xdid -f char_set 4 %textmode default %xdimtree %xcartree
xdid -C char_set 4 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 4 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 4 +f %butt
}
if ($xdialog(char_set, 5).isid == $true) /xdialog -d char_set 5
if ($xdialog(char_set, 5).isid != $true) {
;// Initialising control: easteurope (Text 5)
xdialog -c char_set 5 text 2 160 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 5 easteurope
xdid -T char_set 5 Sets the easteurope character Set
xdid -f char_set 5 %textmode easteurope %xdimtree %xcartree
xdid -C char_set 5 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 5 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 5 +f %butt
}
if ($xdialog(char_set, 6).isid == $true) /xdialog -d char_set 6
if ($xdialog(char_set, 6).isid != $true) {
;// Initialising control: gb2312 (Text 6)
xdialog -c char_set 6 text 2 200 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 6 gb2312
xdid -T char_set 6 Sets the gb2312 character Set
xdid -f char_set 6 %textmode gb2312 %xdimtree %xcartree
xdid -C char_set 6 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 6 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 6 +f %butt
}
if ($xdialog(char_set, 7).isid == $true) /xdialog -d char_set 7
if ($xdialog(char_set, 7).isid != $true) {
;// Initialising control: greek (Text 7)
xdialog -c char_set 7 text 2 240 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 7 greek
xdid -T char_set 7 Sets the greek character Set
xdid -f char_set 7 %textmode greek %xdimtree %xcartree
xdid -C char_set 7 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 7 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 7 +f %butt
}
if ($xdialog(char_set, 8).isid == $true) /xdialog -d char_set 8
if ($xdialog(char_set, 8).isid != $true) {
;// Initialising control: hangul (Text 8)
xdialog -c char_set 8 text 2 280 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 8 hangul
xdid -T char_set 8 Sets the hangul character Set
xdid -f char_set 8 %textmode hangul %xdimtree %xcartree
xdid -C char_set 8 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 8 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 8 +f %butt
}
if ($xdialog(char_set, 9).isid == $true) /xdialog -d char_set 9
if ($xdialog(char_set, 9).isid != $true) {
;// Initialising control: mac (Text 9)
xdialog -c char_set 9 text 2 320 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 9 mac
xdid -T char_set 9 Sets the mac character Set
xdid -f char_set 9 %textmode mac %xdimtree %xcartree
xdid -C char_set 9 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 9 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 9 +f %butt
}
if ($xdialog(char_set, 10).isid == $true) /xdialog -d char_set 10
if ($xdialog(char_set, 10).isid != $true) {
;// Initialising control: oem (Text 10)
xdialog -c char_set 10 text 2 360 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 10 oem
xdid -T char_set 10 Sets the oem character Set
xdid -f char_set 10 %textmode oem %xdimtree %xcartree
xdid -C char_set 10 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 10 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 10 +f %butt
}
if ($xdialog(char_set, 11).isid == $true) /xdialog -d char_set 11
if ($xdialog(char_set, 11).isid != $true) {
;// Initialising control: russian (Text 11)
xdialog -c char_set 11 text 2 400 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 11 russian
xdid -T char_set 11 Sets the russian character Set
xdid -f char_set 11 %textmode russian %xdimtree %xcartree
xdid -C char_set 11 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 11 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 11 +f %butt
}
if ($xdialog(char_set, 12).isid == $true) /xdialog -d char_set 12
if ($xdialog(char_set, 12).isid != $true) {
;// Initialising control: shiftjis (Text 12)
xdialog -c char_set 12 text 2 440 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 12 chinesebig
xdid -T char_set 12 Sets the shiftjis character Set
xdid -f char_set 12 %textmode shiftjis %xdimtree %xcartree
xdid -C char_set 12 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 12 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 12 +f %butt
}
if ($xdialog(char_set, 13).isid == $true) /xdialog -d char_set 13
if ($xdialog(char_set, 13).isid != $true) {
;// Initialising control: symbol (Text 13)
xdialog -c char_set 13 text 2 480 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 13 symbol
xdid -T char_set 13 Sets the symbol character Set
xdid -f char_set 13 %textmode symbol %xdimtree %xcartree
xdid -C char_set 13 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 13 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 13 +f %butt
}
if ($xdialog(char_set, 14).isid == $true) /xdialog -d char_set 14
if ($xdialog(char_set, 14).isid != $true) {
;// Initialising control: turkish (Text 14)
xdialog -c char_set 14 text 2 520 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 14 turkish
xdid -T char_set 14 Sets the turkish character Set
xdid -f char_set 14 %textmode turkish %xdimtree %xcartree
xdid -C char_set 14 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 14 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 14 +f %butt
}
if ($xdialog(char_set, 15).isid == $true) /xdialog -d char_set 15
if ($xdialog(char_set, 15).isid != $true) {
;// Initialising control: vietnamese (Text 15)
xdialog -c char_set 15 text 2 560 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 15 vietnamese
xdid -T char_set 15 Sets the vietnamese character Set
xdid -f char_set 15 %textmode vietnamese %xdimtree %xcartree
xdid -C char_set 15 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 15 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 15 +f %butt
}
if ($xdialog(char_set, 16).isid == $true) /xdialog -d char_set 16
if ($xdialog(char_set, 16).isid != $true) {
;// Initialising control: italic (Text 16)
xdialog -c char_set 16 text 2 600 200 40 tabstop default group tooltips bitmap shadow notheme transparent center
xdid -t char_set 16 italic
xdid -T char_set 16 Sets the italic character Set
xdid -f char_set 16 %textmode italic %xdimtree %xcartree
xdid -C char_set 16 +bk $dcx(GetSystemColor, COLOR_WINDOW)
xdid -C char_set 16 +t $dcx(GetSystemColor, COLOR_WINDOWTEXT)
if (%cur_x == ON) xdid -J char_set 16 +f %butt
}
}
alias cla_char {
xdialog -l char_set root $chr(9) +plvh 0 0 0 0
xdialog -l char_set cell root $chr(9) +pv 0 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 1 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 2 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 3 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 4 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 5 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 6 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 7 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 8 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 9 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 10 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 11 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 12 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 13 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 14 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 15 1 0 0
xdialog -l char_set cell 1 $chr(9) +il 16 1 0 0
}
;// quick-access menu item
menu status,channel {
charset: { char_set }
-
}
Write here..Write here..