2013-06-19 07:55

'-- Object flags
     CONST REO_NULL = 0	         '-- No flags
     CONST REO_READWRITEMASK = &H3F   '-- Mask out RO bits
     CONST REO_DONTNEEDPALETTE = &H20 '-- Object doesn't need palette
     CONST REO_BLANK = &H10           '-- Object is blank
     CONST	REO_DYNAMICSIZE = &H08     '-- Object defines size always
     CONST REO_INVERTEDSELECT = &H04  '-- Object drawn all inverted if sel
     CONST REO_BELOWBASELINE = &H02   '-- Object sits below the baseline
     CONST REO_RESIZABLE = &H01       '-- Object may be resized

     DECLARE FUNCTION InsertBitmapFromFile LIB "REImage.dll" ALIAS "InsertBitmapFromFile" (rEdit AS LONG, FileName AS STRING, dwFlags AS LONG) AS INTEGER
'    rEdit: RichEdit Control's Handle
'    FileName: File Name of Bitmap
'    dwFlags: Any Flags
     DECLARE SUB Form_Load
     CREATE Form AS QFORM
      CAPTION = "Form1"
      Width = 320
      Height = 240
      Center
      CREATE RichEdit1 AS QRICHEDIT
       Left = 0
       Top = 0
       Width = 312
       Height = 213
       Align = 5
       AddStrings "RichEdit1"
      END CREATE
      onShow = Form_Load
     END CREATE

'Insert your initialization code here

     Form.SHOWMODAL

     SUB Form_Load
      DIM s AS STRING
      s = "Spiral.bmp"

      InsertBitmapFromFile(RichEdit1.Handle, s , REO_RESIZABLE)
     END SUB

2013-06-19 07:55