On a Mac running 10.4.9 with RB 07.1 I have an subclass of an
EditField called MyEditField in a subclass of a ContainerControl
called MyContainerControl. My EditField will be a control array with
say six elements. MyContainerControl has a Boolean property called
MyBoolean. The EditField has a property which is a MyContainerControl
called AContainerControl. In the Open event of each instance of
MyContainerControl I set MyBoolean.
In the Activate event of the class definition of MyContainerControl I
iterate over all the controls testing if the control ISA MyEditField.
If it is I set AContainer control to Self.
dim myControl as window
dim i as integer
myControl = self
For i = 0 to Self.ControlCount-1
If Self.control(i) IsA MyEditField then
MyEditField(control(i)). AContainerControl = self
end if
next
In the MouseUp event of the class definitions of MyEditField:
dim d as DragItem
d = NewDragItem(0,0,0,0)
d.Text = " "
d.drag
return true
For testing in the DragEnter event of the class definitions
MyEditField I test to see if MyBoolean is true:
if self. AContainerControl.MyBoolean = True then
Window1.AnEditField1.text = "MyBoolean is True"
else
Window1.AnEditField1.text = "MyBoolean is False"
end if
I do the same for MouseUp only using Window1.AnEditField2 .
In MyContainerControl I create the six instances of the array
control MyEditField.
In a window I create two instances of MyContainerControl. In one
instance in the Open event I set MyBoolean to true in the other
false. I create two EditField instances in the window.
The problem I am having is that if I drag something from one
MyEditField to another within a MyContainerControl I see the correct
test messages in the EditFields. MyBoolean is the same in DragOver
and MouseUp. But if I drag from a 'true' container to a 'false'
container the DragEnter result is false and the MouseUp is true.
MouseUp is always the state where MouseDown occurred and DragEnter is
the state of the last DragEnter when dragging between container
controls.
Am I wrong?
Is this a bug?
Michael
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
