Wvg_Image() ou Wvg_DrawImage() não carrega imagens WVGCRT()

GTWVG com API Windows somente no Harbour.
No Harbouir 3.4 está sendo usado pointer, aonde no 3.2 é numérico.

Moderador: Moderadores

microvolution
Usuário Nível 5
Usuário Nível 5
Mensagens: 1231
Registrado em: 02 Set 2011 22:17
Contato:

Wvg_Image() ou Wvg_DrawImage() não carrega imagens WVGCRT()

Mensagem por microvolution »

Alguém já passou por isso?
se usar o seguinte fora do wvgcrt() funciona:

Código: Selecionar todos

Wvg_Image     ( 01 , 01 , 08 , 29 ,  , GOBJ_IMAGESOURCE_FILE, TLogin , , .f. )
Já dentro de uma função que cria o WvgCrt() não funciona.
A minha WVG_CRT é basicamente a mesma coisa da pasta TESTS, só com algumas modificações:

Código: Selecionar todos

   WITH OBJECT oCrt := WvgCrt():New( , , { nTop , nLef }, { nBot , nRig }, , .t. )
      :lModal    := .t.
      :title     :=  cTit
      :icon      := "AppIcon"
      :resizable := .F.
      :closable  := .F.
      :minMax    := .F.
      :lbDblClick( )
      :create()
      :setColorFG(cCor)
   ENDWITH
      Wvg_Image     ( 01 , 01 , 08 , 29 ,  , GOBJ_IMAGESOURCE_FILE, TLogin , , .t. )
      Wvg_DrawImage ( 1, 1, 10, 10, TLogin, , .f. )
Talvez esteja faltando alguma outra peça pra funcionar, que eu não vi no demowvg.prg.
Grato,
MICROVOLUTION - 16 anos Evoluindo Com Você!


Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Wvg_Image() ou Wvg_DrawImage() não carrega imagens WVGCRT()

Mensagem por JoséQuintas »

Realmente....
Agora que estou vendo, que a wvg original pode ser limitada.
Geralmente ao criar um objeto GUI, é indicado o hWnd da janela que vai receber o objeto.
Se wvgImage() não tem isso, é tentar executá-la com o foco na janela wvgCrt().

Tentando traduzir:

A janela principal da wvg é uma janela... óbvio.
WvgCrt() é outra janela.
Ao colocar a imagem, vai colocar em qual das janelas?
Sinceramente não sei como a wvg decide, se usar a janela atual como referência, o comando deve ser executado depois do foco ficar em wvgCrt()

Como desde o começo uso multithread, no final todas as minhas janelas são principais, nem sei como seria o uso de wvgCrt().
Se não me engano, nos exemplos tem o uso de SetGt() que é uma função que está dentro do exemplo, pra trocar a GT em uso. (equivalente a trocar janela). Se nos exemplos funciona, então é fazer igual nos exemplos.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder