topic-34814

Posts: 350

Joined: Wed Nov 02, 2005 03:28 PM

Todos los combobox sean incrementales
Posted: 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 (fw): Select all Collapse

SetDialogEsc(.f.)

Muchas Gracias.

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

Code (fw): Select all Collapse

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

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Todos los combobox sean incrementales
Posted: 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 (fw): Select all Collapse

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

Garbi

Posts: 350

Joined: Wed Nov 02, 2005 03:28 PM

Re: Todos los combobox sean incrementales
Posted: 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

FiveTech Support Forums

Continue the discussion