Arquivo XFM

[Marcelo Coelho Silva]

Prezados Senhores,
Todo vez que eu altero o arquivo Frm_Orcamento.prg (parte do meu
programa) este acrescenta automaticamente um "IF" no arquivo
Frm_Orcamento.xfm que provoca erro durante a execução do Programa.
Manualmente eu retiro o "IF" ; porem qualquer auteração no PRG gera o
"IF" e os "lCreate" novamente no XFM.
O que pode estar acontecendo ?
Desde já agradeço,
Obrigado,
Marcelo Coelho Silva
Brasil.
****** XFM com o "IF" : ******
METHOD CreateForm( lCreate ) CLASS TFrm_Orcamentos
IF lCreate
::SetBounds( 310, 226, 777, 449 )
::SetClientSize( 769, 415 )
::cText := "Orçamentos"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::OnInitialize := "FormInitialize"
::Create()
ENDIF
Super:CreateForm( .F. )
****** XFM Consertado: ******
METHOD CreateForm() CLASS TFrm_Orcamentos
Super:CreateForm()
::SetBounds( 305, 226, 777, 449 )
::SetClientSize( 769, 415 )
::cText := "Orçamentos"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::OnInitialize := "FormInitialize"
::Create()

[Xevi]

Marcelo,
Eso te ocurre porque estas utilizando el IDE de l versión 2 y compilas con
la versión 1xx. El parámetro lCreate es utilizado en la versión 2 de
Xailer,... lee las novedades de la versión, por lo que No ES COMPATIBLE con
versiones anteriores de Xailer
Yo por es mismo motivo estoy todavía utilizando el IDE de la 1.9.9 y así la
puedo cmpilar con ambas versiones de Xailer.
Un saludo,
Xevi.
"Marcelo Coelho Silva" <marcelo@mhacker.com> escribió en el mensaje
news:[email=4b58c243@svctag-j7w3v3j....]4b58c243@svctag-j7w3v3j....[/email]
> Prezados Senhores,
>
> Todo vez que eu altero o arquivo Frm_Orcamento.prg (parte do meu programa)
> este acrescenta automaticamente um "IF" no arquivo Frm_Orcamento.xfm que
> provoca erro durante a execução do Programa.
>
> Manualmente eu retiro o "IF" ; porem qualquer auteração no PRG gera o "IF"
> e os "lCreate" novamente no XFM.
>
> O que pode estar acontecendo ?
>
> Desde já agradeço,
>
> Obrigado,
>
> Marcelo Coelho Silva
> Brasil.
>
> ****** XFM com o "IF" : ******
>
> METHOD CreateForm( lCreate ) CLASS TFrm_Orcamentos
>
> IF lCreate
> ::SetBounds( 310, 226, 777, 449 )
> ::SetClientSize( 769, 415 )
> ::cText := "Orçamentos"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::OnInitialize := "FormInitialize"
> ::Create()
> ENDIF
> Super:CreateForm( .F. )
>
>
>
>
>
> ****** XFM Consertado: ******
>
> METHOD CreateForm() CLASS TFrm_Orcamentos
>
> Super:CreateForm()
> ::SetBounds( 305, 226, 777, 449 )
> ::SetClientSize( 769, 415 )
> ::cText := "Orçamentos"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::OnInitialize := "FormInitialize"
> ::Create()

[Marcelo Coelho Silva]

