FiveTech Software tech support forums

¿Hay forma de indicar que todos los combobox de una aplicación sean de búsqueda incremental para no tener que hacerlo en todos (es un poco engorroso modificar todos los prg de la aplicación, si ya esta hecha)?

Como por ejemplo desactiva "ESC" en dialogos :

Code: Select all  Expand view

SetDialogEsc(.f.)

Muchas Gracias.


Mediante este código se establece que un combobox tenga búsqueda incremental :

Code: Select all  Expand view

REDEFINE COMBOBOX oStat  var cStat    ID 149 of oInvt  ;
                ITEMS aStat  ;
                UPDATE
       oStat:lIncSearch = .T.   // add this for incremental search
 

lo mas facil es buscar en Fivewin la clase combobox (fwhxx\source\classes\combobox.prg) y cambies la siguiente linea:

Code: Select all  Expand view

CLASS TComboBox FROM TControl

   DATA   aItems, aBitmaps
   DATA   lOwnerDraw, nBmpHeight, nBmpWidth
   DATA   nAt
   DATA   bDrawItem, bCloseUp
   DATA   cError AS String
   DATA   oGet
   DATA   cSearchKey   // Holds current search key for incremental search.
   DATA   lIncSearch AS LOGICAL // incremental search          <----------------=   esta linea de aqui
   DATA   lCaseSensitive INIT .F.
   DATA   lOpen          INIT .F.

 

a DATA lIncSearch INIT .T.

si no quieres modificar las librerias originales, copia el programa donde esten tus prg y lo añades como uno mas de tu proyecto.

saludos

Entendido.

Ya lo he hecho alguna que otra vez con otras clases.
Era por si existe un mandato que lo hiciera.

Muchas Gracias