[Gambas-user] Workspace

[Roberto Estevam]

PUBLIC AreaTrabalho AS Workspace
PRIVATE FormGr AS Form


PUBLIC SUB Form_Open()


 AreaTrabalho = NEW Workspace(ME)
 AreaTrabalho.X = 5
 AreaTrabalho.Y = 48
 AreaTrabalho.Width = ME.Width - 10
 AreaTrabalho.Height = ME.Height - 80
 AreaTrabalho.BackColor = Color.Blue ' The color doesnt work, and the
pictures on background doesnt work to
 ME.Center

END

PUBLIC SUB Form_Resize()


 AreaTrabalho.X = 5
 AreaTrabalho.Y = 48
 AreaTrabalho.Width = ME.Width - 10
 AreaTrabalho.Height = ME.Height - 80

END