FiveTech Software tech support forums

... := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus // quitar barra horizontal //oBrw:lHScroll := .F. oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ...

... 015, 007 ) WQout( { oTest2:nHeight } ) oWnd:Activate(, oWnd:bLClicked, oWnd:bRClicked, oWnd:bMoved, oWnd:bResized, oWnd:bPainted, oWnd:bKeyDown, oWnd:bInit,,,,,,,,,,, oWnd:bLButtonUp, .F. ) return NIL

... != nil, 12, 0 ),; aDim[ 3 ] - aDim[ 1 ] OF oDlg ; FONT oFont COLOR nClrFore, nClrBack oGet:oFont := oBrw:oFont oGet:oGet:Picture := cPicture oGet:bKeyDown := {|nKey| If(nKey=115,; ( uVar := If(DispDesc,(DispDesc(aDArray,tRtn)),cVar),; oGet:Refresh(),oGet:SetFocus(.T.)), ; If(iHelp,If(nKey=114,(uVar:=W_21A1(uVar,WHlp), ...

hi,

my Sample seems to work but it need a Keyboard Event (oDlg:bKeyDown = { || oDlg:End() } ) or a CLICK ( ON CLICK oDlg:End() ) to END().
how can i END() when just MOVE Mouse

... oBrw:aAppend := AClone( aBlankItem ) ), ; oBrw:GoBottom(), oBrw:GoLeftMost(), oBrw:RefreshCurrent(), ; oBrw:MakeTotals(), oBrw:Refresh() ) ) } :bKeyDown := { |k| If( k == VK_DELETE, ( oBrw:aAppend := nil, oBrw:Delete(), 0 ), nil ) } END WITH OBJECT oBrw:aCols[ 1 ] :nEditType = EDIT_BUTTON :bEditBlock ...

> Or, how do I send this key pressing event to the :bKeyDown block of an object ? #include "Fivewin.ch"static oDlgfunction Main()     DisablePrintScreen()     DEFINE DIALOG oDlg      oDlg:bKeyDown = { | nKey | If( ...

Or, how do I send this key pressing event to the :bKeyDown block of an object ?

... } } 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( ...

... || ( 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 ...