Page 1 of 1
Dialog Transparent. Tenho um bug.
Posted: Wed Feb 22, 2006 5:25 pm
by 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?
Posted: Wed Feb 22, 2006 5:30 pm
by 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.
Posted: Wed Feb 22, 2006 6:33 pm
by 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.
Posted: Wed Feb 22, 2006 6:36 pm
by karinha
Intente:
PESQOA(oDlg, DOCOA) //-> Referencie a Dialog Que voce quer mostrar os Say's.
Posted: Wed Feb 22, 2006 11:02 pm
by Antonio Linares
A cada SAY que crees desde una función hazle:
oSay:lTransparent = .t.
oSay:SetBrush( oDlg:oBrush )