FiveTech Software tech support forums

Una inquietud que tengo es cuando cambio o sobrecargo un método de una clase ¿ese método se cambia TODO o solo la parte que reescribo??? por ejemplo... //...    OVERRIDE METHOD KeyChar IN CLASS TEdit WITH xEditKeyChar //... FUNCTION xEditKeyChar( nKey, nFlags )    Local Self := HB_QSelf()    FWLOG V...

Y otra... Los EDITS, cuando se pulsa RETURN suena un 'dong' ... hace un SendMessage() Yo lo he sacado así... //...    OVERRIDE METHOD KeyChar IN CLASS TEdit WITH xEditKeyChar //... FUNCTION xEditKeyChar( nKey, nFlags )    Local Self := HB_QSelf()    FWLOG ValType( Self ), ::ClassName()    IF nKey ==...

Otra cosa que NO FUNCIONA EN UNA WINDOW

Los Edits no se remarca el borde cuando obtiene el Foco en una WINDOW, en un DIALOG si lo hace correctamente. De ahí que expusiera el como cambiar el color del borde de un TEdit.

Es un error o fallo de la clase, como el expuesto en el anterior post.

Gracias.

Además... UIiiii lo que he visto!!! EXTEND CLASS TEdit WITH DATA cMiData Me puedo permitir el "lujo" de crear/sobrecargar de DATAs a una Clase. Por ejemplo crearme una clase TAppData, e ir creando datas que voy a utilizar en la aplicación, ya que estoy acostumbrado de esta manera... o eso ...

Con OVERRIDE #include "FiveWin.ch" #include "D:\XeviFWproves\include\xhbcls.ch" //... OVERRIDE METHOD KeyDown IN CLASS TEdit WITH xEditKeyDown //... FUNCTION xEditKeyDown( nKey, nFlags )    Local Self := HB_QSelf()    FWLOG ValType( Self ), ::ClassName()    IF nKey == VK_UP      ...

Ariel, el fichero "xhbcls.ch", donde lo encuentro??? Para mi caso, modificar el método KeyDown de la clase TEDIT... #include "xhbcls.ch" OVERRIDE METHOD KeyDown IN CLASS TEdit WITH xEditKeyDown FUNCTION xEditKeyDown( nKey, nFlags )    IF nKey == VK_UP       ::oWnd:GoPrevCtrl( ::h...

Una cosa a comentar, por si alguien se puede encontrar en una situación similar. function Main()      local oDlg, cFirst := "Hello", cLast := "World"   *   DEFINE DIALOG oDlg SIZE 500, 250    DEFINE WINDOW oDlg FROM 1, 1 TO 30, 100      @ 1, 1 EDIT cFirst OF oDlg SIZE 80, 10     ...

Lo mejor de trabajar con Clases... la herencia!!! Así que he creado una clase a partir de la TEdit... CLASS TxEdit FROM TEdit    METHOD KeyDown( nKey, nFlags ) ENDCLASS METHOD KeyDown( nKey, nFlags ) CLASS TxEdit    IF nKey == VK_UP       ::oWnd:GoPrevCtrl( ::hWnd )       return 0    // We don't wan...

bGotFocus, hace el cambio de fuente correctamente oEdit: bGotFocus : = { | o | o: SetColor ( CLR_HRED, CLR_YELLOW ) } Ahora bien, bLostFocus bien si se sale del Edit con teclado <Tab>, pero no surte efecto si se hace con raton oEdit: bLostFocus : = { | o | o: SetColor ( CLR_BLACK, CLR_WHITE ) } He a...

Gracias por la respuesta.

Pues lo que me queda por resolver, si se puede, incluir una aplicación la lista del FireWall de Windows.

Estoy buscando y no encuentro como cambiar el color del borde, del fondo... al recibir o dejar el foco    @ 340,40 EDIT oEdit VAR cVarEdit SIZE 280,22 PIXEL OF oWnd    oEdit:SetLimitText(30)    oEdit:bGotFocus  := {|o| o:SetColor( 255 ) }    oEdit:bLostFocus := {|o| o:SetColor( 0 ) }   Con esto camb...

No me funciona. Por lo visto, esta función, tal cual está, activa i/o descativa el Firewall, nada mas. Lo que pretendo es "añadir" una aplicación a la lista de aplicaciones permitidas por el FireWall. Me lanza la ventana de Windows de advertencia de seguridad, pero no me incluye la aplicac...

Ahora SI...

como segundo parámetro, funciona correctamente.
Me falta mucho para aprender DONDE encontrar la información de clases, funciones,...
Me acostumbraré, me acostumbraré.

Gracias.

La funcion FindWindow() que viene incorporada en FWH (no se si es de FW o de Harbour)... ? hWnd := FindWindow( APP_TITLE ) No funciona correctamente. Siempre me devuelve 0 Buscando he encontrado este Wrapper #pragma BEGINDUMP #include <windows.h> #include "hbapi.h" HB_FUNC ( FINDWINDOW ) {...

Gracias, Antonio.

En la lista de Clases no sale y no la encontraba.
http://wiki.fivetechsoft.com/doku.php?i ... eticamente
Ni en el listado de la columna derecha, ni en el de Clase a Clase.