Xevi,
Estou utilizando tanto para editar (IDE), quanto para compilar a versão
2.05 . Porem, o Projeto foi iniciado utilizando a versão 1.99, mas só
apresenta este erro neste PRG/XFM.
Att.
Marcelo Coelho Silva
Brasil
Em 22/1/2010 05:13, Xevi escreveu:
> Marcelo,
>
> Eso te ocurre porque estas utilizando el IDE de l versión 2 y compilas con
> la versión 1xx. El parámetro lCreate es utilizado en la versión 2 de
> Xailer,... lee las novedades de la versión, por lo que No ES COMPATIBLE con
> versiones anteriores de Xailer
> Yo por es mismo motivo estoy todaví­a utilizando el IDE de la 1.9.9 y así­ la
> puedo cmpilar con ambas versiones de Xailer.
>
> Un saludo,
> Xevi.
>
>
> "Marcelo Coelho Silva"<marcelo@mhacker.com> escribió en el mensaje
> news:[email=4b58c243@svctag-j7w3v3j....]4b58c243@svctag-j7w3v3j....[/email]
>> Prezados Senhores,
>>
>> Todo vez que eu altero o arquivo Frm_Orcamento.prg (parte do meu programa)
>> este acrescenta automaticamente um "IF" no arquivo Frm_Orcamento.xfm que
>> provoca erro durante a execução do Programa.
>>
>> Manualmente eu retiro o "IF" ; porem qualquer auteração no PRG gera o "IF"
>> e os "lCreate" novamente no XFM.
>>
>> O que pode estar acontecendo ?
>>
>> Desde já agradeço,
>>
>> Obrigado,
>>
>> Marcelo Coelho Silva
>> Brasil.
>>
>> ****** XFM com o "IF" : ******
>>
>> METHOD CreateForm( lCreate ) CLASS TFrm_Orcamentos
>>
>> IF lCreate
>> ::SetBounds( 310, 226, 777, 449 )
>> ::SetClientSize( 769, 415 )
>> ::cText := "Orçamentos"
>> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
>> ::OnInitialize := "FormInitialize"
>> ::Create()
>> ENDIF
>> Super:CreateForm( .F. )
>>
>>
>>
>>
>>
>> ****** XFM Consertado: ******
>>
>> METHOD CreateForm() CLASS TFrm_Orcamentos
>>
>> Super:CreateForm()
>> ::SetBounds( 305, 226, 777, 449 )
>> ::SetClientSize( 769, 415 )
>> ::cText := "Orçamentos"
>> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
>> ::OnInitialize := "FormInitialize"
>> ::Create()
>
>

[emeasoft]

Marcelo, boa tarde,
Se vocíª está usando o X 2.0.5 deverá ficar assim
IF lCreate
::SetBounds( 310, 226, 777, 449 )
::SetClientSize( 769, 415 )
::cText := "Orçamentos"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::OnInitialize := "FormInitialize"
::Create()
ENDIF
Super:CreateForm( .F. )
Então não deveria dar erro.
Todavia, teria como explicar qual é o erro que está acusando,
se possí­vel um printscreen da tela.
Outra coisa, crie um projeto novo e novo TForm e veja o .XFM
para efeito de comparação.
Qualquer coisa se quiser mandar um exemplo, podemos dar
uma analisada.
Abraços.
Mário Angelini
www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft

[Marcelo Coelho Silva]

Mario,
Abaixo seque mensagem de erro, lembrando que o projeto começou a ser
desenvolvido na versão 1.99 e foi continuado na versão 2.05 do Xailer:
******************************* Error log file ************************
Exe: c:mhackerbinStockTTE.exe
Version: 0.0.1.11
User name: Usuario
Computer name: PC
Data: 23/01/2010
Hora: 16:32:39
Memória Disponí­vel: 205964
írea Actual: 1
-------------------------- Informação do Compilador -------------------
Versão do Xailer: Xailer 2.0.5 Version 2.0.5
Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511)
PCode Version: 10
Compilador C/C++ : Borland C++ 5.5.1 (32 bit)
Plataforma Windows: Windows XP Professional 5.01.2600 Service Pack 3
-------------------- Informação de manejo de erro interno -------------
Chamada Subsistema: BASE
Código Sistema: 1066
Status por Defeito: .F.
Descrição: Argument error
Operação: conditional
Argumentos: [ 1] = Tipo: U Val: NIL
Ficheiros Involvidos:
Dos Error Code: 0
Trace Through:
TFRM_ORCAMENTOS:CREATEFORM (3)
TFRM_ORCAMENTOS:NEW (36)
TFORM1:ORCAMENTOS (438)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (391)
TREBAR:WMCOMMAND (272)
RUNFORM (0)
TAPPLICATION:RUN (272)
MAIN (18)
Obrigado,
Marcelo Coelho Silva
Brasil
Em 22/1/2010 13:54, Mário Angelini escreveu:
> Marcelo, boa tarde,
>
> Se vocíª está usando o X 2.0.5 deverá ficar assim
>
> IF lCreate
> ::SetBounds( 310, 226, 777, 449 )
> ::SetClientSize( 769, 415 )
> ::cText := "Orçamentos"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::OnInitialize := "FormInitialize"
> ::Create()
> ENDIF
> Super:CreateForm( .F. )
>
>
> Então não deveria dar erro.
> Todavia, teria como explicar qual é o erro que está acusando,
> se possí­vel um printscreen da tela.
> Outra coisa, crie um projeto novo e novo TForm e veja o .XFM
> para efeito de comparação.
> Qualquer coisa se quiser mandar um exemplo, podemos dar
> uma analisada.
> Abraços.
>
> Mário Angelini
> www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
>
>

