Forums Scripts & Popups listbox on dialog help

; dialog event definition
on *:dialog:Autolist:*:*: {

  ; ... other dialog event code ...

  ; event is sclick
  if ($devent == sclick) {

    ; ... other dialog sclick events  ...

    ; selecting lines in the list
    if ($did == 100) {

      ; check for max 30 items selected - just a suggestion
      if ($did($dname,$did,0).sel > 30) {
        ; some action as the number of selected items exceeds 30
        ; e.g. unselecting the item just selected via: did -ku $dname $did $v1
        ; or by disabling the "show thumbs" button (re-enable via else { })
      }
    }

    ; sklick on "show thumbs" button
    if ($did == 85) {

      ; loop, starting with the first selected line in the list and the first Icon ID
      var %iconID = 134, %nr = 1

      ; as long as 1) the nr of selected lines in the list is <= 30 (superfluous if 
      ; you prevent a selection of more than 30 lines in the list click definition)
      ; and 2) there is a selected line of that %nr:
      while ((%nr <= 30) && ($did($dname,100,%nr).sel)) {

        ; set the full path for this file 
        var %file = $qt($+(<core dir>,\images\,$did($dname,100,$v1).text,.jpg))

        ; if the file is valid
        if ($isfile(%file)) {

          ; use file N (%nr) as icon for icon control N (%iconID)
          did -g $dname %iconID %file

          ; if the iconID is not visible, set it visible
          if (!$did($dname,%iconID).visible) { did -v $dname %iconID }

          ; and inc the N for %iconID, as this ID is now occupied with an icon/thumb
          inc %iconID
        }

        ; proceed with next selected line 
        inc %nr
      }

      ; hide alle the remaining icon IDs (there might be a list-selection of less 
      ; than 30 files and/or an invalid file)
      while (%iconID < 164) { 
        did -h $dname %iconID
        inc %iconID
      }
    }
    ; ... other dialog sclick events  ...
  }
  ; ... other dialog event code ...
}

;sclick event

elseif ($did == 84) {


      var %iconID = 103, %nr = 1
      while ((%nr <= 30) && ($did($dname,85,%nr).sel)) {

;changed your line but will return it to proper just put the entire path in
        var %file =  c:\mIRC\images\ $+ $did($dname,85,$v1).text $+ .jpg

;To check to see visually if the path is right
        did -ra AutoList 2 %file 
        

if ($isfile(%file)) {

          did -g $dname %iconID %file

          if (!$did($dname,%iconID).visible) { did -v $dname %iconID }

          inc %iconID
        }

        inc %nr
      }
; disabled for a moment.
      ;      while (%iconID < 133) { 
      ;        did -h $dname %iconID
      ;        inc %iconID
      ;      }

    }

while ((%nr <= 30) && ($did($dname,85,%nr).sel))) {
  var %file =  c:\mIRC\images\ $+ $did($dname,85,$v1).text $+ .jpg

while ($did($dname,85,%nr)) {
  var %file =  c:\mIRC\images\ $+ $v1 $+ .jpg

$scriptdirimages\ $+ $value

\images\$+ $value

//echo -a $mircdir

on *:dialog:<dialog_name>:dclick:103:{
.msg %channel $nopath(%file)
}

on *:dialog:Autolist:*:*: {

  ; ... your other dialog events, e.g. sclick definitions...

  ; dclick event
  elseif ($devent = dclick) {

    ; it's dclick on one of your icon IDs
    if ($did isnum 103-132) {

      ; $did($dname,$did) returns (if the ID points to an icon): <index-nr> <filename>. you need only the latter.
      var %iconfile = $gettok($did($dname,$did),2-,32)

      ; the active window (the one you may want to msg the filenames to) may be a chan or query
      if (($me ison $active) || ($query($active)) { var %cmd = msg $active I clicked: }

      ; if it's not, you cannot msg to that window, but e.g. echo. 
      ; To do nothing, the line would be: else return
      else { var %cmd = echo -na You selected: }

      ; filename only: 
      %cmd $nopath(%iconfile)

      ; full path would be:
      ; %cmd $longfn(%iconfile)

    }
  }
}