FiveTech Software tech support forums

... } } // 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.)} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ...

hi

i can add new Record, it was a Typo

---

i can use bLDblClick when NOT set nEditTypes

Code: Select all  Expand view

*      :nEditTypes := EDIT_GET
      :bLDblClick := { || oBrw:EditSource() }

it must before :bDataRow := Codeblock

... to a separate function "MySavePQQ( oRec )" in your program and make the changes you need. i can use your Sample with XBROWSE and :bLDblClick for "save" ok, i will try that Way --- instead of XBROWSER i have try   oRs := oPGU:Query( "select * from " + cTable ...

... := (.T.) // Quitamos el scroll horizontal oBrw:lVScroll := (.T.) // Quitamos el scroll horizontal oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:bLDblClick := {|| Opcion_Producto(oBrw, cTab_Art, cEmpresa), cTab_Art:Refresh() } oBrw:bRClicked := {|| Stock_Producto(.F.,oBrw, cTab_Art, cEmpresa, ...

... := (.T.) // Quitamos el scroll horizontal oBrw:lVScroll := (.T.) // Quitamos el scroll horizontal oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:bLDblClick := {|| Opcion_Producto(oBrw, cTab_Art, cEmpresa), cTab_Art:Refresh() } oBrw:bRClicked := {|| Stock_Producto(.F.,oBrw, cTab_Art, cEmpresa, ...

... := "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()} oBrw:nHeadStrAligns := AL_CENTER // alinea al centro las cabeceras de columnas ...

... RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) } oRApertur:bKeyDown := { | nKey | RABrowse(, 1, oRApertur, nkey, "RApertur" ) } oRApertur:bLDblClick := { | nRow, nCol, nkey | RABrowse( nRow, ncol, oRApertur, nkey, "RApertur" ) } ....... *----------------------------------------------------------------------------------------------------------------------- ...

Buenas a todos

Para controlar un evento, por ejemplo si pulsamos doble click sobre un objeto utilizamos el método oObjeto:bLDblClick := { |x,y| Mi_funcion() }

¿cómo controlar el "mantener pulsado el boton izquiero" + mover el cursor ?
(como cuando arrastras un objeto)

Gracias

Jesús Marín

Querido Joao, [ DBLCLICK <bLDblClick> ] se preprocesa en [\{|Self| <bLDblClick>\}] por eso no podemos pasarle un bloque de código ya que el preprocesador crea el bloque de código. Con los últimos cambios pienso que puede que ...

Querido Joao,

[ DBLCLICK <bLDblClick> ] se preprocesa en [\{|Self| <bLDblClick>\}] por eso no podemos pasarle un bloque de código ya que el preprocesador crea el bloque de código.

Con los últimos cambios pienso que puede que le funcione bien a Jose Luis

... // quitar barra horizontal oBrw:lHScroll := .F. oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|oBrw:Refresh()} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) // segundo xbrowse @ 161, ...

hi,

nageswaragunupudi wrote:bLDblClick := { || action() }

Thx for Answer.

i begin to understand Concept of FineWin.
i have to look for "bXXXX" DATA which Codeblock Slot a Control have.

than i can search for ":bXXXX" in \Sample and hope find a Demo what can be in Codeblock in that Case

bLDblClick := { || action() } FullScreen? Maximum size we can resize the image is the size of the XImage Control If you want to show the image in "full screen" then you need to first maximize the container window/dialog ...

... ,; oSay11:Refresh() ,; oSay21:Refresh() ,; oSay31:Refresh()) oBrw:nClrForeHead := 0 oBrw:nClrBackHead := 8778750 &&..Cream //oBrw:bLDblClick:= {|| oBrw:ShowSizes() } oBrw:nLineStyle:= 3 oBrw:aJustify := { .F.,.F., .F., .T., .T. } oBrw:bGoTop := { || nItem := 1 } oBrw:bGoBottom ...

... 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditoCons(.f.),oBrw:Refresh()} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) ACTIVATE ...