FiveTech Software tech support forums

... F., .T.,,, 015, 007, .F., .F., .F., .F., .F., .F., .F., "oTest2",, .F.,,, ) ; oTest2:SetSize( 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

oBrw:bLClicked doesn't give errors, but it doesn't do anything either

Have you tried to use oBrw:bLClicked ?

... 10,-10 PIXEL OF oDlg ;
DATASOURCE oDbf COLUMNS aCols ;
AUTOSORT FONT oFont;
NOBORDER CELL LINES

WITH OBJECT oBrw
:SetMultiSelectCol()
:bLClicked := { |r,c,f,oBrw| if( oBrw:Mousecolpos( c ) == 1, ;
( if( ( f := AScan( oBrw:aSelected, oBrw:BookMark ) ) == 0, ;
( AAdd( oBrw:aSelected, oBrw ...

You are right that AI still fails and make mistakes, but sometimes it offers you very useful hints

> what is "KL" ?

In the code snippet I provided, "KL" is a keyboard shortcut that is set using the SetKey() function. It's a way to delay the execution of the Edit_Comuni() function.

When you set a keyboard shortcut using SetKey(), Harbour will wait for the user to release all keys and then ...

> what is "KL" ?

In the code snippet I provided, "KL" is a keyboard shortcut that is set using the SetKey() function. It's a way to delay the execution of the Edit_Comuni() function.

When you set a keyboard shortcut using SetKey(), Harbour will wait for the user to release all keys and then ...

... xbrowse, specifically when using the spacebar to toggle selection. Let's break it down and see if we can fix this.

First, let's analyze the `:bLClicked` block:


:bLClicked := { |r,c,f,oBrw|
if( oBrw:Mousecolpos( c ) == 1,
( if( ( f := AScan( oBrw:aSelected, oBrw:BookMark ) ) == 0,
( AAdd ...

i have a xbrowse with :SetMultiSelectCol()

with bRClicked I associated a menupopup

with :bLClicked I click on a row and select it I made the same with :bKeyChar ( space button)



:bLClicked := { |r,c,f,oBrw| if( oBrw:Mousecolpos( c ) == 1, ;
( if( ( f := AScan( oBrw:aSelected, oBrw:BookMark ...

Mr Rao,

I need to treat each xBrowser cell as if it were a button. Simply click on it and it will perform an action.

The bLClicked command, it seems, treats the entire line.

Att.,

Oliveiros Junior

... k, lFirstEdit ) } // PostEdit(o,x,k) }
:nEditType := EDIT_GET
END

If !Empty( oRApertur:aCols ); oRApertur:Cargos := nil; endif


oRApertur:bLClicked := { || ( dbselectarea( "RApertur" ), ofld1:aDialogs[ 2 ]:update(), oRApertur:gotop(), oRApertur:update(), oRApertur:refresh() ) }
oRApertur ...

Comenta esta línea:

// oTree:blclicked := { | nRow, nCol, nKeyFlags | oRama:= ::seleccionarRama( oTree, nRow, nCol, nKeyFlags ) }

No puedes interferir el funcionamiento por defecto del botón izquierdo en el árbol

y en este caso que necesito que al hacer un click me seleccione una rama como lo ...

Comenta esta línea:

// oTree:blclicked := { | nRow, nCol, nKeyFlags | oRama:= ::seleccionarRama( oTree, nRow, nCol, nKeyFlags ) }

No puedes interferir el funcionamiento por defecto del botón izquierdo en el árbol

Estimado José,

oDlg:bLClicked = { | nRow, nCol | MsgInfo( nRow, nCol ) }
oDlg:bRClicked = { | nRow, nCol | MsgInfo( nRow, nCol ) }

Leandro,

Añade estas líneas al ejemplo photos.prg:

local oPen, nX1, nY1, nX2, nY2

DEFINE PEN oPen COLOR CLR_YELLOW WIDTH 3
...
oImg:bLClicked = { | nRow, nCol | If( nX1 == nil, ( nX1 := nRow, nY1 := nCol ), ( nX1 := nil, nX2 := nil ) ) }

oImg:bMMoved = { | nRow, nCol, hDC | If( nX1 != nil ...