Histórico da Página

//-------------------------------------------------------------------
/*/{Protheus.doc} u_workArea
Exemplo de utilização da classe FWUIWorkArea

@author Daniel Mendes
@since 15/07/2021
@version 1.0
/*/
//-------------------------------------------------------------------
function u_workArea()
local oDialog as object
local oWorkArea as object
local oSay1 as object
local oSay2 as object
local oSay3 as object
local oSay4 as object

oDialog := TDialog():New(0, 0, 800, 800, "FWUIWorkArea",,,,,,,,,.T.)
oWorkArea := FWUIWorkArea():new(oDialog)

oWorkArea:CreateHorizontalBox("MEUID", 30 , .F.)
oWorkArea:CreateHorizontalBox("MEUOUTROID", 70 , .F.)

oWorkArea:SetBoxCols("MEUID" , {"WIDGET1", "WIDGET2"} )
oWorkArea:SetBoxCols("MEUOUTROID" , {"WIDGET3", "WIDGET4"} )

oWorkArea:Activate()

oSay1 := TSay():New(01, 01, {||"Superior esquerdo"}, oWorkArea:GetPanel("WIDGET1"))
oSay2 := TSay():New(01, 01, {||"Superior direito"}, oWorkArea:GetPanel("WIDGET2"))
oSay3 := TSay():New(01, 01, {||"Inferior esquerdo"}, oWorkArea:GetPanel("WIDGET3"))
oSay4 := TSay():New(01, 01, {||"Inferior direito"}, oWorkArea:GetPanel("WIDGET4"))

oDialog:Activate()

return