FiveTech Software tech support forums

... } } oBrw:bclrSel := {|| { iif(!empty(Neteo->FechaPago),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditNeteo(.f.),oBrw:SetFocus(),oBrw:Refresh(.t.)} ...

1. Why write oGet1:bKeyDown :={ |k|If( k == ASC("V") .and. GetKeyState(VK_CONTROL ), Check CRL F(), ) } for each control if the method can be modified :KeyDown via Override ? With override, the change applies to all Gets ...

Thank you, Rao, a good solution ! Please explain such points: 1. Why write oGet1:bKeyDown :={ |k|If( k == ASC("V") .and. GetKeyState(VK_CONTROL ), Check CRL F(), ) } for each control if the method can be modified :KeyDown via Override ? 2. Will this function ...

... ; "costo" , ; "UM", , "Ult.Modif" ; LINES CELL font ofont ON dblCLICK ( lsavek := .t., oDlgSTK:End() ) obrw:bKeyDown = { | nKey, nCol, nFlags | iif( nKey = K_ENTER, ( lsavek := .t., oDlgSTK:End() ), ) } oBrw:nRowHeight := 35 REDEFINE BTNBMP 2007 prompt HB_UTF8CHR( ...

... cEmpresa), cTab_Art:Refresh() } oBrw:bRClicked := {|| Stock_Producto(.F.,oBrw, cTab_Art, cEmpresa, cTab_Art:cod_art), cTab_Art:Refresh() } oBrw:bKeyDown := { | nKey | TeclasProducto(nKey, oBrw, cTab_Art, cEmpresa) } oBrw:oFont := oFont2 oBrw:SetDolphin(cTab_Art,.T.,.T.) oBrw:aCols[1]:SetCheck( ...

... cEmpresa), cTab_Art:Refresh() } oBrw:bRClicked := {|| Stock_Producto(.F.,oBrw, cTab_Art, cEmpresa, cTab_Art:cod_art), cTab_Art:Refresh() } oBrw:bKeyDown := { | nKey | TeclasProducto(nKey, oBrw, cTab_Art, cEmpresa) } oBrw:oFont := oFont2 oBrw:SetDolphin(cTab_Art,.T.,.T.) oBrw:aCols[1]:SetCheck( ...

... || ( dbselectarea( "RApertur" ), ofld1:aDialogs[ 2 ]:update(), oRApertur:gotop(), oRApertur:update(), oRApertur:refresh() ) } oRApertur:bKeyDown := { | nKey | VeoReg(, 1, oRApertur, nkey, "RApertur" ) } redefine say oObjetivo var xObjetivo memo id 4001 of ofld1:aDialogs[ 2 ...

... .OR. GETKEYSTATE( VK_ESCAPE ) .OR. ;              LASTKEY() = VK_ESCAPE      // ...   ELSE      // ...   ENDIF  Puede usar el bKeyDown() también. Regards, saludos.

... if the cell is editable. [A reason why we should not disturb the internal behavior of XBrowse by assigning different actions to common keys using bKeyDown] When FASTEDIT is true (oBrw:lFastEdit is .t.), pressing a permitted alpha numeric key starts inline cell edit, using that key as the first ...

... := .f. // quitar barra horizontal oBrw:lHScroll := .F. oBrw:aCols[ 4 ]:cDataType := "F" oBrw:aCols[ 2 ]:nWidth := 20 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|/*EditCorrijo(.f.),*/oBrw:Refresh()} ...

hi, i have Set EDIT_NONE and use oWnd:bKeyDown to react on VK_RETURN   oBrw:nEditTypes := EDIT_NONE   oWnd:bKeyDown := { | nKey, nFlag | DoBrowseKey( nKey, nFlag, oWnd, oGet, oBar, oBrw, aHead ) } STATIC PROCEDURE DoBrowseKey( ...

Hola. usas un Get, yo lo uso asi

REDEFINE GET aGets[17] VAR codbarra ID 30 OF oDlg PICTURE "@!" UPDATE

aGets[17]:bKeyDown:={|nKey|If(nkey == VK_RETURN,BuscarProd( @codbarra,oBrw1,aPunto_A,oDlg,TotVal,aGets ), ) }

saludos

hi, my BUTTON have a Caption which can be used as Hotkey using ALT + Key now i like to use F2 - F9 to activate BUTTON i can use o:bKeyDown Codeblock Slot to call a Functrion and use VK:* Key to identify how to EVAL() ACTION Codeblock e.g. for VK_F2 :?:    DEFINE BUTTONBAR oBar SIZE nPart, ...

hi,

i can use o:bKeyDown to F2 - F9 and F11
i know VK:F12 can be Devugger, but how to get VK:F10 ... it does "open" Menu if exist ...

got it :D a.) make a copy function XbrHexEdit() of which is in c:\fwh\source\classes\xbrowse.prg b.) add    oBrw:bKeyDown := { | nKey, nFlag | DoHEXKey( nKey, nFlag, oDlg, oBrw, cUpper ) } ! Note : bKeyDown here is for oBrw, not oDlg c.) use this Function STATIC ...