'***************************************************
' *** Test code 
'***************************************************
$TYPECHECK ON
$INCLUDE <RapidQ2.inc>
$INCLUDE <QScintilla.inc>

CREATE Form AS QForm
    Width = 800
    Height = 700
    KeyPreview = True

    CREATE RichEdit AS QScintilla
        Init(0)                         'no form menus
        Width = Form.ClientWidth        'Screen.Width
        Height = Form.ClientHeight      'Screen.Height
     END CREATE
END CREATE
Form.Showmodal