Alguém poderia compartilhar um exemplo da classe FWUIWorkArea?
Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!
Alguém poderia compartilhar um exemplo da classe FWUIWorkArea?
Olá Guilherme,
Abaixo um exemplo de utilização:
//-------------------------------------------------------------------
/*/{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
A documentação foi atualizada com esse mesmo exemplo:
Daniel, obrigado pelo retorno.
— Guilherme Leonel 15 de Jul de 2021