New FWH 11.07

[Antonio Linares]

Carlos,

Por favor prueba tu ejemplo asi. Tu estas usando un DBCOMBO y en este ejemplo he empezado probándolo como COMBOBOX. En este ejemplo el combo toma correctamente el foco (Windows 7 64 bits)

carlos.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, cText1 := Space( 10 ), cText2 := "one"

   DEFINE DIALOG oDlg RESOURCE "DLG_PRODUCTOE"

   REDEFINE GET cText1 ID 103 OF oDlg
   
   REDEFINE COMBOBOX cText2 ID 104 OF oDlg ITEMS { "one", "two", "three" }

   REDEFINE BUTTON ID 202 OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTER

return nil

carlos.rc

Code: Select all  Expand view

ico  ICON "./../ICONS/fivewin.ico"

#ifdef __FLAT__
  1 24 "WinXP/WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "WinXP/WindowsXP.Manifest64"
#endif

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
DLG_PRODUCTOE DIALOG 59, 60, 305, 190
STYLE DS_3DLOOK | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Datos Generales"
FONT 9, "MS Sans Serif"
{
    GROUPBOX        "", -1, 4, 3, 297, 57
    LTEXT           "Código:", -1, 9, 12, 41, 12, SS_LEFT
    EDITTEXT        101, 53, 12, 58, 12, ES_AUTOHSCROLL
    LTEXT           "Unidad de medida:", -1, 165, 12, 73, 12, SS_LEFT
    EDITTEXT        102, 240, 12, 54, 12, ES_AUTOHSCROLL
    LTEXT           "Nombre:", -1, 9, 26, 41, 12, SS_LEFT
    EDITTEXT        103, 53, 26, 241, 12, ES_AUTOHSCROLL
    LTEXT           "Familia:", -1, 9, 39, 41, 12, SS_LEFT
    COMBOBOX        104, 53, 40, 241, 98, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL
    GROUPBOX        "Precio, Impuesto y existencia", -1, 4, 62, 297, 46
    LTEXT           "Precio U$:", -1, 11, 72, 60, 12, SS_LEFT
    EDITTEXT        105, 74, 72, 64, 12, ES_RIGHT
    LTEXT           "Tasa de IVA %:", -1, 11, 87, 60, 12, SS_LEFT
    EDITTEXT        106, 74, 87, 64, 12, ES_RIGHT
    GROUPBOX        "", -1, 161, 62, 140, 46
    LTEXT           "Precio Final U$:", -1, 169, 72, 55, 12, SS_LEFT
    EDITTEXT        107, 227, 72, 63, 12, ES_RIGHT
    LTEXT           "Existencia:", -1, 169, 87, 55, 12, SS_LEFT
    EDITTEXT        108, 227, 87, 63, 12, ES_RIGHT
    GROUPBOX        "Notas:", -1, 4, 109, 297, 60
    EDITTEXT        109, 11, 119, 285, 46, WS_VSCROLL | ES_AUTOVSCROLL | ES_MULTILINE
    PUSHBUTTON      "&Grabar", 201, 193, 173, 50, 14
    PUSHBUTTON      "&Salir", 202, 252, 173, 50, 14
}

[Antonio Linares]

Carlos,

a efectos de controlar el foco lo mejor posible he comentado los groups del RC:

LTEXT "Código:", -1, 9, 12, 41, 12, SS_LEFT
EDITTEXT 101, 53, 12, 58, 12, ES_AUTOHSCROLL
LTEXT "Unidad de medida:", -1, 165, 12, 73, 12, SS_LEFT
EDITTEXT 102, 240, 12, 54, 12, ES_AUTOHSCROLL
LTEXT "Nombre:", -1, 9, 26, 41, 12, SS_LEFT
EDITTEXT 103, 53, 26, 241, 12, ES_AUTOHSCROLL
LTEXT "Familia:", -1, 9, 39, 41, 12, SS_LEFT
COMBOBOX 104, 53, 40, 241, 98, WS_TABSTOP | WS_VSCROLL | CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL
// GROUPBOX "", -1, 4, 3, 297, 57
LTEXT "Precio U$:", -1, 11, 72, 60, 12, SS_LEFT
EDITTEXT 105, 74, 72, 64, 12, ES_RIGHT
LTEXT "Tasa de IVA %:", -1, 11, 87, 60, 12, SS_LEFT
EDITTEXT 106, 74, 87, 64, 12, ES_RIGHT
// GROUPBOX "Precio, Impuesto y existencia", -1, 4, 62, 297, 46
LTEXT "Precio Final U$:", -1, 169, 72, 55, 12, SS_LEFT
EDITTEXT 107, 227, 72, 63, 12, ES_RIGHT
LTEXT "Existencia:", -1, 169, 87, 55, 12, SS_LEFT
EDITTEXT 108, 227, 87, 63, 12, ES_RIGHT
// GROUPBOX "", -1, 161, 62, 140, 46
EDITTEXT 109, 11, 119, 285, 46, WS_VSCROLL | ES_AUTOVSCROLL | ES_MULTILINE
// GROUPBOX "Notas:", -1, 4, 109, 297, 60
PUSHBUTTON "&Grabar", 201, 193, 173, 50, 14
PUSHBUTTON "&Salir", 202, 252, 173, 50, 14

[carlos vargas]

efectivamente asi funciona correctamente.
probare con la app para ver como funciona eliminando los group.

te comento en breve

[carlos vargas]

Antonio,

Mira lo curioso,

a como esta el codigo funciona muy, bien
luego descomenta el control id 102 y recompilas, y pruebas, todo funciona ok.
luego descomenta el control id 101 y recompilas, y pruebas, ahora no funciona.

?????????

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
    local oDlg, cText1 := Space( 10 ), cText2 := "one", cText3:="tres", cText4:="two"

    DEFINE DIALOG oDlg RESOURCE "DLG_PRODUCTOE"

    //REDEFINE GET cText1 ID 101 OF oDlg
    //REDEFINE GET cText2 ID 102 OF oDlg
    REDEFINE GET cText3 ID 103 OF oDlg
   
    REDEFINE COMBOBOX cText4 ID 104 OF oDlg ITEMS { "one", "two", "three" }

    REDEFINE BUTTON ID 201 OF oDlg ACTION msgInfo("ok")
    REDEFINE BUTTON ID 202 OF oDlg ACTION oDlg:End()
     
    ACTIVATE DIALOG oDlg CENTER

RETURN NIL
 

[Antonio Linares]

Carlos,

Muchas gracias,

Ahora ya tenemos un buen punto de partida para buscarle la solución