FiveTech Software tech support forums

Usa oTree:bChanged

Hi,

I'm flipping through xBbrowse. In the bChanged code block, bitmap files are loaded into XImage. However, if I do continuous scrolling (arrow, scrollbar slider, mouse wheel), there is a strong slowdown. Is it possible to optimize the contextual visualization of images ?

Antonio Linares wrote:oTree:bChanged = { | oItem |... }

Please review FWH\samples\pim.prg

Thanks Antonio but I don't have this sample in samples examples. I understand that bChanged I can capture moves in tree object but how I cant test if enter or click are pressed?

oTree:bChanged = { | oItem |... }

Please review FWH\samples\pim.prg

Antonio,

Con bChanged lo he solucionado.

Muchas gracias.

... only when the control loses focus. If we want some checks to be made before the control loses focus, we need to use ON CHANGE functionality ( or bChanged ) This is how all controls behave and datepicker is no exception. Nages, to simplify I created a minimal test. #include "fivewin.ch"#include ...

... only when the control loses focus. If we want some checks to be made before the control loses focus, we need to use ON CHANGE functionality ( or bChanged ) This is how all controls behave and datepicker is no exception.

::oTree :=TTreeView(): REDEFINE( 201, odlg,0,nrgb(255,255,255)) // 201 id ::oTree:bChanged := {|oTree,oItem|eng0303(self) } // dynamic add items .rc / .dll : CONTROL "", 201, "SysTreeView32", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL ...

... ACTIVATE DIALOG odlg nomodal; ON INIT (oself1:eng0300() method eng0300() class eng03class local odb1,odb2 odb1:=::odb1 odb2:=::odb2 ::oTree:bChanged := {|oTree,oItem|eng0303(self) } // ... return FUNCTION eng0303(obl1) local itemid1,version1 oitem:=obl1:oTree:GetSelected() itemid1:=LEFT(oitem:cprompt,nitemidlen) ...

... ),;            lDesign  := .f.    ::nId      = nId    ::oWnd     = oWnd    ::aItems   = {}    ::nClrText = nClrFore    ::nClrPane = nClrBack    ::bChanged = bChange     ::Register( nOR( CS_VREDRAW, CS_HREDRAW, TVS_HASBUTTONS, TVS_HASLINES, TVS_LINESATROOT ) )    oWnd:DefControl( Self ) return ...

... establecidos desde item[2], y si hay un valor en el item[4] que arme las ramas y establesca un codigo a ejecutarse.. No tiendo porque oTree:bChanged := {|oTree,oItem| oItem:= oTree:GetSelected(), MsgInfo( ValType( oItem:Cargo ) ) } devuelve un Hash cuando le estoy enviando un Codeblok o ...

Victor,

Acabo de probar este código y lo que tienes en Cargo es un hash:

oTree:bChanged := {|oTree,oItem| oItem:= oTree:GetSelected(), MsgInfo( ValType( oItem:Cargo ) ) }

Tu esperas un codeblock, pero no asignastes un codeblock ahi

Victor,

Prueba esto para ver si asi se repinta bien al expandir las ramas:

oTree:bExpanded = { || oTree:Refresh() }

Para ejecutar la acción de cada item, estas usando algo asi ?

oTree:bChanged = { || MsgInfo( oTree:GetSelected():cPrompt ) }

Gracias Fernando, funcionó... yo estaba intentando con bChanged, en lugar de bChange, pequeña y a la vez gran diferencia.

Gracias, saludos.

Antonio,

thank You very much for the info.
I noticed a response of bchanged with adding this line, but there is a error.

oBrw2:lColChangeNotify := .T.

from class xbrowse :
DATA lColChangeNotify AS LOGICAL INIT .f.
// if true bChange is evaluated when col is changed

Best Regards
Uwe