Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DownArrow in Centered Checkbox in Grid
Message
From
06/11/2001 06:27:08
Jill Derickson
Software Specialties
Saipan, CNMI
 
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00577753
Message ID:
00577862
Views:
33
yes Vlad, thanks...just a skip does it.

>Is not just "Skip"? I just made a simple test and seems Skip for record source works ok...
>
>>>Hi All,
>>>
>>>From previous posts on the UT, I've created a container class so that I can have a checkbox centered in a grid colum. It all works well.
>>>
>>>I've noticed, though, when when a DownArrow is pressed when the checkbox has focus, the resulting action is like a Tab, i.e., focus moves to the the next column to the right in the grid, rather than moving down a row.
>>>
>>>I believe that this is due to the container, since when I put a regular checkbox in the column instead of the container, the DownArrow works as expected.
>>>
>>>Any input/help is appreciated.
>>>
>>>J
>>>
>>>P.S. The class is just a container with a checkbox, with the following code in the container init:
>>>
>>>
With this.ChkBox
>>>  If Type("this.parent.ControlSource")#"U"
>>>    .ControlSource = this.parent.ControlSource
>>>  EndIf
>>>  .Left = this.parent.Width/2 - .Width/2
>>>  If this.Height > .Height
>>>    .Top = this.parent.Height/2 - .Height/2
>>>  EndIf
>>>EndWith
>>
>>Jill,
>>This works for me :
>>
*CheckBox.Keypress
>>Lparameters nKeyCode, nShiftAltCtrl
>>With this.parent.parent.parent
>>  lnRows = int((.Height - (sysmetric(8)+.HeaderHeight))/.RowHeight)
>>  If nKeyCode = 24
>>    Nodefault
>>    If .RelativeRow = lnRows
>>      .DoScroll(1)
>>    Endif
>>    .ActivateCell(.RelativeRow+1,.RelativeColumn)
>>  Endif
>>  If nKeyCode = 5
>>    Nodefault
>>    If .RelativeRow = 1
>>      .DoScroll(0)
>>    Endif
>>    .ActivateCell(.RelativeRow-1,.RelativeColumn)
>>  Endif
>>Endwith
Cetin
Previous
Reply
Map
View

Click here to load this message in the networking platform