Dialog Transparent. Tenho um bug.

Post Reply
syda
Posts: 47
Joined: Sat Oct 08, 2005 9:12 pm

Dialog Transparent. Tenho um bug.

Post 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? :(
FWH 7.04 + xHarbour.com xBuild 0.99.71
Resource Builder 2.6 (thanks to Rene for the indication)
Windows XP Professional
Manaus - Amazonas - Brasil
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post 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.
João Santos - São Paulo - Brasil
syda
Posts: 47
Joined: Sat Oct 08, 2005 9:12 pm

Post 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.

Image
FWH 7.04 + xHarbour.com xBuild 0.99.71
Resource Builder 2.6 (thanks to Rene for the indication)
Windows XP Professional
Manaus - Amazonas - Brasil
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

Intente:

PESQOA(oDlg, DOCOA) //-> Referencie a Dialog Que voce quer mostrar os Say's.
João Santos - São Paulo - Brasil
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

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

oSay:lTransparent = .t.
oSay:SetBrush( oDlg:oBrush )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply