Knowing when mover bars have been used on list box?

[EMJULIAN]

Is there a way to know that the user had moved a list box entry with the mover bars? How can I tell when they've completed the operation and what listindex they moved to?

Thanks
Eve

 

[TamarGranor]

In VFP 8 and later, there's an OnMoveItem event.

Tamar

 

[EMJULIAN]

How about in 7?

Thanks.
Eve

 

[TamarGranor]

In 7, it's pretty tricky. You have use the Mouse events and check the position of the mouse in the list. I'm pretty sure I wrote about how to do this stuff in the FPA Answers column a good while back. Let me see: looks like it was March, 2001.

Tamar

 

[ChrisRChamberlain]

EMJULIAN

If your controlsource is a table, an alternative to using a listbox with mover bars would be a grid set up to simulate a listbox with a vertically orientated group of command buttons that facilitate navigation, cmdTop, cmdDown, cmdUp and cmdBottom.

An advantage is that you can send the current record to either top or bottom of the table.

The following snippit is from a cmdDown .Click() event

[COLOR=blue]SKIP 1 IN (lcAlias)
SCATTER NAME loNext

SKIP -1 IN (lcAlias)
SCATTER NAME loThis

GATHER NAME loNext

SKIP 1 IN (lcAlias)
GATHER NAME loThis

TABLEUPDATE(.T.,.T.,lcAlias)[/color]

FAQ184-2483 - answering getting answered.​

Chris
PDFcommander^tm.net
PDFcommander^tm.co.uk

 

[ChrisRChamberlain]

EMJULIAN

Apologies - I omitted to mention that you can use the .Click() events of the command buttons to trap any record movement.

FAQ184-2483 - answering getting answered.​

Chris
PDFcommander^tm.net
PDFcommander^tm.co.uk

 

[EMJULIAN]

Thanks, the listbox is just a list, no table associated with it. I'll take a look at that March article you wrote Tamar.

If all else fails this feature will just have to wait until I get around to upgrading to 8!

Thanks again
Eve

 

[EMJULIAN]

I ended up using the InteractiveChange event and a cMOVED variable. After the interactive change I do the error check. Simple but it works for what I need to do.

Thanks for the help!
Eve