2013-06-19 07:48

'From:  "taplang" <wasaywasay@e...> Mon Nov 4, 2002  11:18 pm

     DECLARE SUB Click

     CREATE Form AS QFORM
      Center
      CREATE RichEdit AS QRICHEDIT
       AddStrings "RichEdit", "selects all", "if HideSelection = 0"
       HideSelection = 0
      END CREATE
      CREATE Button1 AS QBUTTON
       Top = 100
       OnClick = Click
      END CREATE
     END CREATE

     SUB Click
      RichEdit.SelectAll
     END SUB

     Form.SHOWMODAL

2013-06-19 07:48