Enclosed patch should fix 1851
"1. BeginDrag is defined 2 times in TControl in controls.pp"
Matthijs
--
Matthijs Willemstein <[EMAIL PROTECTED]>
Index: controls.pp
===================================================================
--- controls.pp (revision 8903)
+++ controls.pp (working copy)
@@ -1132,8 +1132,8 @@
procedure EditingDone; virtual;
procedure ExecuteDefaultAction; virtual;
procedure ExecuteCancelAction; virtual;
- procedure BeginDrag(Immediate: Boolean; Threshold: Integer);
- procedure BeginDrag(Immediate: Boolean);
+ procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
+// procedure BeginDrag(Immediate: Boolean);
procedure BringToFront;
function ColorIsStored: boolean; virtual;
function HasParent: Boolean; override;
Index: include/control.inc
===================================================================
--- include/control.inc (revision 8903)
+++ include/control.inc (working copy)
@@ -60,7 +60,7 @@
Starts the dragging of a control. If the Immediate flag is set, dragging
starts immediately.
------------------------------------------------------------------------------}
-procedure TControl.BeginDrag(Immediate: Boolean; Threshold: Integer);
+procedure TControl.BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
var
P : TPoint;
begin
@@ -88,10 +88,10 @@
{------------------------------------------------------------------------------
procedure TControl.BeginDrag(Immediate: Boolean);
------------------------------------------------------------------------------}
-procedure TControl.BeginDrag(Immediate: Boolean);
-begin
- BeginDrag(Immediate, -1);
-end;
+//procedure TControl.BeginDrag(Immediate: Boolean);
+//begin
+// BeginDrag(Immediate, -1);
+//end;
{------------------------------------------------------------------------------
TControl.BeginAutoDrag
