2003-04-28 19:12

'
     $ESCAPECHARS ON
     $TYPECHECK ON
     $INCLUDE "RAPIDQ.INC"
'
     DECLARE SUB Paint
'
     DIM Bitmap AS QBITMAP
'
     CREATE Form AS QFORM
      WindowState = wsMaximized
      CREATE Canvas AS QCANVAS
       Align = alClient
       OnPaint = Paint
      END CREATE
     END CREATE
'
     SUB Paint
      Canvas.FillRect 0,0 ,Form.ClientWidth,Form.ClientHeight,&H999999
      Canvas.Draw (0, 0,Bitmap.bmp)
     END SUB
'
     Form.Show
'
     Bitmap.BMP = "test1.bmp"
     Paint
'
     SHOWMESSAGE ("Will Display The Large Picture")
'
     Bitmap.BMP = "test.bmp"
     Paint
'
     Form.Visible = False
     Form.SHOWMODAL
'

2003-04-28 19:12