OK, so I worked out something that works for us.
You can create a shape object, with these properties
- $backpattern: kPatTranparent
- $bordercolor: something bright eg kYellow
- $linestyle: something obvious eg Line: 2
- $shape: kRect3D
- $effect: kBorderPlain
In $construct of the window:
Set reference irBox to $cwind.$objs.objBounds ;; Make this a shortcut to access the shape object
When we want to enable the shape object, we have a button to enable it with this code:
Calculate irBox.$selected as kTrue ;; Enable selection handles
When we save the record, capture the following:
- irBox.$top
- irBox.$left
- irBox.$width
- irBox.$height
Don’t forget to disable selection:
Calculate irBox.$selected as kFalse ;; Disable selection handles
It’s a little clunky, but it serves our purpose. Maybe others will find this useful!
A man rushed into the doctor’s office and shouted, “Doctor! I think I’m shrinking!”
The doctor calmly responded, “Now, settle down. You’ll just have to be a little patient.”
Paul W. Mulroney
We Don't Do Simple Pty Ltd
ACN 161 009 374
Bentley Western Australia 6102
