FiveTech Software tech support forums

... DATA lCellStyle AS LOGICAL INIT .f. DATA aHeaders, aColSizes DATA nClrBackHead, nClrForeHead DATA nClrBackFocus, nClrForeFocus DATA aJustify, aActions DATA oGet DATA nLineStyle DATA lIconView, aIcons, bIconDraw, bIconText DATA nIconPos DATA lMouseWheel INIT .t. // AAL .F. para evitar refresh ...

... ; cFind := KeySeek(nKey,oLbx_PR,oSay,@cFind) ) , ; oLbx:SetFocus(),oLbx:Refresh() } oLbx:bChange := {|| cFind := "" , oSay:Refresh() } oLbx:aActions = Array( ( Alias())->(FCount() ) ) FOR n := 1 TO Len( oLbx:aActions) IF n = 1 oLbx:aActions [n] ={|| cFind := "",oSay:Refresh() ,index_mrez(n:=1,oLbx)} ...

... creamos un brows para la muestra FIELDS hBmp, proveedor->codigo, proveedor->nombre; HEADERS "","Código", "Nombre" ID 500 OF oDlg10 oBrw:aActions := {{|| NIL},{|| MsgBeep(),ordenar_por_codigo(aux,oBrw),oBrw:Upstable(),oBrw:Refresh()}, {|| MsgBeep(),ordenar_por_nombre(aux,oBrw),oBrw:Upstable(),oBrw:Refresh()}} ...

... redefine LISTBOX oBrw; FIELDS hBmp, temporal->codart, temporal->nomart; HEADERS "","Código", "Descripción" ID 500 OF oDlg1 oBrw:aActions := {{|| NIL},{||ordenar_por_codigo(),oBrw:Upstable(),oBrw:Refresh()}, {|| ordenar_por_nombre(),oBrw:Upstable(),oBrw:Refresh()}} ACTIVATE dialog ...

El browse tiene una data llamada ::aActions la cual es una array de bloques de codigo, uno por cada columna del browse, cuando haces click sobre la cabecera del browse se ejecutan las acciones metidas en el bloque de codigo: oBrw:aActions ...

... puedo capturar el dobleclick al pulsar sobre los header de cualquier columna ? Un saludo y gracias desde ya Fra Tenes que definir dentro del array aActions un codoblock por cada header del browse. Ej.: oBrw:aActions:= { {||Func1()},{||Func2()},etc} Un abrazo. El Loco =>)) Que clara la tenes ...

... puedo capturar el dobleclick al pulsar sobre los header de cualquier columna ? Un saludo y gracias desde ya Fra Tenes que definir dentro del array aActions un codoblock por cada header del browse. Ej.: oBrw:aActions:= { {||Func1()},{||Func2()},etc} Gran Sensei, vos sabes que es mi preferido............. ...

... puedo capturar el dobleclick al pulsar sobre los header de cualquier columna ? Un saludo y gracias desde ya Fra Tenes que definir dentro del array aActions un codoblock por cada header del browse. Ej.: oBrw:aActions:= { {||Func1()},{||Func2()},etc} Un abrazo. El Loco =>)) Que clara la tenes ...

... puedo capturar el dobleclick al pulsar sobre los header de cualquier columna ? Un saludo y gracias desde ya Fra Tenes que definir dentro del array aActions un codoblock por cada header del browse. Ej.: oBrw:aActions:= { {||Func1()},{||Func2()},etc} Un abrazo. El Loco =>))

... // fields: invoice,date,custcode REDEFINE BROWSE oBrw ALIAS "invoice" ID 101 OF oDlg oBrw:LoadFields( .T. ) // load all fields from dbf oBrw:aActions:={ {|| fCol('1') },{|| fCol('2') },{|| fCol('3') } } : : return .t. // Your user defined function below, function fCol(cX) msginfo('Header ...

TNHOE,

Thanks for respnding,
Can you give more detailed info?
Where should I place the command: oBrW:aActions
How could the Array look like ,example

Should the function: msgstop('col 1') define the order of records ?

Thanks again.

Jules

oBrw:aActions := { {||msgstop('col 1')}, {||msgstop('col 2')}, {||msgstop('col 3')}, ... }

... con WHEN .f.. Ahora funciona correctamente. * Corrección: Cambios menores en el manejo de colores en la clase TCBrowse. Soporte para la DATA aActions. Por favor, revisa el ejemplo samples\Enrico.prg * Corrección: En la clase TControl, el manejo de VK_ESCAPE se ha movido del método KeyChar() ...

... * Fix: POPUP menus where not properly disabling menuitems with WHEN .f.. Now it is ok. * Fix: Class TCBrowse, colors management minor fix. DATA aActions support. Please review samples\Enrico.prg * Fix: Class TControl, VK_ESCAPE management moved from Method KeyChar() to Method KeyDown(). * New: ...