Focus on Find by key

[martinwcole]

Re: Focus on Find by key

a thought - is the find by field by any chance NOT a character field?

[Sandy Garrett]

Re: Focus on Find by key

I used your code adjusted for my index

parentform.index_set("catno")
parentform.find()
end

which works if the focus was somewhere in the form when the button was pushed. If the focus was elsewhere, the focus stays in the form and not in the find-by box, so the paste goes nowhere. Collowing the button with an <Enter> moves the focus and the cursor shows up in the find by box.

Catno is the index based on the Catno field, c 10.

[martinwcole]

Re: Focus on Find by key

ok - now try it somewhere in alpha sports, as a check

[Sandy Garrett]

Re: Focus on Find by key

^K is not a replication because the focus must be on the form for the Find-by box to come up. The problem happens only when the focus was elsewhere immediately before the button was clicked.

The problem definitely happens if the focus was on Notepad immediately before the button was pushed. It also happens if some other forms had focus, but I didn't check all types of forms. Maybe the Menus are exempt.

[martinwcole]

Re: Focus on Find by key

did you try alpha sports?

[Sandy Garrett]

Re: Focus on Find by key

Tried Alpha Sports (11:24 ET). Also found http://msgboard.alphasoftware.com/al...ad.php?t=61307, which I will check out after some sleep.

[Tim Kiebert]

Re: Focus on Find by key

Ok, now I see what you mean. With a button on the customer form of Alphasports. If the form is active, pressing the button opens the Find by Key dialog and gives it focus. If I give the control panel focus but have it placed so the button on the customer form is visible and then press the button the find by key dialog opens but the from remains in focus and not the dialog.


I placed topparent.activate() in the flyover event of the button and it sort a works. If I am too quick (ie don't give the flyover event time to kick in) then it doesn't. But I am testing on a 800mhz machine with only 500meg of ram and probably a lot of my swapfile disk space used up :(

I will test on my laptop later today.

[Tim Kiebert]

Re: Focus on Find by key

Sandy,

Martin mentioned earlier that there are clipboard tools that can be used.

Here is a snippet using one such tool.

topparent.index_set("Catno")

Dim vClip as C
vClip = ClipBoard.Get_Data()

If key_Exist("Catno",vClip) Then
    topparent.find(vClip)
Else
    Msgbox("Not Found", "This value - " + vClip + " - not Found")
End If

This would find your record or not with out even opening the dialog.

[martinwcole]

Re: Focus on Find by key

I see now why I don't have the issue - you are working with "windowed" screens, while I am working with full screen windows - thus the 'control panel' is not visible in my apps.

[Tim Kiebert]

Re: Focus on Find by key

I see now why I don't have the issue - you are working with "windowed" screens, while I am working with full screen windows - thus the 'control panel' is not visible in my apps.

Same here, that is why I did not see the issue right away as well. But the issue remains even with maximised forms when you activate a different program and then return to Alpha by pushing the button (ie it is the first port of call)

[Sandy Garrett]

Re: Focus on Find by key

Good news/bad news.

topparent.index_set("Catno")
Dim vClip as C
vClip = ClipBoard.Get_Data()
topparent.find(vClip)
End

works so far, but it means the button cannot be used for a "normal" find. A different copy is made after the find, so wiping the clipboard wouldn't help.

A second button would be a manageable compromise.

Now to get rid of these crashes in the Action Editor ;-)