Hi Dave/Tom,
Have you tried really slowing down to say a second or more to see if you
are not giving it enough time to refresh?
Peter
On 03/06/2015 16:08, Tom Dawson wrote:
Gentleman,
Been working on this a couple of hours now and almost cracked it but here is
the scenario:
1. Listbox with multiple items in it
2. Moverbars property set to .T. so you can manually drag an item up or down
the list
Simple so far. We are implementing this on a touch screen and the moverbars are
too small for chunky fingers to accurately navigate to whatever sze you set the
listbox font at – i.e. the moverbars stay the same size.
So I thought, no problem, if I put two buttons outside the list and then feed
the keyboard “{CTRL+UPARROW” ore “CTRL+DNARROW” into the keyboard buffer after
selecting focus to the listbox then I can manually move any item up and down …
this works perfectly ad you can see the selected row moving up or down the
listbox no problem.
Phase 2 SHOULD have been to allow continuous movement of an item in the listbox
by keeping the Up/Down button pressed so I set up a little routine in the
Mousedown event of both the up and down button to sleepfoe 1000 milli seconds
and then send the keystrokes detailed above by a raisevent(This, “Click”) and
wralling this in a loop whilst the mouse is pressed. Once again no problem
apart from the line in the listbox is moved but you cannot see it moving
up/down a step at a time. Hence you keep the button pressed and only when you
let go does the item in the listbox appear in the new position.
I have tried resetting focus to the listbox after each keyboard forcing as well
as refreshing the listbox after each forced keystroke but to no avail.
Quite simply I want to see the item moving in the listbox one row at a time
either up or down and not simply when you stop pressing the up/down buttons
outside the listbox, and I can’t seem to make it happen despite putting in
sleep/timing loops at various places to slow the movement up so VFP can refresh
the screen more often.
So, in the button “Click” event I have:
* Start of Code
Thisform.List1.SetFocus
keyboard "{CTRL+DNARROW}"
Raiseevent(Thisform.List1, "Refresh")
*
Return
* End of Code
******
And in the button “MouseDown” event I have:
* Start of Code
LPARAMETERS nButton, nShift, nXCoord, nYCoord declare Sleep in Win32API ;
integer nMilliseconds
nMS=1000
do case
case nButton = 1 && left Button
*
DO WHILE MDOWN()
Sleep(nMS)
Raiseevent(This, "Click")
enddo
*
endcase
*
Return
* End of Code
******
Anyone any ideas?? It seems such a simple exercise to do...
Dave and Tom
---------------------------------------------------------------
This communication and the information it contains is intended for the person
or organisation to whom it is addressed. Its contents are confidential and may
be protected in law. If you have received this e-mail in error you must not
copy, distribute or take any action in reliance on it. Unauthorised use,
copying or disclosure of any of it may be unlawful. If you have received this
message in error, please notify us immediately by telephone or email.
Flexipol Packaging Ltd. has taken every reasonable precaution to minimise the
risk of virus transmission through email and therefore any files sent via
e-mail will have been checked for known viruses. However, you are advised to
run your own virus check before opening any
attachments received as Flexipol Packaging Ltd will not in any event accept any
liability whatsoever once an e-mail and/or any attachment is received.
It is the responsibility of the recipient to ensure that they have adequate
virus protection.
Flexipol Packaging Ltd.
Unit 14 Bentwood Road
Carrs
Industrial Estate
Haslingden
Rossendale
Lancashire
BB4 5HH
Tel:01706-222792
Fax: 01706-224683
www.Flexipol.co.uk
---------------------------------------------------------------
Terms & Conditions:
Notwithstanding delivery and the passing of risk in the goods, the property in
the goods shall not pass to the buyer until the seller
Flexipol Packaging Ltd. ("The Company") has received in cash or cleared funds
payment in full of the price of the goods and all other goods agreed to be sold by the
seller to the buyer for which payment is then due. Until such time as the property in the
goods passes to the buyer, the buyer shall hold the goods as the seller's fiduciary agent
and bailee and keep the goods separate from those of the buyer and third parties and
properly stored protected and insured and identified as the seller's property but shall
be entitled to resell or use the goods in the ordinary course of its business. Until such
time as the property in the goods passes to the buyer the seller shall be entitled at any
time
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
