Vou abusar dos colegas de novo e pedir ajuda com um probleminha besta que estou enfrentado:
Estou editando uma tabela via BROWSE e associado ao registro, pode existir um arquivo BMP. Encontrando, o BMP é editado por um objeto IMAGE atrvés da propriedade PICTURE. Até aí, fácil, né?
O problema é que a maioria não é mostrada ficando o objeto IMAGE "em branco", mesmo encontrando o arquivo BMP na pasta de imagens.
Abaixo, a função que estou usando para capturar a imagem. A função é ativada pelo evento ONCHANGE do BROWSE.
O detalhe é que ele localiza o arquivo, apenas não edita.
Código: Selecionar todos
FUNC Exibe_Imagem()
LOCAL xImg
xImg := "Imagens\i" + ALLTRIM(STR(VAL(CLIENTES->MATRIC),7,0)) + ".bmp"
IF FILE( xImg ) // Procura pelo arquivo BMP na pasta Imagens
MSGINFO(xImg )
Frm_Firmas.Image_1.Picture := xImg
ELSE
//MSGINFO("IMAGEM NÃO LOCALIZADA")
Frm_Firmas.Image_1.Picture := "Imagens\nao.bmp" // BMP que avisa não existir imagem para esse registro.
ENDIF
RETU .T.Desde já, agradeço a ajuda.
Saudações,
Mario.


