2010-12-07 21:18

'use this for the form designer mode

     CREATE PropertiesTab AS QTABCONTROL
      PARENT = LeftLowerPanel
      Top = 17
      Left = - 1
      Width = 289
      Height = 120
      Align = alClient
      AddTabs("Properties" , "Methods" , "Events")
      ShowHint = 0
      FocusButtons = 0
          'FlatButtons=1
          'FlatSeperators=0
          'ButtonStyle = 1
      TabInactiveColor = clBtnFace
      OnChange = PropertiesTabChange
      HotTrack = True
      CREATE Panel0properties AS QPANEL
       Top = 24
       Left = 0
       Width = 185
       Visible = True
       CAPTION = "Panel0Properties"
       Align = 5
       COLOR = &HC8D0D4
       CREATE StringGridProperties AS QSTRINGGRID
        fixedrows = 0
        FixedCols = 0
        ColCount = 2
        RowCount = 35
        EditorMode = 1
        AddOptions(goEditing)
        AddOptions(goDrawFocusSelected)
        AddOptions(goTabs)
        AddOptions(goColSizing)
        AddOptions(goThumbTracking)
        OnSetEditText = proprietagrigliatoform
        DefaultRowHeight = 16
        Align = 5
        Top = 32
        Left = 8
        Width = 168
       END CREATE
      END CREATE
      CREATE Panel1properties AS QPANEL
       Align = 5
       Top = 24
       Left = 0
       Width = 185
       Visible = False
       CAPTION = "Panel1Properties"
       COLOR = &HC8D0D4
       CREATE StringGridMethods AS QSTRINGGRID
        fixedrows = 0
        FixedCols = 0
        ColCount = 2
        RowCount = 30
        DefaultRowHeight = 16
        Align = 5
        Top = 32
        Left = 8
        Width = 168
       END CREATE
      END CREATE
      CREATE Panel2properties AS QPANEL
       Align = 5
       Top = 24
       Left = 0
       Width = 185
       CAPTION = "Panel2Properties"
       Visible = False
       COLOR = &HC8D0D4
       CREATE StringGridEvents AS QSTRINGGRID
        fixedrows = 0
        FixedCols = 0
        ColCount = 2
        RowCount = 24
        DefaultRowHeight = 16
        Align = 5
        Top = 32
        Left = 8
        Width = 168
       END CREATE
      END CREATE
     END CREATE


     SUB PropertiesTabChange
      SELECT CASE Tabproperties.TabIndex
      CASE 0
       Panel0properties.Visible = True
       Panel1properties.Visible = False
       Panel2properties.Visible = False

      CASE 1
       Panel1properties.Visible = True
       Panel0properties.Visible = False
       Panel2properties.Visible = False

      CASE 2
       Panel2properties.Visible = True
       Panel1properties.Visible = False
       Panel0properties.Visible = False

      END SELECT
     END SUB

2010-12-07 21:18