editable combobox con busqueda incremental

[sysctrl2]

ComboBox
muy bueno,
maito bom
saludos.

[acuellar]

Antonio

En tu ejemplo

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oCbx, cDia

   DEFINE DIALOG oDlg

   @ 1, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 ;
      ITEMS { "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo" } ;
      STYLE CBS_DROPDOWN ON CHANGE QueDia(cDia)

   oCbx:oGet:bKeyChar = { | nKey | oCbx:GetKeyChar( nKey ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil

function QueDia(cDia)
  MsgAlert("Hoy día es: "+cDia)
Return nil

Cómo se hace para que ejecute una acción en intentado con ON CHANGE se ejecuta al entrar al combobox luego al pulsar INTRO no ejecuta la acción

Gracias por la ayuda

Saludos,

Adhemar

[Antonio Linares]

Adhemar,

Aqui lo tienes funcionando:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oCbx, cDia

   DEFINE DIALOG oDlg

   @ 1, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 ;
      ITEMS { "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo" } ;
      STYLE CBS_DROPDOWN ON CHANGE QueDia( cDia )

   oCbx:oGet:bKeyChar = { | nKey | If( nKey == VK_RETURN,;
                                     ( cDia := oCbx:oGet:GetText(), Eval( oCbx:bChange() ) ),),;
                                       oCbx:GetKeyChar( nKey ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil

function QueDia(cDia)

   MsgAlert("Hoy día es: "+cDia)

Return nil

[acuellar]

Gracias Antonio

Funciona, pero no hay manera de que no ejecute la acción en la creación del combobox.
Se ejecuta 2 veces, y como no se ha elegido muestra vacío

Saludos,

Adhemar

[Antonio Linares]

> no hay manera de que no ejecute la acción en la creación del combobox

A que te refieres ? Que quisiera que hiciese más ?

[acuellar]

Que no vaya a la función hasta que uno elija el ítem.

Tras que compilo el ejemplo me muestra: Hoy día es:

Saludos,

Adhemar

[Antonio Linares]

En el ejemplo que te he proporcionado, aqui no hace ese comportamiento. Solo al elegir y pulsar intro

[acuellar]

Debe ser por mi versión de FWH tengo la 12.12, pronto la actualizaré.

Y en el COMBOBOX no editable STYLE CBS_DROPDOWN se puede controlar que vaya a la función sólo cuando se elige el ítem.
controlándolo con un Eval

Gracias,

Saludos,

Adhemar

[Antonio Linares]

Adhemar,

Es una pregunta o una afirmación ?

[acuellar]

Es una pregunta.

Tengo un COMBOBOX en un xBrowse donde muestro el personal por sector, en la creación del combobox ejecuta la función donde filtro la base. quiero evitar que lo haga hasta que elija el sector.

Gracias por la ayuda.

Saludos,

Adhemar

[Rick Lipkin]

Antonio

I have been following this thread .. I would like to be able to have ( multiple Key stroke ) incremental searches on Comboboxes .. are you going to include your solution in the Combobox FW code, or this this something we will need to add in our code ?

Thanks
Rick Lipkin

Code: Select all  Expand view

 oCbx:oGet:bKeyChar = { | nKey | If( nKey == VK_RETURN,;
                                     ( cDia := oCbx:oGet:GetText(), Eval( oCbx:bChange() ) ),),;
                                       oCbx:GetKeyChar( nKey ) }
 

[elmoiquique]

Una consulta desde que version funciona ????

[Antonio Linares]

Si no recuerdo mal, desde FWH 14.08

Anteriormente habia porciones de código pero no estaba todo plenamente integrado. Ahora parece funcionar bien