bug FWH GET y COLOR

[lucasdebeltran]

Hola Antonio,

La cláusula COLOR del GET es ignorada cuando se usa el WHEN .F. o NO MODIFY:

Code: Select all  Expand view

REDEFINE GET oGet VAR nValue PICTURE "999.99" ID 110 OF oDlg  COLOR CLR_HRED WHEN .F.

Un saludo

[horacio]

No es un bug, si el get está deshabilitado toma el color gris por defecto. Si quieres que no tome el color por defecto debes poner la data lDisColors de la clase get a .f.

Saludos

[lucasdebeltran]

Hola,

Sigue sin funcionar:

Code: Select all  Expand view

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oGet, oGet2
   local nValue := 0, n2 := 1220

   SET _3DLOOK ON

   DEFINE DIALOG oDlg RESOURCE "TestGet"

   REDEFINE GET oGet VAR nValue PICTURE "999.99" ID 110 OF oDlg  COLOR CLR_HRED NO MODIFY

   oGet:lDisColors := .t.


   REDEFINE GET oGet2 VAR n2 PICTURE "999,999.99" ID 120 OF oDlg  COLOR CLR_RED



   REDEFINE BUTTON ID 220 OF oDlg ACTION MsgInfo( nValue )

   ACTIVATE DIALOG oDlg CENTERED

return nil

 

.rc

Code: Select all  Expand view

#include "..\include\WinApi.ch"

// This line has to be added for FiveWin 1.6 users
// #define ES_RIGHT  2

TestGet DIALOG 27, 68, 166, 157
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Testing a GET with right justification"
FONT 8, "Arial"
BEGIN
    CONTROL "", 110, "EDIT", ES_RIGHT | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 17, 12, 135, 14
    CONTROL "", 120, "EDIT", ES_RIGHT | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 17, 42, 135, 14


    CONTROL "&Ok", 220, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 46, 137, 31, 14
    CONTROL "&Cancel", IDCANCEL, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 88, 137, 31, 14
END

 

[acuellar]

o podrias usar el READONLY para que funcione el COLOR.
para que el puntero no se quede en el GET hacerlo saltar al siguiente.

Saludos,

Adhemar

[Daniel Garcia-Gil]

Lucas

No es un bug, si el get está deshabilitado toma el color gris por defecto.

Exacto, es el comportamiento por default de windows, ahora en fivewin se le dio un comportamiento adicional tratando de cambiar el comportamiento NORMAL del control, internamnete en la clase se captura el mensaje de pintado y poder modificar esos colores tan feos que nos obligaba windows a tener...

siguendo el consejo de Horacio

Si quieres que no tome el color por defecto debes poner la data lDisColors de la clase get a .f.

trata de setear las datas ::nClrTextDis y ::nClrPaneDis

tienes un ejemplo de su funcionalidad en testget3.prg