2003-02-13 22:44

'From:  Alan Jones  Thu Feb 13, 2003  10:39 pm

     DECLARE SUB Resize

     CREATE Form AS QFORM
      CREATE Panel AS QPANEL
       CREATE Button AS QBUTTON
        Width = 50
        Height = 20
       END CREATE
      END CREATE
      CREATE Box AS QRICHEDIT
      END CREATE
      OnShow = Resize
      OnResize = Resize
      Center
      SHOWMODAL
     END CREATE

     SUB Resize
      Panel.Width = Form.ClientWidth * .25
      Panel.Height = Form.ClientHeight
      Button.Top = (Panel.ClientHeight \ 2) - 10
      Button.Left = (Panel.ClientWidth \ 2) - 25
      Box.Left = Form.ClientWidth * .25
      Box.Width = Form.ClientWidth * .75
      Box.Height = Form.ClientHeight
      IF Panel.Width < 60 THEN
       Panel.Width = 60
       Box.Width = 180
       Form.ClientWidth = 240
      END IF
     END SUB

2003-02-13 22:44