Dialog Transparent. Tenho um bug.

[syda]

Code: Select all

DEFINE DIALOG ODLG2 TITLE  "Pesagem Acabado" SIZE 620,548 COLOR CLPRETO,RGB(140,182,255) TRANSPARENT

@ 01,02 SAY 'Docto nº....: ' + M->CODSEQMV OF ODLG2 FONT OFCOURIER14B COLOR CLNAVY
@ 02,02 SAY 'Data Emissão: ' + DTOC(M->DATMOV) OF ODLG2 
@ 03,02 SAY 'O.A. Nº.....: ' OF ODLG2 
@ 03.5,09 GET oGet1 VAR M->DOCOA OF ODLG2 VALID PESQOA(M->DOCOA) SIZE 25,12

STATIC FUNCTION PESQOA(DOCOA)
...
@ 50,280 BBOX SIZE 150,50 OF ODLG2 COLOR CLNAVY, CLAZUL, CLRED PIXEL PROMPT 'SALDO A PRODUZIR' ALIGN 1
@ 70,350 SAY TRANS(SALDAC,'@R 99,999') OF ODLG2 SIZE 70,16 COLOR CLRED PIXEL FONT OFCOURIER14B

Este SAY dentro de FUNCTION PESQOA() aparece com fundo cinza. Somente os SAYs que utilizo fora de funções chamadas ficam transparentes. O que estou fazendo errado?

[karinha]

LOCAL oBrush

//-> Su BitMap en Tu Directorio di Trabajo.
DEFINE BRUSH oBrush FILE "COMPAR.BMP"

DEFINE DIALOG oDlg RESOURCE "DLG_PROCURAR_DONO_CHEQUE" ;
BRUSH oBrush TRANSPARENT

oDlg:lHelpIcon := .F.

[syda]

João,

O problema não é mostrar o Brush de forma transparente, isto funciona, o que não está funcionando é quando eu preciso usar um SAY de dentro de uma função.

[karinha]

Intente:

PESQOA(oDlg, DOCOA) //-> Referencie a Dialog Que voce quer mostrar os Say's.

[Antonio Linares]

A cada SAY que crees desde una función hazle:

oSay:lTransparent = .t.
oSay:SetBrush( oDlg:oBrush )