home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / picbase / overview_cd.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-10  |  2KB  |  115 lines
  1. /* Overview.rexx, 30.09.94 Jörg Richter */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. thumbsize = 121
  6.  
  7. ADDRESS DataBase
  8.  
  9. GetMaskSize
  10. size = result
  11. width = WORD(size,1)
  12. height = WORD(size,2)-10
  13.  
  14. xoff = (width-((width%thumbsize)*thumbsize))%2
  15. yoff = (height-((height%thumbsize)*thumbsize))%2
  16.  
  17. doit = 1
  18.  
  19. DO FOREVER
  20.   IF doit = 1 THEN DO
  21.     Current
  22.     nr = result
  23.     CALL Overview
  24.     END
  25.   WaitCommand "RETURN oder RMB = Zurück, LMB = Gehe zu, SHIFT + LMB = Anzeigen, SPACE = Weiter"
  26.   command = result
  27.   doit = 1
  28.   IF WORDS(command) > 1 THEN DO
  29.     mx = WORD(command,1)
  30.     my = WORD(command,2)
  31.     qual = WORD(command,3)
  32.     Current
  33.     ds = result
  34.     last = ds
  35.     select = nr + (mx-xoff)%thumbsize + ((my-yoff)%thumbsize)*(width%thumbsize)
  36.     Display Off
  37.     DO WHILE ds > select
  38.       LeftOne
  39.       ds = ds - 1
  40.     END
  41.     Display On
  42.     IF qual = 0 THEN DO
  43.       Show NEW
  44.       EXIT
  45.       END
  46.     ELSE DO
  47.       Execute 1
  48.       Display Off
  49.       DO WHILE ds < last
  50.         RightOne
  51.         ds = ds + 1
  52.       END
  53.       Display On
  54.       doit = 0
  55.       END
  56.     END
  57.   ELSE DO
  58.     IF ((command = 0) | (command = 13)) THEN DO
  59.       Display Off
  60.       Current
  61.       ds = result
  62.       DO WHILE ds > nr
  63.         LeftOne
  64.         ds = ds - 1
  65.       END
  66.       Display On
  67.       Show NEW
  68.       EXIT
  69.       END
  70.     END
  71. END
  72.  
  73. EXIT
  74.  
  75. Overview:
  76.  
  77. ClearMask
  78. Display Off
  79. x = xoff
  80. y = yoff
  81.  
  82. weiter = 1
  83.  
  84. DO WHILE weiter = 1
  85.  
  86.   GetData $F4
  87.   name = result
  88.   LoadPic name x-15 y-15 CENTER
  89.   Current
  90.   Text x y+thumbsize-5 1 result
  91. /*
  92.   Statt einfach der Datensatznummer könnte auch der Bildname angezeigt werden:
  93.  
  94.   pos = LastPos("/",name)
  95.   Text x+4 y+thumbsize-3-style 10 SubStr(name,pos+1,Length(name)-pos)
  96. */
  97.   x = x + thumbsize
  98.   IF x-15 > width-thumbsize THEN DO
  99.     IF y-15 < height-(thumbsize*2) THEN DO
  100.       x = xoff
  101.       y = y + thumbsize + 10
  102.       END
  103.     ELSE
  104.       weiter = 0
  105.     END
  106.   RightOne
  107.   IF RC ~= 0 THEN
  108.     weiter = 0
  109.  
  110. END
  111.  
  112. Display On
  113.  
  114. RETURN
  115.