Como colocar dois retangulos num DIALOG???

[Vandi]

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

[sygecom]

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

[Vandi]

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