gambas-source-code/app/examples/Database/MySQLExample/.src/FTables.form

# Gambas Form File 3.0

{ Form Form
  MoveScaled(0,0,99,72)
  Tag = "Catalogs"
  Text = ("Tables")
  Icon = Picture["icons/16/Table.png"]
  Arrangement = Arrange.Fill
  { mnuItem Menu
    Text = ("Item")
    Visible = False
    { mnuNewItem Menu
      Action = "NewItem"
      Text = ("New Item")
      Picture = Picture["icons/16/New.png"]
      Shortcut = "F2"
    }
    { mnuEditItem Menu
      Action = "EditItem"
      Text = ("Edit Item")
      Picture = Picture["icon:/16/edit"]
      Shortcut = "Ctrl+E"
    }
    { mnuDeleteItem Menu
      Action = "DeleteItem"
      Text = ("Delete Item")
      Picture = Picture["icon:/16/trash"]
      Shortcut = "Ctrl+Del"
    }
    { mnuRefresh Menu
      Action = "Refresh"
      Text = ("Refresh")
      Picture = Picture["icons/16/Refresh.png"]
      Shortcut = "F5"
    }
  }
  { vplMain VSplit
    MoveScaled(0,0,98,71)
    Expand = True
    { vbxTables VBox
      MoveScaled(1,1,97,37)
      { tbrMain ToolBar
        MoveScaled(0,1,84,4)
        { tbtLock ToolButton
          MoveScaled(0,0,4,4)
          ToolTip = ("Lock")
          Action = "Lock"
          Picture = Picture["icons/16/Lock.png"]
          Toggle = True
        }
        { Separator2 Separator
          MoveScaled(5,0,1,4)
        }
        { tbtNew ToolButton
          MoveScaled(7,0,4,4)
          ToolTip = ("New Table")
          Action = "NewItem"
          Picture = Picture["icons/16/New.png"]
        }
        { tbtDelete ToolButton
          MoveScaled(11,0,4,4)
          ToolTip = ("Delete Table")
          Action = "DeleteItem"
          Picture = Picture["icon:/16/trash"]
        }
        { tbtRefresh ToolButton
          MoveScaled(15,0,4,4)
          ToolTip = ("Refresh")
          Action = "Refresh"
          Picture = Picture["icons/16/Refresh.png"]
        }
        { Separator1 Separator
          MoveScaled(19,0,1,4)
        }
        { tbtNewDatabase ToolButton
          MoveScaled(21,0,4,4)
          ToolTip = ("New Database")
          Action = "NewDatabase"
          Picture = Picture["icons/16/Database.png"]
        }
        { tbtDeleteDatabase ToolButton
          MoveScaled(27,0,4,4)
          ToolTip = ("Delete Database")
          Action = "DeleteDatabase"
          Picture = Picture["icon:/16/remove"]
        }
        { Separator3 Separator
          MoveScaled(32,0,1,4)
        }
        { cmbDatabases ComboBox
          MoveScaled(35,0,24,4)
          ReadOnly = True
          Sorted = True
        }
      }
      { tabData TabStrip
        MoveScaled(1,8,95,26)
        Expand = True
        Arrangement = Arrange.Fill
        Count = 7
        Index = 0
        Text = ("Tables")
        Picture = Picture["icons/16/Table.png"]
        { tvwTables TableView
          MoveScaled(1,3,41,16)
          Mode = Select.Single
          Header = GridView.Both
        }
        Index = 1
        Text = ("Views")
        Picture = Picture["icons/16/View.png"]
        { tvwViews TableView
          MoveScaled(1,2,35,13)
          Expand = True
          Mode = Select.Single
          Header = GridView.Both
        }
        Index = 2
        Text = ("Indexes")
        Picture = Picture["icons/16/Index.png"]
        { tvwIndexes TableView
          MoveScaled(1,3,40,15)
          Expand = True
          Mode = Select.Single
          Header = GridView.Both
        }
        Index = 3
        Text = ("Fields on:")
        Picture = Picture["icons/16/Field.png"]
        { tvwFields TableView
          MoveScaled(2,3,39,16)
          Mode = Select.Single
          Header = GridView.Both
        }
        Index = 4
        Text = ("Routines")
        Picture = Picture["icons/16/Routine.png"]
        { tvwProcedures TableView
          MoveScaled(1,3,41,16)
          Expand = True
          Mode = Select.Single
          Header = GridView.Both
        }
        Index = 5
        Text = ("Triggers")
        Picture = Picture["icons/16/Trigger.png"]
        { tvwTriggers TableView
          MoveScaled(1,2,41,16)
          Expand = True
          Mode = Select.Single
          Header = GridView.Both
        }
        Index = 6
        Text = ("Events")
        Picture = Picture["icon:/16/clock"]
        { tvwEvents TableView
          MoveScaled(2,2,41,16)
          Expand = True
          Mode = Select.Single
          Header = GridView.Both
        }
        Index = 0
      }
    }
    { textResult TextArea
      MoveScaled(1,39,96,32)
    }
  }
}

# Gambas Action File 3.0

{ Actions
  { Action DeleteDatabase
    Text = "Delete Database"
    Picture = "icon:/16/remove"
  }
  { Action DeleteItem
    Text = "Delete Item"
    Shortcut = "Ctrl+Del"
    Picture = "icon:/16/trash"
  }
  { Action EditItem
    Text = "Edit Item"
    Shortcut = "Ctrl+E"
    Picture = "icon:/16/edit"
  }
  { Action Lock
    Text = "Lock"
    Picture = "icons/16/Lock.png"
  }
  { Action NewDatabase
    Text = "New Database"
    Picture = "icons/16/Database.png"
  }
  { Action NewItem
    Text = "New Item"
    Shortcut = "F2"
    Picture = "icons/16/New.png"
  }
  { Action Refresh
    Text = "Refresh"
    Shortcut = "F5"
    Picture = "icons/16/Refresh.png"
  }
}