List - do not work control styles "draglist" and "dragline"
I am using "mIRC v7.67" + "DCX dll v3.1-git469" in system "Windows 8.1 x64".
At using style draglist, when I try to drag a line to a different position, the arrow blinks and nothing else happens.
If to this add the style dragline, then when you try to drag, a blinking black line appears.
In both cases, these two styles do not fulfill their function. Would like to see a fix for this problem. Thanks.
Here is a test piece of script to reproduce this the problem. To run the script click on "F5" or enter the command "/list_test":
alias F5 { list_test }
alias list_test {
if ($dialog(list_test)) .dialog -x list_test | else { .dialog -m list_test list_test }
}
dialog list_test {
title "List test"
icon $mircexe,0
option pixels
size -1 -1 300 255
}
on *:DIALOG:list_test:init:0:{
.dcx Mark $dname list_test_work
.xdialog -b $dname +ty
.xdialog -g $dname +b $rgb(20,20,27)
list_making $dname 1
}
alias -l list_making {
.xdialog -c $1 $2 list 30 30 240 200 notheme draglist dragline
.xdid -x $1 $2 +b
.xdid -C $1 $2 +b $rgb(40,40,47)
.xdid -C $1 $2 +t $rgb(235,227,203)
.xdid -f $1 $2 +ab ansi 10 Comic Sans MS
var %i 1 | while (%i <= 50) {
.xdid -a $1 $2 %i $+(04,%i,.,) Line of text to test
inc %i
}
}
alias list_test_work {}
@OokEek, I have recorded a short video to demonstrate some the bugs: 🎥 Video (open in a new browser tab).
In addition to the above problems, it is very clearly visible how any movement is accompanied by a very strong flashing of the entire text. This looks very bad. Obviously, code the control "List" needs in essential refinement and additional check for errors.