Alguém poderia compartilhar um exemplo da classe FWUIWorkArea?
Exemplo da classe FWUIWorkArea
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
1 resposta
-
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
-