Comportamento estranho no xEdit, TAMBÉM NO XAILER...
Publicado: Jue Ago 16, 2012 8:06 pm
Caros desenvolvedores do Xailer e xEdit,
Em 23 de maio de 2012, postei um tópico com o título "Comportamento estranho
no xEdit"... Agora percebo o mesmo problema no Xailer...
O que ocorre agora é o seguinte:
Fiz uma alteração na classe TImage, criando dois novos eventos, conforme
código abaixo:
***********************************************************
#include "Xailer.ch"
CLASS TImage FROM XImage
RESERVED:
METHOD WMMouseMove( nWParam, nLParam )
METHOD WMMouseLeave( nWParam, nLParam )
EVENT onMouseLeave
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD WMMouseMove( nWParam, nLParam ) CLASS TImage
TrackMouseEvent( ::Handle, TME_LEAVE )
RETURN Super:WMMouseMove( nWParam, nLParam )
//---------------------------------------------------------- --------------------
METHOD WMMouseLeave( nWParam, nLParam ) CLASS TImage
::onMouseLeave(nWParam,nLParam)
RETURN Nil
***********************************************************
O problema é que: dependendo da pasta em que meu projeto está ele não
compila essa alteração feita em TImage.
Exemplo: se meu projeto está na pasta
"SOMMUSDESENVOLVIMENTOPROJETOSPORTOPDV" não funciona, mas, se está em
"SOMMUSDESENVOLVIMENTOPROJETOSPORTOPDV2" funciona...
Segue abaixo também o portopdv.xpj
<?xml version="1.0"?>
<Project>
<Type Value="exe"/>
<Description Value="PortoPDV"/>
<Output Value="pdv.exe"/>
<Compiler Value="xHarbour"/>
<MainModule Value="FrmPrincipal.prg"/>
<MultipleInstances Value="N"/>
<XPManifest Value="Y"/>
<Icon Value="icone_pdv"/>
<Parameters Value=""/>
<OEM Value="N"/>
<Version>
<Version Value="1.0"/>
<Release Value="0"/>
<Build Value="0"/>
<Company Value="Sommus Automação Comercial Ltda"/>
<CopyRight Value=""/>
<TradeMarks Value=""/>
<Comments Value=""/>
</Version>
<Directories>
<SourceDir Value="Source"/>
<IncludeDir Value="Include"/>
<ResourceDir Value="Resource"/>
<ObjDir Value="Obj"/>
</Directories>
<Options>
<AutomaticMemvarDeclaration Value="N"/>
<DebugInfo Value="N"/>
<SuppressLineNumberInformation Value="N"/>
<SuppressShortcutting Value="N"/>
<WarnningLevel Value="1"/>
<MoreOptions Value=""/>
<MoreBCCOpt Value=""/>
<MapFile Value="N"/>
<ConsoleMode Value="N"/>
<MoreLinkOpt Value=""/>
</Options>
<Export>
<Dir Value=""/>
<Source Value="Y"/>
<Exe Value="N"/>
<Bin Value="N"/>
<Resource Value="Y"/>
<ResourceAll Value="N"/>
<ErrorLog Value="N"/>
<Subprojects Value="Y"/>
</Export>
<Clean>
<All Value="N"/>
</Clean>
<FinalExe>
<FullCompile Value="Y"/>
<UpxCompress Value="Y"/>
<CompressFlags Value=""/>
<Installer Value="N"/>
<InstallerFlags Value=""/>
</FinalExe>
<VCS>
<Type Value="None"/>
</VCS>
<Files>
<File Filename="PortoPDV.prg"/>
<File Filename="FrmPrincipal.prg"/>
<File Filename="BancoDados.prg"/>
<File Filename="Funcoes_001.prg"/>
<File Filename="Funcoes_ECF.prg"/>
<File Filename="Funcoes_GAVETA.prg"/>
<File Filename="MySQLRecords.prg"/>
<File Filename="Protecao.prg"/>
<File Filename="Versao.prg"/>
<File Filename="FrmAcessoBancoDados.prg"/>
<File Filename="FrmMensagem.prg"/>
<File Filename="FrmProtecaoDadosIniciais.prg"/>
<File Filename="FrmProtecaoReset.prg"/>
<File Filename="FrmProtecaoResetPersonaliza.prg"/>
<File Filename="FrmSobre.prg"/>
<File Filename="imagens_001.rc"/>
<File Filename="imagens_002.rc"/>
<File Filename="xImage.prg"/>
<File Filename="FormPages.prg"/>
<File Filename="FrmLogin.prg"/>
<File Filename="FrmMenuPrincipal.prg"/>
<File Filename="FrmCupomFiscal.prg"/>
<File Filename="FrmMenuFiscal.prg"/>
<File Filename="DLL_HardwareIDExtractor.c"/>
<File Filename="FrmProtecaoCorrigeData.prg"/>
</Files>
<Libraries>
<Library Filename="[xharbour]ct.lib" Link="Y"/>
<Library Filename="[xailer]xailer.lib" Link="Y"/>
<Library Filename="[xailer]ocx.lib" Link="Y"/>
<Library Filename="[xailer]samples.lib" Link="Y"/>
<Library Filename="[xailer]sqlite.lib" Link="N"/>
<Library Filename="[xailer]libmysql.lib" Link="Y"/>
<Library Filename="[xailer]xailer.res" Link="Y"/>
<Library Filename="[xharbour]rtl.lib" Link="Y"/>
<Library Filename="[xharbour]vm.lib" Link="Y"/>
<Library Filename="[xharbour]gtwin.lib" Link="N"/>
<Library Filename="[xharbour]gtgui.lib" Link="Y"/>
<Library Filename="[xharbour]lang.lib" Link="Y"/>
<Library Filename="[xharbour]macro.lib" Link="Y"/>
<Library Filename="[xharbour]rdd.lib" Link="Y"/>
<Library Filename="[xharbour]dbfntx.lib" Link="Y"/>
<Library Filename="[xharbour]dbfcdx.lib" Link="N"/>
<Library Filename="[xharbour]dbffpt.lib" Link="Y"/>
<Library Filename="[xharbour]sixcdx.lib" Link="N"/>
<Library Filename="[xharbour]hbsix.lib" Link="Y"/>
<Library Filename="[xharbour]rddads.lib" Link="N"/>
<Library Filename="[xharbour]ace32.lib" Link="N"/>
<Library Filename="[xharbour]codepage.lib" Link="Y"/>
<Library Filename="[xharbour]common.lib" Link="Y"/>
<Library Filename="[xharbour]pp.lib" Link="Y"/>
<Library Filename="[xharbour]pcrepos.lib" Link="Y"/>
<Library Filename="[xharbour]hbzip.lib" Link="N"/>
<Library Filename="[xharbour]zlib.lib" Link="Y"/>
<Library Filename="[bcc]c0w32.obj" Link="Y"/>
<Library Filename="[bcc]psdkodbc32.lib" Link="Y"/>
<Library Filename="[bcc]psdkmsimg32.lib" Link="Y"/>
<Library Filename="[bcc]cw32.lib" Link="Y"/>
<Library Filename="[bcc]import32.lib" Link="Y"/>
<Library Filename="[bcc]wininet.lib" Link="Y"/>
</Libraries>
</Project>
Obrigado pela atenção,
Reginaldo
Em 23 de maio de 2012, postei um tópico com o título "Comportamento estranho
no xEdit"... Agora percebo o mesmo problema no Xailer...
O que ocorre agora é o seguinte:
Fiz uma alteração na classe TImage, criando dois novos eventos, conforme
código abaixo:
***********************************************************
#include "Xailer.ch"
CLASS TImage FROM XImage
RESERVED:
METHOD WMMouseMove( nWParam, nLParam )
METHOD WMMouseLeave( nWParam, nLParam )
EVENT onMouseLeave
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD WMMouseMove( nWParam, nLParam ) CLASS TImage
TrackMouseEvent( ::Handle, TME_LEAVE )
RETURN Super:WMMouseMove( nWParam, nLParam )
//---------------------------------------------------------- --------------------
METHOD WMMouseLeave( nWParam, nLParam ) CLASS TImage
::onMouseLeave(nWParam,nLParam)
RETURN Nil
***********************************************************
O problema é que: dependendo da pasta em que meu projeto está ele não
compila essa alteração feita em TImage.
Exemplo: se meu projeto está na pasta
"SOMMUSDESENVOLVIMENTOPROJETOSPORTOPDV" não funciona, mas, se está em
"SOMMUSDESENVOLVIMENTOPROJETOSPORTOPDV2" funciona...
Segue abaixo também o portopdv.xpj
<?xml version="1.0"?>
<Project>
<Type Value="exe"/>
<Description Value="PortoPDV"/>
<Output Value="pdv.exe"/>
<Compiler Value="xHarbour"/>
<MainModule Value="FrmPrincipal.prg"/>
<MultipleInstances Value="N"/>
<XPManifest Value="Y"/>
<Icon Value="icone_pdv"/>
<Parameters Value=""/>
<OEM Value="N"/>
<Version>
<Version Value="1.0"/>
<Release Value="0"/>
<Build Value="0"/>
<Company Value="Sommus Automação Comercial Ltda"/>
<CopyRight Value=""/>
<TradeMarks Value=""/>
<Comments Value=""/>
</Version>
<Directories>
<SourceDir Value="Source"/>
<IncludeDir Value="Include"/>
<ResourceDir Value="Resource"/>
<ObjDir Value="Obj"/>
</Directories>
<Options>
<AutomaticMemvarDeclaration Value="N"/>
<DebugInfo Value="N"/>
<SuppressLineNumberInformation Value="N"/>
<SuppressShortcutting Value="N"/>
<WarnningLevel Value="1"/>
<MoreOptions Value=""/>
<MoreBCCOpt Value=""/>
<MapFile Value="N"/>
<ConsoleMode Value="N"/>
<MoreLinkOpt Value=""/>
</Options>
<Export>
<Dir Value=""/>
<Source Value="Y"/>
<Exe Value="N"/>
<Bin Value="N"/>
<Resource Value="Y"/>
<ResourceAll Value="N"/>
<ErrorLog Value="N"/>
<Subprojects Value="Y"/>
</Export>
<Clean>
<All Value="N"/>
</Clean>
<FinalExe>
<FullCompile Value="Y"/>
<UpxCompress Value="Y"/>
<CompressFlags Value=""/>
<Installer Value="N"/>
<InstallerFlags Value=""/>
</FinalExe>
<VCS>
<Type Value="None"/>
</VCS>
<Files>
<File Filename="PortoPDV.prg"/>
<File Filename="FrmPrincipal.prg"/>
<File Filename="BancoDados.prg"/>
<File Filename="Funcoes_001.prg"/>
<File Filename="Funcoes_ECF.prg"/>
<File Filename="Funcoes_GAVETA.prg"/>
<File Filename="MySQLRecords.prg"/>
<File Filename="Protecao.prg"/>
<File Filename="Versao.prg"/>
<File Filename="FrmAcessoBancoDados.prg"/>
<File Filename="FrmMensagem.prg"/>
<File Filename="FrmProtecaoDadosIniciais.prg"/>
<File Filename="FrmProtecaoReset.prg"/>
<File Filename="FrmProtecaoResetPersonaliza.prg"/>
<File Filename="FrmSobre.prg"/>
<File Filename="imagens_001.rc"/>
<File Filename="imagens_002.rc"/>
<File Filename="xImage.prg"/>
<File Filename="FormPages.prg"/>
<File Filename="FrmLogin.prg"/>
<File Filename="FrmMenuPrincipal.prg"/>
<File Filename="FrmCupomFiscal.prg"/>
<File Filename="FrmMenuFiscal.prg"/>
<File Filename="DLL_HardwareIDExtractor.c"/>
<File Filename="FrmProtecaoCorrigeData.prg"/>
</Files>
<Libraries>
<Library Filename="[xharbour]ct.lib" Link="Y"/>
<Library Filename="[xailer]xailer.lib" Link="Y"/>
<Library Filename="[xailer]ocx.lib" Link="Y"/>
<Library Filename="[xailer]samples.lib" Link="Y"/>
<Library Filename="[xailer]sqlite.lib" Link="N"/>
<Library Filename="[xailer]libmysql.lib" Link="Y"/>
<Library Filename="[xailer]xailer.res" Link="Y"/>
<Library Filename="[xharbour]rtl.lib" Link="Y"/>
<Library Filename="[xharbour]vm.lib" Link="Y"/>
<Library Filename="[xharbour]gtwin.lib" Link="N"/>
<Library Filename="[xharbour]gtgui.lib" Link="Y"/>
<Library Filename="[xharbour]lang.lib" Link="Y"/>
<Library Filename="[xharbour]macro.lib" Link="Y"/>
<Library Filename="[xharbour]rdd.lib" Link="Y"/>
<Library Filename="[xharbour]dbfntx.lib" Link="Y"/>
<Library Filename="[xharbour]dbfcdx.lib" Link="N"/>
<Library Filename="[xharbour]dbffpt.lib" Link="Y"/>
<Library Filename="[xharbour]sixcdx.lib" Link="N"/>
<Library Filename="[xharbour]hbsix.lib" Link="Y"/>
<Library Filename="[xharbour]rddads.lib" Link="N"/>
<Library Filename="[xharbour]ace32.lib" Link="N"/>
<Library Filename="[xharbour]codepage.lib" Link="Y"/>
<Library Filename="[xharbour]common.lib" Link="Y"/>
<Library Filename="[xharbour]pp.lib" Link="Y"/>
<Library Filename="[xharbour]pcrepos.lib" Link="Y"/>
<Library Filename="[xharbour]hbzip.lib" Link="N"/>
<Library Filename="[xharbour]zlib.lib" Link="Y"/>
<Library Filename="[bcc]c0w32.obj" Link="Y"/>
<Library Filename="[bcc]psdkodbc32.lib" Link="Y"/>
<Library Filename="[bcc]psdkmsimg32.lib" Link="Y"/>
<Library Filename="[bcc]cw32.lib" Link="Y"/>
<Library Filename="[bcc]import32.lib" Link="Y"/>
<Library Filename="[bcc]wininet.lib" Link="Y"/>
</Libraries>
</Project>
Obrigado pela atenção,
Reginaldo