UA Developer: Clarion FAQ

SmoothScrolling  PROGRAM



  MAP

  END



NameQueue  QUEUE,PRE(NMQ)

Name         STRING(30)

           END

Items      LONG



Window WINDOW('Smooth Scrolling'),AT(,,352,219),CENTER,TIMER(100),GRAY,DOUBLE

        LIST,AT(79,11,178,168),USE(?List),VSCROLL,FROM(NameQueue)

       END



  CODE

  OPEN(Window)

  Items = ?List{PROP:Items}

  ACCEPT

    CASE EVENT()

    OF EVENT:Timer

      DO LoadQueue

    END

  END



LoadQueue  ROUTINE



  NMQ:Name = ALL(CHR(RANDOM(65,122)),30)

  ADD(NameQueue)

  IF RECORDS(NameQueue) > Items

   GET(NameQueue,1)

   DELETE(NameQueue)

  END