2010-12-07 21:18

     $TYPECHECK ON
     $INCLUDE <RapidQ2.INC>
     DIM d AS qdebug

     DIM LABEL AS QLABEL
     DIM EDIT AS QEDIT
     DIM BUTTON AS QBUTTON
     DIM COOLBTN AS QCOOLBTN
     DIM OVALBTN AS QOVALBTN
     DIM IMAGE AS QIMAGE
     DIM CANVAS AS QCANVAS
     DIM CHECKBOX AS QCHECKBOX
     DIM RADIOBUTTON AS QRADIOBUTTON
     DIM COMBOBOX AS QCOMBOBOX
     DIM LISTBOX AS QLISTBOX
     DIM PANEL AS QPANEL
     DIM TABCONTROL AS QTABCONTROL
     DIM RICHEDIT AS QRICHEDIT
     DIM STRINGGRID AS QSTRINGGRID
     DIM SCROLLBOX AS QSCROLLBOX
     DIM STATUSBAR AS QSTATUSBAR
     DIM SCROLLBAR AS QSCROLLBAR
     DIM TRACKBAR AS QTRACKBAR
     DIM GAUGE AS QGAUGE
     DIM GROUPBOX AS QGROUPBOX
     DIM LISTVIEW AS QLISTVIEW
     DIM FILELISTBOX AS QFILELISTBOX


     SUB doit

      d.PRINT "CREATE LABEL AS QLABEL" : d.PRINT "Left = ",LABEL.Left : d.PRINT "Top = ",LABEL.Top : d.PRINT "Width = ",LABEL.Width : d.PRINT "Height = ",LABEL.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE EDIT AS QEDIT" : d.PRINT "Left = ",EDIT.Left : d.PRINT "Top = ",EDIT.Top : d.PRINT "Width = ",EDIT.Width : d.PRINT "Height = ",EDIT.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE BUTTON AS QBUTTON" : d.PRINT "Left = ",BUTTON.Left : d.PRINT "Top = ",BUTTON.Top : d.PRINT "Width = ",BUTTON.Width : d.PRINT "Height = ",BUTTON.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE COOLBTN AS QCOOLBTN" : d.PRINT "Left = ",COOLBTN.Left : d.PRINT "Top = ",COOLBTN.Top : d.PRINT "Width = ",COOLBTN.Width : d.PRINT "Height = ",COOLBTN.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE OVALBTN AS QOVALBTN" : d.PRINT "Left = ",OVALBTN.Left : d.PRINT "Top = ",OVALBTN.Top : d.PRINT "Width = ",OVALBTN.Width : d.PRINT "Height = ",OVALBTN.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE IMAGE AS QIMAGE" : d.PRINT "Left = ",IMAGE.Left : d.PRINT "Top = ",IMAGE.Top : d.PRINT "Width = ",IMAGE.Width : d.PRINT "Height = ",IMAGE.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE CANVAS AS QCANVAS" : d.PRINT "Left = ",CANVAS.Left : d.PRINT "Top = ",CANVAS.Top : d.PRINT "Width = ",CANVAS.Width : d.PRINT "Height = ",CANVAS.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE CHECKBOX AS QCHECKBOX" : d.PRINT "Left = ",CHECKBOX.Left : d.PRINT "Top = ",CHECKBOX.Top : d.PRINT "Width = ",CHECKBOX.Width : d.PRINT "Height = ",CHECKBOX.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE RADIOBUTTON AS QRADIOBUTTON" : d.PRINT "Left = ",RADIOBUTTON.Left : d.PRINT "Top = ",RADIOBUTTON.Top : d.PRINT "Width = ",RADIOBUTTON.Width : d.PRINT "Height = ",RADIOBUTTON.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE COMBOBOX AS QCOMBOBOX" : d.PRINT "Left = ",COMBOBOX.Left : d.PRINT "Top = ",COMBOBOX.Top : d.PRINT "Width = ",COMBOBOX.Width : d.PRINT "Height = ",COMBOBOX.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE LISTBOX AS QLISTBOX" : d.PRINT "Left = ",LISTBOX.Left : d.PRINT "Top = ",LISTBOX.Top : d.PRINT "Width = ",LISTBOX.Width : d.PRINT "Height = ",LISTBOX.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE PANEL AS QPANEL" : d.PRINT "Left = ",PANEL.Left : d.PRINT "Top = ",PANEL.Top : d.PRINT "Width = ",PANEL.Width : d.PRINT "Height = ",PANEL.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE TABCONTROL AS QTABCONTROL" : d.PRINT "Left = ",TABCONTROL.Left : d.PRINT "Top = ",TABCONTROL.Top : d.PRINT "Width = ",TABCONTROL.Width : d.PRINT "Height = ",TABCONTROL.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE RICHEDIT AS QRICHEDIT" : d.PRINT "Left = ",RICHEDIT.Left : d.PRINT "Top = ",RICHEDIT.Top : d.PRINT "Width = ",RICHEDIT.Width : d.PRINT "Height = ",RICHEDIT.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE STRINGGRID AS QSTRINGGRID" : d.PRINT "Left = ",STRINGGRID.Left : d.PRINT "Top = ",STRINGGRID.Top : d.PRINT "Width = ",STRINGGRID.Width : d.PRINT "Height = ",STRINGGRID.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE SCROLLBOX AS QSCROLLBOX" : d.PRINT "Left = ",SCROLLBOX.Left : d.PRINT "Top = ",SCROLLBOX.Top : d.PRINT "Width = ",SCROLLBOX.Width : d.PRINT "Height = ",SCROLLBOX.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE STATUSBAR AS QSTATUSBAR" : d.PRINT "Left = ",STATUSBAR.Left : d.PRINT "Top = ",STATUSBAR.Top : d.PRINT "Width = ",STATUSBAR.Width : d.PRINT "Height = ",STATUSBAR.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE SCROLLBAR AS QSCROLLBAR" : d.PRINT "Left = ",SCROLLBAR.Left : d.PRINT "Top = ",SCROLLBAR.Top : d.PRINT "Width = ",SCROLLBAR.Width : d.PRINT "Height = ",SCROLLBAR.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE TRACKBAR AS QTRACKBAR" : d.PRINT "Left = ",TRACKBAR.Left : d.PRINT "Top = ",TRACKBAR.Top : d.PRINT "Width = ",TRACKBAR.Width : d.PRINT "Height = ",TRACKBAR.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE GAUGE AS QGAUGE" : d.PRINT "Left = ",GAUGE.Left : d.PRINT "Top = ",GAUGE.Top : d.PRINT "Width = ",GAUGE.Width : d.PRINT "Height = ",GAUGE.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE FILELISTBOX AS QFILELISTBOX" : d.PRINT "Left = ",FILELISTBOX.Left : d.PRINT "Top = ",FILELISTBOX.Top : d.PRINT "Width = ",FILELISTBOX.Width : d.PRINT "Height = ",FILELISTBOX.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE RADIOBUTTON AS QRADIOBUTTON" : d.PRINT "Left = ",RADIOBUTTON.Left : d.PRINT "Top = ",RADIOBUTTON.Top : d.PRINT "Width = ",RADIOBUTTON.Width : d.PRINT "Height = ",RADIOBUTTON.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE GROUPBOX AS QGROUPBOX" : d.PRINT "Left = ",GROUPBOX.Left : d.PRINT "Top = ",GROUPBOX.Top : d.PRINT "Width = ",GROUPBOX.Width : d.PRINT "Height = ",GROUPBOX.Height : d.PRINT "END CREATE"
      d.PRINT "CREATE LISTVIEW AS QLISTVIEW" : d.PRINT "Left = ",LISTVIEW.Left : d.PRINT "Top = ",LISTVIEW.Top : d.PRINT "Width = ",LISTVIEW.Width : d.PRINT "Height = ",LISTVIEW.Height : d.PRINT "END CREATE"

     END SUB


     CREATE form AS QFORM
      CREATE myedit AS QBUTTON
       width = 120
       onclick = doit
      END CREATE

     END CREATE

     form.SHOWMODAL

2010-12-07 21:18