FiveTech Software tech support forums

... ( oCatalogo:locate( "Codicont", substr(cVar,1,len(NIV1)),, ),oCatalogo:Refresh(), oLbx:Refresh() ) Así queda ahora REDEFINE ComboBox oCbx VAR cVar ID 109 OF oDlg ITEMS cItems ; ON CHANGE ( oCatalogo:=oServer:Query("SELECT * FROM catalogo WHERE codicont LIKE '"+substr(cVar,1,len(NIV1))+"%' ...

... nKey, aGet[5] ) } //----------------------------------------------------------------------------// function ComboSearchItem( nKey, oCbx ) local nAt if Len( AllTrim( oCbx:oGet:GetText() ) ) == 1 if ( nAt := AScan( oCbx:aItems, { | c | Left( c, 1 ) == AllTrim( oCbx:oGet:GetText() ...

... oDlg, oFont, oFld, oGet[30] LOCAL cTitle, cAlias, oFecha LOCAL aStatus := { "ACTIVO", "INACTIVO", "SUSPENDIDO" }, oCbx, cStatus := "" LOCAL lGrabar := .F. DEFAULT lNuevo := .F. IF !lNuevo IF oClientes:oDbf:EOF() MsgStop ( "Error, tabla vacia" ...

local aMeses := {"Enero", "Febrero", "Marzo", ...}, oCbx, cMes := ""

REDEFINE COMBOBOX oCbx VAR cMes ITEMS aMeses ID ID_MES OF oDlg
...

if lSave
ARCHIVO->CAMPO := cMes

... el bitmap de la fecha hacia abajo, el alto que me da por default es de 22, y lo deseo a 18 pixeles, como podre hacer esto? Tengo @ 10,10 COMBOBOX oCbx VAR cVar ITEMS aEdos SIZE 84,60 PIXEL OF oDlg

Enrico look at second combo, looks like a bold font. Thanks in advance. #include "FiveWin.ch" function Main() local oDlg, oCbx,oCbx1 local cText := " " local cText1 := "TWO" DEFINE DIALOG oDlg FROM 10, 10 TO 20, 50 ; TITLE "DropDown ComboBox Test" ...

>Thank you. I added oCbx:lIncSearch := .t. to testcmb2.prg and does not work.

I forgot to mention that the data does need to be sorted.

>Anyway, I need a Get because the value typed on it may not be in the Array.

Then it seems that the Autoget class would be a better solution.

James

Thank you. I added oCbx:lIncSearch := .t. to testcmb2.prg and does not work.

Anyway, I need a Get because the value typed on it may not be in the Array.

See working example at http://jqueryui.com/demos/autocomplete/#default

Fivewidi,

prueba asi:

oCbx:bKeydown := {|nKey| if(nKey==27, msginfo("presiono Esc"),)}
ó asi:
oCbx:bKeydown := {|| if(GETKEYSTATE(VK_ESC),"msginfo("presiono Esc"),)}
espero te ayude
saludos
paco

Now I insert this

nMode =1 --> new record
nMode=2 --> modify

IF nMode==1
oCbx:Select( 1 ) ok
elseif nMode==2
nPos := AAT( aItems, cloc )
oCbx:Select( nPos ) ok
ENDIF

it run ok but when I click on combo i see all cities

Silvio

the sample you sent me work fine....

only added 1 line

oCbx:Select( 1 )

download sample: http://www.sitasoft.net/fivewin/samples/form.zip

I explain you if I insert oCbx:select(1) I can see the first element of cities of province "TE" right Now you try to save it you have saved first combo "TE" second combo "TERAMO" when you re- run the test ...

... algunas cosas que mas abajo muesto, alguien tiene una idea... uso FWH 10.7... agradezo de antemano su apreciable ayuda. ReDefine ComboBox oCbx var cSt Items {"RECIBO","AMONESTACION","SIN EFECTO","OTRO..."} id 105 of oDlg ... oDbJuez:Activate() ReDefine ...

...   //16          ,oBtn2:move(arect[3] -aRect[1]- 119,481 ,,,.t.);  //4002          ,oBtn13:move(arect[3] -aRect[1]-145,422 ,,,.t.);  //20          ,oCbx:move(arect[3]  -aRect[1]- 89,575 ,,,.t.);   //18 Transfer data          ,oCbx1:move(arect[3] -aRect[1]- 119,575 ,,,.t.);  //          ,oCbx2:move(arect[3] ...

... using Function Gradientbrush ( needed for Gradient-painting on Folders ). Normal Brush and Image works. To define a Background-color, I tested : oCbx:nClrText := 0 // Black oCbx:nClrPane := 16777215 // White Background and oCbx:SetColor( 0, 16777215 ) but does not work ( the Combobox is painted ...