home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / tema / ArcData / www / download / hotlink1.ave < prev    next >
Text File  |  1999-12-17  |  786b  |  16 lines
  1. '------------hotlink1-------------------------
  2. '┌Φel: Umo₧nφ hotlink na image s mo₧nostφ definovat dobu zobrazovßnφ image.
  3. 'Pou₧itφ: P°ed kompilacφ obou skript∙ nastavte ve skriptu ze souboru hotlink1.ave prom∞nnou prodleva na p°φsluÜn² poΦet vte°in. P°ejmenujte skript ze souboru hotlink2.ave na hotlink2.
  4. 'Zkompilujte oba skripty a v okn∞ pro nastavenφ Hotlink nastavte krom∞ pole v atrib. tabulce Predefined action na Link to User Script a vyberte skript ze souboru hotlink1.ave.
  5. prodleva = 10 'sekund
  6. theVal = SELF
  7. if (not (theVal.IsNull)) then
  8.   if (File.Exists(theVal.AsFileName)) then
  9.     i = ImageWin.Make(theVal.AsFileName, theVal)
  10.     i.Open
  11.   else
  12.     MsgBox.Warning("Soubor "+theVal+" nenalezen!.","Hot Link")
  13.   end
  14. end
  15. av.DelayedRun("hotlink2",{i},prodleva)
  16.