PC Toledo

Bom dia,

Estou querendo colocar 02 retangulos em uma janela DIALOG, uma ao lado da outra, mas não estou conseguindo.
A primeira é colocada corretamente, mas a segunda não dá certo.
O que pode estar errado no código exemplo abaixo?

Código: Selecionar todos

*---------------------------------------------------------------------------------------
Function VendaDiaria()   
*---------------------------------------------------------------------------------------
Local TelaVenda1, quadro1,quadro2, oFontBtn, Titulo:="Venda Diaria Analitica"

   PREPARE FONT oFontBtn NAME "Arial" WIDTH 0 HEIGHT -12

   INIT DIALOG TelaVenda1 CLIPPER NOEXIT TITLE Titulo SIZE 730, 520 Font oFontBtn

   @  30, 30,100,200 RECT quadro1 of TelaVenda1 RECT_STYLE 3
   @ 210, 30,100,200 RECT quadro2 of TelaVenda1 RECT_STYLE 3

   ACTIVATE DIALOG TelaVenda1 ON activate {|o| TelaVenda1:center()}

Return Nil

Gilvandi

Olá Vandi,
Acho que teus retângulos estão sobrepondo, tente assim:

Código: Selecionar todos

*---------------------------------------------------------------------------------------
Function VendaDiaria()
*---------------------------------------------------------------------------------------
Local TelaVenda1, quadro1,quadro2, oFontBtn, Titulo:="Venda Diaria Analitica"

 PREPARE FONT oFontBtn NAME "Arial" WIDTH 0 HEIGHT -12

 INIT DIALOG TelaVenda1 CLIPPER NOEXIT TITLE Titulo SIZE 730, 520 Font oFontBtn

 @ 18,105,210,215 RECT quadro1 OF TelaVenda1 RECT_STYLE 3
 @ 18,220,430,395 RECT quadro2 OF TelaVenda1 RECT_STYLE 3

 ACTIVATE DIALOG TelaVenda1 ON activate {|o| TelaVenda1:center()}

Return Nil

Sygecom,

Boa noite,

Baseando-me no seu código, alterei uns parâmetros e resolví o problema, conforme o código abaixo:

Código: Selecionar todos

*---------------------------------------------------------------------------------------
Function VendaDiaria()
*---------------------------------------------------------------------------------------
Local TelaVenda1, quadro1,quadro2, oFontBtn, Titulo:="Venda Diaria Analitica"

 PREPARE FONT oFontBtn NAME "Arial" WIDTH 0 HEIGHT -12

 INIT DIALOG TelaVenda1 CLIPPER NOEXIT TITLE Titulo SIZE 730, 520 Font oFontBtn

     @ 18, 55,275,395 RECT quadro1 OF TelaVenda1 RECT_STYLE 3
     @288, 55,545,395 RECT quadro2 OF TelaVenda1 RECT_STYLE 3

 ACTIVATE DIALOG TelaVenda1 ON activate {|o| TelaVenda1:center()}

Return Nil

Obrigado...
Gilvandi

PC Toledo

Como colocar dois retangulos num DIALOG???

Como colocar dois retangulos num DIALOG???

Como colocar dois retangulos num DIALOG???

Como colocar dois retangulos num DIALOG??? Resolvido!!!