[jrcpoli-quitar]

Marcelo:
Si estas Utilizando CreateForm()
Lee esto:
Deberí­as cambiar la llamada y utilizar New(Self) y no CreateForm( Self),
no es que lo diga yo es un recomendación de José F., que un articulo
publicado en http://xailer.info/esp/?p=22 decí­a esto.
Ya hemos visto que New() se encarga de instanciar e inicializar el
objeto. Además, en el caso de los formularios, se llama internamente al
método CreateForm(), que reside en el fichero .xfm. Este fichero .xfm es
simplemente un fichero fuente con el mismo nombre que el .prg al que
corresponde pero con esta extensión, que significa Xailer ForM. La
principal razón de que esté separado del .prg es que así­ el IDE puede
tratarlo con mayor facilidad, y a fin de cuentas, al ser código generado
por el IDE, no necesitamos tenerlo por ahí­ en medio estorbando; nos
basta con saber lo que es y lo que contiene, y si en algún momento lo
abrimos para verlo es por pura curiosidad.
Usted no deberí­a en ningún caso utilizar el método CreateForm(). Ese es
un método reservado y por tanto pueden cambiar sus parametros o
funcionamiento entre versiones, como ha sido el caso, ya que ahora exige
un primer parámetro lógico. Utilice el método New()
WITH OBJECT oFrm = INTRODUCIR_IMPORTE():New( Self )
José Ramón Castro.
Marcelo Coelho Silva escribió:
> Prezados Senhores,
>
> Todo vez que eu altero o arquivo Frm_Orcamento.prg (parte do meu
> programa) este acrescenta automaticamente um "IF" no arquivo
> Frm_Orcamento.xfm que provoca erro durante a execução do Programa.
>
> Manualmente eu retiro o "IF" ; porem qualquer auteração no PRG gera o
> "IF" e os "lCreate" novamente no XFM.
>
> O que pode estar acontecendo ?
>
> Desde já agradeço,
>
> Obrigado,
>
> Marcelo Coelho Silva
> Brasil.
>
> ****** XFM com o "IF" : ******
>
> METHOD CreateForm( lCreate ) CLASS TFrm_Orcamentos
>
> IF lCreate
> ::SetBounds( 310, 226, 777, 449 )
> ::SetClientSize( 769, 415 )
> ::cText := "Orçamentos"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::OnInitialize := "FormInitialize"
> ::Create()
> ENDIF
> Super:CreateForm( .F. )
>
>
>
>
>
> ****** XFM Consertado: ******
>
> METHOD CreateForm() CLASS TFrm_Orcamentos
>
> Super:CreateForm()
> ::SetBounds( 305, 226, 777, 449 )
> ::SetClientSize( 769, 415 )
> ::cText := "Orçamentos"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::OnInitialize := "FormInitialize"
> ::Create()

[jrcpoli-quitar]

