TGet en Folder no pinta correctamente

[Antonio Linares]

Toni,

Estás usando alguna clase de FWPPC modificada por vosotros ?

[tsales]

Antonio
Tengo modificada el método New de la clase TGet con lo siguiente:

::bGotFocus := {|| ::lSip:= Sip(.T.), ::SetColor(AICOM_CLRFOCUSTEXT, AICOM_CLRFOCUSPANE ), ::Refresh() }
::bLostFocus := {|| Sip( ::lSip ), ::SetColor( ::nClrPFoText , ::nClrPFoPane ), ::Refresh() }

Pero esto me ha funcionado desde siempre con FWH. Por lo demas no hay nada que afecte.

He realizado pruebas con otra PDA (Ipaq 2750) con el siguiente SO y funciona correctamente. Utilizando siempre el mismo EXE y con el último build.
Tiene huev.... la cosa.



Saludos

[Antonio Linares]

Toni,

>
He realizado pruebas con otra PDA (Ipaq 2750) con el siguiente SO y funciona correctamente. Utilizando siempre el mismo EXE y con el último build. Tiene huev.... la cosa.
>

Pues si. Todo apunta a un bug de WM que se manifiesta en algunas versiones solo.

Aqui en el emulador con el WM2005 va bien, en el emulador con el WM2003 va mal. Y es el mismo EXE.

[Antonio Linares]

Además, el relleno del color de un GET se realiza devolviendo un brush en respuesta a un mensaje WM_CTLCOLOREDIT.

Hemos modificado el bucle de mensajes en C para devolver el brush directamente, sin pasar por la máquina virtual de Harbour, y nada, la misma historia.

De la documentación de Windows:
Return Values:
If an application processes this message, it must return the handle of a brush. Windows uses the brush to paint the background of the edit control.

Solo faltaría googlear un poco por si a alguien más le ha pasado y hay alguna solución.