ftable.form

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

# Gambas Form File 1.0

{ FTable Form
  Move(287,204,569,425)
  Text = ("")
  Icon = Picture["img/16/table.png"]
  Arrangement = Arrange.Vertical
  { Panel1 Panel
    Move(0,0,304,32)
    Arrangement = Arrange.Horizontal
    Spacing = 4
    Padding = 4
    Border = Border.Raised
    { PictureBox1 PictureBox
      Move(8,8,16,16)
      Picture = Picture["img/16/table.png"]
      Alignment = Align.Center
    }
    { lblTitle Label
      Move(40,0,200,24)
      Expand = True
      Text = ("")
    }
    { btnClose ToolButton
      Move(280,8,20,20)
      ToolTip = ("Close")
      Text = ("")
      Picture = Picture["img/16/close.png"]
    }
  }
  { HPanel1 HPanel
    Move(0,32,152,24)
    { btnSaveField ToolButton
      Move(0,0,24,24)
      ToolTip = ("Save table")
      Text = ("")
      Picture = Picture["img/16/save.png"]
    }
    { btnCancelField ToolButton
      Move(24,0,24,24)
      ToolTip = ("Reload table")
      Text = ("")
      Picture = Picture["img/16/undo.png"]
    }
    { btnRename ToolButton
      Move(48,0,24,24)
      ToolTip = ("Rename table")
      Text = ("")
      Picture = Picture["img/16/rename.png"]
    }
    { btnRequest ToolButton
      Move(72,0,24,24)
      ToolTip = ("SQL request")
      Text = ("")
      Picture = Picture["img/16/sql.png"]
    }
  }
  { tabTable TabStrip
    Move(0,56,440,136)
    Expand = True
    Count = 3
    Index = 0
    Text = ("Fields")
    Picture = Picture["img/16/table.png"]
    { btnUpField ToolButton
      Move(72,0,24,24)
      ToolTip = ("Move field up")
      Text = ("")
      Picture = Picture["img/16/up.png"]
    }
    { btnDownField ToolButton
      Move(48,0,24,24)
      ToolTip = ("Move field down")
      Text = ("")
      Picture = Picture["img/16/down.png"]
    }
    { btnKey ToolButton
      Move(96,0,24,24)
      ToolTip = ("Toggle primary key")
      Text = ("")
      Picture = Picture["img/16/key.png"]
    }
    { btnKillField ToolButton
      Move(24,0,24,24)
      ToolTip = ("Delete field")
      Text = ("")
      Picture = Picture["img/16/kill.png"]
    }
    { btnNewField ToolButton
      Move(0,0,24,24)
      ToolTip = ("New field")
      Text = ("")
      Picture = Picture["img/16/new.png"]
    }
    { tbvField TableView
      Move(0,24,416,288)
      Mode = TableView.Single
      Header = TableView.Horizontal
    }
    Index = 1
    Text = ("Indexes")
    Picture = Picture["img/16/index.png"]
    { btnNewIndex ToolButton
      Move(0,0,24,24)
      ToolTip = ("New index")
      Text = ("")
      Picture = Picture["img/16/index.png"]
    }
    { btnNewIndexField ToolButton
      Move(24,0,24,24)
      ToolTip = ("New index field")
      Text = ("")
      Picture = Picture["img/16/new.png"]
    }
    { btnKillIndex ToolButton
      Move(48,0,24,24)
      ToolTip = ("Delete index field")
      Text = ("")
      Picture = Picture["img/16/kill.png"]
    }
    { btnDownIndex ToolButton
      Move(72,0,24,24)
      ToolTip = ("Move field down")
      Text = ("")
      Picture = Picture["img/16/down.png"]
    }
    { btnUpIndex ToolButton
      Move(96,0,24,24)
      ToolTip = ("Move field up")
      Text = ("")
      Picture = Picture["img/16/up.png"]
    }
    { tbvIndex TableView
      Move(0,24,408,280)
      Mode = TableView.Single
      Header = TableView.Horizontal
    }
    Index = 2
    Text = ("Data")
    Picture = Picture["img/16/data.png"]
    Index = 0
  }
}