Clipper On Line • Ver Tópico - exibir imagem bmp

exibir imagem bmp

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

exibir imagem bmp

Mensagempor Minduim » 28 Dez 2018 07:10

colegas, bom dia;

por gentileza, vocês poderiam me orientar;

estou tentando jogar para dentro do executável uma imagem (para que o usuário não possa modifica-la), para depois exibi-la;
na compilação e execução não apresenta erro, mas a imagem não aparece;

no arquivo .rc:
AppImagem1        BITMAP     "Imagem1.bmp"


no executável:
aPaint:= {}
aadd( aPaint, { NIL , { || Wvt_DrawImage( 0, 0, MaxRow(), MaxCol(), "AppImagem1" ) }, NIL } )
WvtSetPaint( aPaint )

********************************
function Wvt_Paint()

   WvtPaintObjects()
   Return Nil


Harbour 3.4.0dev () (2017-11-27 13:02)
MinGw 0801
Minduim
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 59
Data de registro: 06 Abr 2011 13:02
Cidade/Estado: Santo andré - SP
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

exibir imagem bmp

Mensagempor JoséQuintas » 28 Dez 2018 11:23

Vamos por partes, porque esse uso de WVG/WVT é meio complicado, apesar de estar nos exemplos.

Por enquanto limitar a parte de desenhar imagem.
O desenho da imagem é feito por:

Wvt_DrawImage( 0, 0, MaxRow(), MaxCol(), "AppImagem1" )

Sem o resto, isso ainda faz o desenho, mas mexendo na janela ele some.
Até aí tudo bem, por enquanto o problema é desenhar....

Não sei se wvt_DrawImage() tem parâmetro pra resource, senão vai procurar o arquivo "AppImagem1" no disco.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

exibir imagem bmp

Mensagempor JoséQuintas » 28 Dez 2018 11:39

Encontrei isto no fonte da função

/* wvt_DrawImage( nTop, nLeft, nBottom, nRight, cImage/nPictureSlot, aPxlOff, lDoNotScale ) */


Nos dois casos, cImage ou nPictureSlot, a origem é disco.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

exibir imagem bmp

Mensagempor Minduim » 29 Dez 2018 09:15

grande quintas;
Não sei se wvt_DrawImage() tem parâmetro pra resource, senão vai procurar o arquivo "AppImagem1" no disco.

as vezes a resposta esta na nossa cara e não conseguimos ver;

ainda sem sucesso, mas agora estou fazendo testes assim:

no .rc
101        BITMAP     "Imagem1.bmp"


no executável
aPaint:= {}
aadd( aPaint, { NIL , { || Wvw_DrawImage_Resource( , 0, 0, MaxRow(), MaxCol(), 101, .F. ) }, NIL } )
WvtSetPaint( aPaint )
   
   
********************************
function Wvt_Paint()
   
   WvtPaintObjects()
   Return Nil
Minduim
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 59
Data de registro: 06 Abr 2011 13:02
Cidade/Estado: Santo andré - SP
Curtiu: 0 vez
Mens.Curtidas: 2 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro