FiveTech Software tech support forums

Is there any web / forum / email / maillist for report bug of FW/Harbour/xHarbour?

Crea un archivo en el raiz del CD con el nombre AutoRun.inf y el contenido:


setup es el ejecutable

Esto te funciona si no has cambiado la configuracion por defecto de windows. Tambien lo puedes usar, con algun cambio en el registro, con disquetes y memorias USB.

You can search the default pdf reader in registry:

... cAplicacion := DiValorClave(HKEY_CLASSES_ROOT, DiValorClave(HKEY_CLASSES_ROOT, ".pdf") + "\Shell\Open\Command") cAplicacion := strtran(cAplicacion, '"') cAplicacion := cFileNoPar(cAplicacion)...function ...

Uwe,

Thx but that doesn't work. SetValue seek the section (OPTIONS) and add the pair label=value. Anyway, know do it:

oFich := TTxtFile():Create(cDir + cNom + FUEPROYEXT, FC_NORMAL) if oFich:Open() if oFich:Seek('[OPTIONS]', SEEK_FORWARD, SEEK_UPCASE) oFich ...

A workarround:

__clsAddMsg(TTxtFile():ClassH, 'AppLine', {|o,t| o:AppendLn(t)}, HB_OO_MSG_INLINE,, HB_OO_CLSTP_EXPORTED)

Is there a simpler way to change a class message with other? Something like that:

__clsAddMsg(TTxtFile():ClassH, 'AppLine ...

Reviewing the code of TTxtFile.prg I can't find the method AppLine that is used in the inside the code. Neither the class nor the parent, TFile, has this method.

An example:
oFich := TTxtFile():New('texto.txt', FC_NORMAL) if oFich:Open() oFich:SetValue('OPTIONS', 'Auto ...

Ok. Thank you. It's working getting the correct ID of the window, dialog or control but now I have a new problem:

the nHelpID of the controls is missing. I have defined nHelpID for the window, the dialogs and the controls. when ask for oCtrl:nHelpID in case of windows or dialogs I get the correct ...

Great! Do it! Thx a lot.

Oppss. Thx a lot.

So there is no way to replace a class method with harbour? I have found way to do it with an object but I need to do it with the class on application scope.

I have a key action defined for the application. How can I know the context, the window, dialog and control where is pressed?

static oWndfunction Main() SetKey( VK_F2, { | cProc, nLine, cVar, x | Donde(cProc, nLine, cVar, x) } ) ...function Donde(cProc, nLine ...

Yo creo que puedes definirte una funcion Help() en tu codigo para cambiar el comportamiento. Si no me equivoco, que es posible, primero se comprueba la existencia de esa funcion cuando se pulsa F1. Otra forma que se me ocurre es modificando el metodo HandleEvent de la/s clase/s.

Yo estoy luchando ...

Harbour 902

I have it included:

#include "FiveWin.ch"#include "InKey.ch"#include "hbclass.ch"#include "..\res\resources.h"static oWnd//----------------------------------------------------------------------------//function Main() lChDir(cFilePath(HB_ARGV(0))) OVERRIDE METHOD ...

I'm trying to replace HaldleEvento from TControl:

function Main&#40;&#41; lChDir&#40;cFilePath&#40;HB_ARGV&#40;0&#41;&#41;&#41; OVERRIDE METHOD HandleEvent IN CLASS TControl WITH ControlHE // <-------------- SET HELPFILE TO "ayuda1.chm" SetHelpPopup&#40;'Ayuda.txt'&#41; DEFINE WINDOW oWnd FROM 1 ...

¿Alguien tiene alguna idea sobre esto?