2003-10-04 20:09

'Display GIF
'by: Lukaz (12/12/02 11:50:18 pm)
'You need the file NViewLib.dll

'--- START ---

     DECLARE FUNCTION Load_GIF LIB "NVIEWLIB" ALIAS "Load_GIF" _
      (FileName AS STRING, Progress AS INTEGER) AS INTEGER
     DECLARE FUNCTION NViewLibLoad LIB "NVIEWLIB" ALIAS "NViewLibLoad" _
      (FileName AS STRING, Progress AS INTEGER) AS INTEGER

     DIM FileName AS STRING
     FileName = "world.gif"

     CREATE Form AS QFORM
      CREATE Image AS QIMAGE
       Autosize=1
       Handle = NViewLibLoad(FileName, 0)
       TextOut(10,10, FileName, 0, -1)
      END CREATE
      SHOWMODAL
     END CREATE

'--- END ---

2003-10-04 20:09