Marcelo:
Si estas utilizando el ejemplo DBFData6 para el desarrollo de tú
aplicación debes de hacer el siguiente cambio:
En el módulo FrmFolder.prg modifica el método New() de la siguiente forma:
METHOD New( oParent ) CLASS TFormFolder
Super:New( oParent )
::CreateForm( .T. ) // El valor lógico VERDADERO es lo único que cambia
::OnInitialize()
RETURN Self
José Ramón Castro.
Marcelo Coelho Silva escribió:
> Mario,
>
> Abaixo seque mensagem de erro, lembrando que o projeto começou a ser
> desenvolvido na versão 1.99 e foi continuado na versão 2.05 do Xailer:
>
> ******************************* Error log file ************************
>
> Exe: c:mhackerbinStockTTE.exe
> Version: 0.0.1.11
> User name: Usuario
> Computer name: PC
> Data: 23/01/2010
> Hora: 16:32:39
> Memória Disponí­vel: 205964
> írea Actual: 1
>
> -------------------------- Informação do Compilador -------------------
>
> Versão do Xailer: Xailer 2.0.5 Version 2.0.5
> Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode
> Version: 10
> Compilador C/C++ : Borland C++ 5.5.1 (32 bit)
> Plataforma Windows: Windows XP Professional 5.01.2600 Service Pack 3
>
> -------------------- Informação de manejo de erro interno -------------
>
> Chamada Subsistema: BASE
> Código Sistema: 1066
> Status por Defeito: .F.
> Descrição: Argument error
> Operação: conditional
> Argumentos: [ 1] = Tipo: U Val: NIL
> Ficheiros Involvidos:
> Dos Error Code: 0
>
> Trace Through:
> TFRM_ORCAMENTOS:CREATEFORM (3)
> TFRM_ORCAMENTOS:NEW (36)
> TFORM1:ORCAMENTOS (438)
> TTOOLBUTTON:ONCLICK (0)
> (b)XTOOLBUTTON:XTOOLBUTTON (41)
> TTOOLBUTTON:CLICK (0)
> TTOOLBAR:COMMAND (391)
> TREBAR:WMCOMMAND (272)
> RUNFORM (0)
> TAPPLICATION:RUN (272)
> MAIN (18)
>
>
>
>
>
> Obrigado,
>
> Marcelo Coelho Silva
> Brasil
>
>
>
> Em 22/1/2010 13:54, Mário Angelini escreveu:
>> Marcelo, boa tarde,
>>
>> Se vocíª está usando o X 2.0.5 deverá ficar assim
>>
>> IF lCreate
>> ::SetBounds( 310, 226, 777, 449 )
>> ::SetClientSize( 769, 415 )
>> ::cText := "Orçamentos"
>> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
>> ::OnInitialize := "FormInitialize"
>> ::Create()
>> ENDIF
>> Super:CreateForm( .F. )
>>
>>
>> Então não deveria dar erro.
>> Todavia, teria como explicar qual é o erro que está acusando,
>> se possí­vel um printscreen da tela.
>> Outra coisa, crie um projeto novo e novo TForm e veja o .XFM
>> para efeito de comparação.
>> Qualquer coisa se quiser mandar um exemplo, podemos dar
>> uma analisada.
>> Abraços.
>>
>> Mário Angelini
>> www.eMeAsOfT.com
>> http://emeasoft.blogspot.com/
>> http://twitter.com/emeasoft
>>
>>
>>
>

[emeasoft]

Marcelo, bom dia,
Dá uma olhada no PRG se os métodos estão corretos:
..
..
METHOD CreateForm()
METHOD FormShow( oSender )
..
..
..
..
Mário
"Marcelo Coelho Silva" <marcelo@mhacker.com> escreveu na notí­cia da
mensagem:[email=4b5b4207@svctag-j7w3v3j....]4b5b4207@svctag-j7w3v3j....[/email]
> Mario,
>
> Abaixo seque mensagem de erro, lembrando que o projeto começou a ser
> desenvolvido na versão 1.99 e foi continuado na versão 2.05 do Xailer:
>
> ******************************* Error log file ************************
>
> Exe: c:mhackerbinStockTTE.exe
> Version: 0.0.1.11
> User name: Usuario
> Computer name: PC
> Data: 23/01/2010
> Hora: 16:32:39
> Memória Disponí­vel: 205964
> írea Actual: 1
>
> -------------------------- Informação do Compilador -------------------
>
> Versão do Xailer: Xailer 2.0.5 Version 2.0.5
> Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode
> Version: 10
> Compilador C/C++ : Borland C++ 5.5.1 (32 bit)
> Plataforma Windows: Windows XP Professional 5.01.2600 Service Pack 3
>
> -------------------- Informação de manejo de erro interno -------------
>
> Chamada Subsistema: BASE
> Código Sistema: 1066
> Status por Defeito: .F.
> Descrição: Argument error
> Operação: conditional
> Argumentos: [ 1] = Tipo: U Val: NIL
> Ficheiros Involvidos:
> Dos Error Code: 0
>
> Trace Through:
> TFRM_ORCAMENTOS:CREATEFORM (3)
> TFRM_ORCAMENTOS:NEW (36)
> TFORM1:ORCAMENTOS (438)
> TTOOLBUTTON:ONCLICK (0)
> (b)XTOOLBUTTON:XTOOLBUTTON (41)
> TTOOLBUTTON:CLICK (0)
> TTOOLBAR:COMMAND (391)
> TREBAR:WMCOMMAND (272)
> RUNFORM (0)
> TAPPLICATION:RUN (272)
> MAIN (18)
>
>
>
>
>
> Obrigado,
>
> Marcelo Coelho Silva
> Brasil
>
>
>
> Em 22/1/2010 13:54, Mário Angelini escreveu:
>> Marcelo, boa tarde,
>>
>> Se vocíª está usando o X 2.0.5 deverá ficar assim
>>
>> IF lCreate
>> ::SetBounds( 310, 226, 777, 449 )
>> ::SetClientSize( 769, 415 )
>> ::cText := "Orçamentos"
>> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
>> ::OnInitialize := "FormInitialize"
>> ::Create()
>> ENDIF
>> Super:CreateForm( .F. )
>>
>>
>> Então não deveria dar erro.
>> Todavia, teria como explicar qual é o erro que está acusando,
>> se possí­vel um printscreen da tela.
>> Outra coisa, crie um projeto novo e novo TForm e veja o .XFM
>> para efeito de comparação.
>> Qualquer coisa se quiser mandar um exemplo, podemos dar
>> uma analisada.
>> Abraços.
>>
>> Mário Angelini
>> www.eMeAsOfT.com
>> http://emeasoft.blogspot.com/
>> http://twitter.com/emeasoft
>>
>>
>>
>

