FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour editable combobox con busqueda incremental
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: editable combobox con busqueda incremental
Posted: Sat Sep 27, 2014 02:30 AM

ComboBox
muy bueno,
maito bom
saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: editable combobox con busqueda incremental
Posted: Mon Sep 29, 2014 07:17 PM
Antonio

En tu ejemplo
Code (fw): Select all Collapse
#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
Saludos,



Adhemar C.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: editable combobox con busqueda incremental
Posted: Tue Sep 30, 2014 08:33 AM
Adhemar,

Aqui lo tienes funcionando:

Code (fw): Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: editable combobox con busqueda incremental
Posted: Tue Sep 30, 2014 03:28 PM

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

Saludos,



Adhemar C.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: editable combobox con busqueda incremental
Posted: Tue Sep 30, 2014 04:35 PM

> 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 ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: editable combobox con busqueda incremental
Posted: Tue Sep 30, 2014 04:56 PM

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

Saludos,



Adhemar C.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: editable combobox con busqueda incremental
Posted: Tue Sep 30, 2014 05:25 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: editable combobox con busqueda incremental
Posted: Tue Sep 30, 2014 06:14 PM

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

Saludos,



Adhemar C.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: editable combobox con busqueda incremental
Posted: Wed Oct 01, 2014 11:52 AM

Adhemar,

Es una pregunta o una afirmaci贸n ? :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: editable combobox con busqueda incremental
Posted: Wed Oct 01, 2014 03:55 PM

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

Saludos,



Adhemar C.
Rick Lipkin
Posts: 2706
Joined: Fri Oct 07, 2005 01:50 PM
Re: editable combobox con busqueda incremental
Posted: Wed Oct 01, 2014 07:41 PM
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 (fw): Select all Collapse
 oCbx:oGet:bKeyChar = { | nKey | If( nKey == VK_RETURN,;
                                     ( cDia := oCbx:oGet:GetText(), Eval( oCbx:bChange() ) ),),;
                                       oCbx:GetKeyChar( nKey ) }
elmoiquique
Posts: 336
Joined: Wed May 16, 2007 09:40 PM
Re: editable combobox con busqueda incremental
Posted: Fri Oct 24, 2014 06:31 PM

Una consulta desde que version funciona ????

Fivewin-Xharbour 24.09, Iquique, Chile
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: editable combobox con busqueda incremental
Posted: Fri Oct 24, 2014 09:24 PM

Si no recuerdo mal, desde FWH 14.08

Anteriormente habia porciones de c贸digo pero no estaba todo plenamente integrado. Ahora parece funcionar bien :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions