Digitální fotografie a video/Digitalni-fotografie-a-video-covermount.bin/Aplikace/Servis/Rejstrik.dxr/00083.ls

Text File | 1998-05-19 | 1.4 KB | 51 lines

property lastLine, lastClick, Vyber
global Posledni_klik

on beginSprite me
  set Posledni_klik to 1
  set Vyber to the memberNum of sprite the spriteNum of me
  set the visible of sprite the spriteNum of me to 1
  set the foreColor of line lastClick of member Vyber to 8
  set the foreColor of line 1 of member Vyber to 16
  set lastClick to 1
  set lastLine to 1
end

on mouseWithin me
  set ML to the mouseLine
  if ML <> lastClick then
    set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
    set the foreColor of line ML of member Vyber to 0
  else
    set the cursor of sprite the spriteNum of me to -1
  end if
  if lastLine <> ML then
    if lastClick <> lastLine then
      set the foreColor of line lastLine of member Vyber to 8
    end if
    set lastLine to ML
  end if
end

on mouseLeave
  if lastLine <> lastClick then
    set the foreColor of line lastLine of member Vyber to 8
  end if
end

on mouseDown me
  set ML to the mouseLine
  set Posledni_klik to ML
  set the foreColor of line lastClick of member Vyber to 8
  set the foreColor of line ML of member Vyber to 16
  set Pozice to line ML of field the memberNum of sprite (the spriteNum of me + 1)
  if (Pozice >= 0) and (Pozice <= 1) then
    set the position of sprite(12) to Pozice
  else
    set the position of sprite(12) to 0
  end if
  sendSprite(12, #positionThumb)
  sendSprite(12, #scrollText)
  set lastClick to ML
end