Todos los combobox sean incrementales

Todos los combobox sean incrementales

Postby Garbi » Sat Nov 04, 2017 10:23 am

¿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
 
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: Todos los combobox sean incrementales

Postby armando.lagunas » Sat Nov 04, 2017 10:58 am

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
SkyPe: armando.lagunas@hotmail.com
Mail: armando.lagunas@gmail.com
User avatar
armando.lagunas
 
Posts: 346
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile

Re: Todos los combobox sean incrementales

Postby Garbi » Sat Nov 04, 2017 11:27 am

Entendido.

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

Muchas Gracias
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 8 guests