[Marcelo Coelho Silva]

José,
Funcionou Ok.
Obrigado,
Marcelo.
Em 23/1/2010 19:39, José Ramón Castro Polinio escreveu:
> Marcelo:
>
> Si estas utilizando el ejemplo DBFData6 para el desarrollo de tú
> aplicación debes de hacer el siguiente cambio:
>
> En el módulo FrmFolder.prg modifica el método New() de la siguiente forma:
>
> METHOD New( oParent ) CLASS TFormFolder
>
> Super:New( oParent )
> ::CreateForm( .T. ) // El valor lógico VERDADERO es lo único que cambia
> ::OnInitialize()
>
> RETURN Self
>
> José Ramón Castro.
>
> Marcelo Coelho Silva escribió:
>> Mario,
>>
>> Abaixo seque mensagem de erro, lembrando que o projeto começou a ser
>> desenvolvido na versão 1.99 e foi continuado na versão 2.05 do Xailer:
>>
>> ******************************* Error log file ************************
>>
>> Exe: c:mhackerbinStockTTE.exe
>> Version: 0.0.1.11
>> User name: Usuario
>> Computer name: PC
>> Data: 23/01/2010
>> Hora: 16:32:39
>> Memória Disponí­vel: 205964
>> írea Actual: 1
>>
>> -------------------------- Informação do Compilador -------------------
>>
>> Versão do Xailer: Xailer 2.0.5 Version 2.0.5
>> Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode
>> Version: 10
>> Compilador C/C++ : Borland C++ 5.5.1 (32 bit)
>> Plataforma Windows: Windows XP Professional 5.01.2600 Service Pack 3
>>
>> -------------------- Informação de manejo de erro interno -------------
>>
>> Chamada Subsistema: BASE
>> Código Sistema: 1066
>> Status por Defeito: .F.
>> Descrição: Argument error
>> Operação: conditional
>> Argumentos: [ 1] = Tipo: U Val: NIL
>> Ficheiros Involvidos:
>> Dos Error Code: 0
>>
>> Trace Through:
>> TFRM_ORCAMENTOS:CREATEFORM (3)
>> TFRM_ORCAMENTOS:NEW (36)
>> TFORM1:ORCAMENTOS (438)
>> TTOOLBUTTON:ONCLICK (0)
>> (b)XTOOLBUTTON:XTOOLBUTTON (41)
>> TTOOLBUTTON:CLICK (0)
>> TTOOLBAR:COMMAND (391)
>> TREBAR:WMCOMMAND (272)
>> RUNFORM (0)
>> TAPPLICATION:RUN (272)
>> MAIN (18)
>>
>>
>>
>>
>>
>> Obrigado,
>>
>> Marcelo Coelho Silva
>> Brasil
>>
>>
>>
>> Em 22/1/2010 13:54, Mário Angelini escreveu:
>>> Marcelo, boa tarde,
>>>
>>> Se vocíª está usando o X 2.0.5 deverá ficar assim
>>>
>>> IF lCreate
>>> ::SetBounds( 310, 226, 777, 449 )
>>> ::SetClientSize( 769, 415 )
>>> ::cText := "Orçamentos"
>>> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
>>> ::OnInitialize := "FormInitialize"
>>> ::Create()
>>> ENDIF
>>> Super:CreateForm( .F. )
>>>
>>>
>>> Então não deveria dar erro.
>>> Todavia, teria como explicar qual é o erro que está acusando,
>>> se possí­vel um printscreen da tela.
>>> Outra coisa, crie um projeto novo e novo TForm e veja o .XFM
>>> para efeito de comparação.
>>> Qualquer coisa se quiser mandar um exemplo, podemos dar
>>> uma analisada.
>>> Abraços.
>>>
>>> Mário Angelini
>>> www.eMeAsOfT.com
>>> http://emeasoft.blogspot.com/
>>> http://twitter.com/emeasoft
>>>
>>>
>>>
>>
>