2002-09-15 10:00

'From:  "John Graves" <laddie@b...> Sat Sep 14, 2002  12:44 pm
'Subject:  Save qcanvas to file
'use source as the source rect and destination as the
'destination rect. destination meaning bitmap.

'Cut and paste the Dim Statements above your form create statements and cut
'the sub into your sub

     DIM Bitmap AS QBITMAP
     DIM Source AS QRECT
     DIM Destination AS QRECT

     SUB Saveit
      Bitmap.Height=Canvas.Height
      Bitmap.Width=Canvas.Width
      WITH Destination
       .Top = 0
       .Left = 0
       .Right = .Left+Bitmap.Width
       .Bottom = .Top+Bitmap.Height
      END WITH
      WITH Source
       .Top = 0
       .Left = 0
       .Right = Canvas.Width
       .Bottom = Canvas.Height
      END WITH
      Bitmap.CopyRect(Destination,Canvas, Source)
      Bitmap.SaveToFile "whatever.bmp"
     END SUB

2002-09-15 10:00