Como alterar o PICTURE dinamicamente?

[Itamar M. Lins Jr.]

Ola!
Neste caso o Alexander trocou de "Method ParsePict" para "Function ParsePict", então a sintaxe mudou na versão 2.19.
Mandei um email p/ ver como irá ficar se vai deixar como função(function) ou como metodo(method).

Saudações,
Itamar M. Lins Jr.

[andersoncamilo]

Itamar

Boa tarde.

Depois do seu post sobre a mudança de método para função, eu observei que a chamada no programa era via método, mudei para função mas a função ParsePict não é encontrada na compilação, qual a forma correta de chamar essa função.

Error: Unresolved external '_HB_FUN_PARSEPICT' referenced from D:\FONTES\SCMSYGECOM\SCM\OBJ\CADASTRO.OBJ

Estou linkando as seguintes bibliotecas:

hwgui.lib
hwg_extctrl.lib
hwg_qhtm.lib

E estou usando os seguintes includes neste modulo.

#include "windows.ch"
#include "inkey.ch"
#include "HWGUI.CH"
#include "scm.ch"
#include "hwg_extctrl.ch"


Obrigado.


Anderson Camilo

[Itamar M. Lins Jr.]

É isso, o Alexander, mudou de method para função estática, não podendo ser vista/acessada.

Código: Selecionar todos

//fonte hedit.prg versão 2.19
STATIC FUNCTION ParsePict( oEdit, cPicture, vari )
   LOCAL nAt, i, masklen, cChar
Era:
METHOD ParsePict( cPicture, vari ) CLASS HEdit
   LOCAL nAt, i, masklen, cChar

Eu mandei e mail p/ ele. Vamos aguardar se irá corrigir ou não.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Oi Itamar,
Como vc faz para mudar a mascara do get quando o combobox for carregado?

Eu uso uma picture para cada objeto, não uso parsepict.
Tenho oCPF VAR cCPF picture "@R 999.999...." e outra variável de nome oCNPJ VAR cCNPJ picture "@R 99.999..."
E uso RadioButton para habilitar ou não.

Código: Selecionar todos

   Get RadioGroup oPessoa VAR lPessoa

   @ 090,045 RadioButton "Pessoa Física"   SIZE 150,25 On Click {|| OffJuridica() }
   @ 300,045 RadioButton "Pessoa Jurídica" SIZE 150,25 On Click {|| OffFisica() }

   End RadioGroup Selected 1

Não uso a mesma variável e objeto p/ duas coisas(tipos de variáveis), penso que o código fica mais legível. Misturar campo "Caractere" com campo "Data" não vejo no código dos "gurus" isso.

Código: Selecionar todos

        store date() to dINI,dFIM
        Store space(4) TO cIni,cFim
        INIT DIALOG oDlg CLIPPER NOEXIT TITLE "Memória Fiscal" Font oFont AT 0,0 SIZE 310,200 ;
        On Init {||oGr02:Disable(),oRIni:Disable(),oRFim:Disable() } 

         Get RadioGroup oRG001 VAR vRG001
           @ 010,010 RadioButton "Por Data." SIZE 90,20     On Click {|| oGr01:Enable(),oIni:Enable(),oFim:Enable(),ocIni:Disable(),ocFim:Disable() }
           @ 010,030 RadioButton "Por Redução." SIZE 90,20  On Click {|| oGr02:Enable(),oIni:Enable(),oFim:Enable(),oGr01:Disable(),oIni:Disable(),oFim:Disable() }
         End RadioGroup Selected 1

           @ 010,060 groupbox oGr01 CAPTION "Data" of oDlg SIZE 120,90 FONT oFont
           @ 020,080 Get DatePicker oIni Var dIni size 100,20 //Of oGr01
           @ 020,110 Get DatePicker oFim Var dFim size 100,20 //Of oGr01

           @ 160,060 groupbox oGr02 CAPTION "Redução" of oDlg SIZE 120,90 FONT oFont
           @ 170,080 Get ocIni VAR cIni size 100,20 Picture '9999' //Of oGr02
           @ 170,110 Get ocFim VAR cFim size 100,20 Picture '9999' //Of oGr02

           @ 040,160 Button oBtCancel Caption 'Cancelar'   Size 70,30  ON CLICK {||hwg_EndDialog()}
           @ 200,160 Button oBtOk     Caption 'Confirmar'  Size 70,30  ON CLICK {||lOk:=.t.,hwg_EndDialog()}
           
        oDlg:Activate(,,,.T.)

Saudações,
Itamar . Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Pronto, problema resolvido.

Código: Selecionar todos

2015-05-25 16:10 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/gtk/draw.c
    ! Bug fixed.
  * source/gtk/hedit.prg
  * source/winapi/hedit.prg
    * Parsepict() is a method now.
  * utils/tutorial/tutor_eng.xml

Saudações,
Itamar M. Lins Jr.

[andersoncamilo]

Obrigado Itamar pela ajuda.


Anderson Camilo