fserver.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 63 行

# Gambas Form File 1.0

{ FServer Form
  Move(350,212,344,250)
  Text = ("New connection")
  Icon = Picture["img/16/host.png"]
  Border = Window.Fixed
  { lblTitle Label
    Move(8,8,256,40)
    Font = Font["16,Bold"]
    Text = ("New server")
  }
  { Image1 PictureBox
    Move(288,8,48,48)
    Picture = Picture["img/32/server.png"]
    Stretch = True
  }
  { Label1 Label
    Move(16,72,120,24)
    Text = ("Type")
  }
  { cmbType ComboBox
    Move(144,72,192,24)
    Text = (" ")
    List = ("postgresql\nmysql\nsqlite")
  }
  { Label2 Label
    Move(16,104,120,24)
    Text = ("Host")
  }
  { txtHost TextBox
    Move(144,104,192,24)
    Text = ("")
  }
  { Label3 Label
    Move(16,136,112,24)
    Text = ("User")
  }
  { txtUser TextBox
    Move(144,136,192,24)
    Text = ("")
  }
  { Label4 Label
    Move(16,168,112,24)
    Text = ("Password")
  }
  { txtPassword TextBox
    Move(144,168,192,24)
    Text = ("")
    Password = True
  }
  { btnOK Button
    Move(136,216,96,24)
    Text = ("OK")
    Default = True
  }
  { btnCancel Button
    Move(240,216,96,24)
    Text = ("Cancel")
    Cancel = True
  }
}