FiveTech Software tech support forums

Yes Sorry, but I tried with no success oApp():oGrid:bOnAdjust := <|| local oBtn,oCbx1 local cFilter1:= val(alistini[1][1]) local nrow:= 05 local ncol:= 05 @ nrow,ncol COMBOBOX oCbx1 VAR cFilter1 ITEMS ArrTranspose( aListini )[ 1] ; SIZE 120,400 PIXEL OF oApp():oGrid ...

...    Select (nArea)   return alist_temp DEFINE DIALOG oDlg RESOURCE "Combos" BRUSH oBrush TRANSPARENT REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS ArrTranspose( aListini )[ 2] // I wish show trim(oListini:id) ID 100 OF oDlg; ON CHANGE Msginfo() ACTIVATE DIALOG oDlg CENTERED ...

... nada: FUNCTION WINGES01() LOCAL oBrow LOCAL oDlg, oLbx LOCAL oFnt LOCAL nW, nH LOCAL cPersonalca:=Space(60) LOCAL oGet LOCAL cVar, oCbx, cHelp,oCbx1 LOCAL oBar, oPop, oIcon, cTit LOCAL oBtn, aX[6], aIdx:={},oCol Local oWnd,oPanel aIdx:={"por Codigo","por Nombre"} cTit:="Datos ...

... Abajo, expongo una funcion donde el valid del segundo combobox no me funciona con el valid que le pongo: VALID {||eval(oCbx2:bSetGet)>=eval(oCbx1:bSetGet)} PIXEL of bPant o VALID {||cPer2>=cPer1} PIXEL of bPant esto para indicarle el oCbx2 que el valor de este sea mayor o igual al valor ...

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" @ ...

... Tim, http://www.pflegeplus.com/pictures/combo10.jpg Samples : Ownerdra.prg ( Bitmaps from Disk and resource ) REDEFINE COMBOBOX oCbx1 VAR cItem2 ; ID 120 OF oDlg ; ITEMS { "Drive A:", "Drive C:", "Ram Drive", "Net Drive" } ; BITMAPS { "..\bitmaps\fdrive.bmp",; ...

...    ,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] -aRect[1]- 119,11  ,,,.t.);  //15 *          ,oCbx3:move(arect[3] ...

Daniel, Thank You very much, it is working now. Still I have my Combobox-problem, like You can see from the Screenshot. REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "One", "Two", "Three" } ; ID 230 OF oFld:aDialogs[1] ; STYLE CBS_DROPDOWN oCbx1:lTransparent := .F. ...

... different Tooltips in Relation to the selected Combobox-Row. http://www.pflegeplus.com/pictures/Ctooltip.jpg REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "One", "Two", "Three" } ; ID ID_SIMPLE OF oDlg ; ON CHANGE ( cItem4 := cItem1, oSay:Refresh(), ...

Oscar,

Those combos contain a GET control object, so you can also use their VALIDs, i.e.:

oCbx1:oGet:bValid := { || MsgBeep(), .T. }

Please check if that helps you, thanks

Loren, prueba con esto: local anumero:={ {'1','uno'},{'2','dos'},{'3','tres'},{'4','cuatro'} } local cItems:={} local oDlg, oCbx1 local cVar for n:=1 to len(aNumero) aadd(cItems,aNumero[n][2]) //para armar combobox con segundo termino next cVar:=cItems[1] DEFINE DIALOG oDlg RESOURCE ...

... function copiar() local oDestino, Destino, lOK:=.f. local aDirectorio:={},aFuente:={},aDestino:={} local oDlg, oCbx1 local cItems:=aDrives(), cDrive local cBmps:={}, n for n:=1 to len(cItems) aadd(cBmps,"hDrive") next cDrive:=cItems[1] Destino:= space(16) ...

... Sanil: It's this what your are looking for? //----------------------------------// function copiar() local oDestino, Destino, lOK:=.f. local oDlg, oCbx1 local cItems:=aDrives(), cDrive local cBmps:={}, n for n:=1 to len(cItems) aadd(cBmps,"hDrive") next cDrive:=cItems[1] Destino:= space(16) DEFINE ...

Sanil, See FWH\samples\ownerdra.prg. It contains this: REDEFINE COMBOBOX oCbx1 VAR cItem2 ; ID 120 OF oDlg ; ITEMS { "Drive A:", "Drive C:", "Ram Drive", "Net Drive" } ; BITMAPS { "..\bitmaps\fdrive.bmp",; "..\bitmaps\hdrive.bmp",; "..\bitmaps\ramdrive.bmp",; ...

Otra

oCbx1 : SetFont( oFont )

Saludos