Re: [lazarus] Patch for 1851

2006-03-12 Thread Mattias Gaertner 
On Sat, 11 Mar 2006 16:17:24 +0100
Matthijs Willemstein <[EMAIL PROTECTED]> wrote:

> Enclosed patch should fix 1851
> "1. BeginDrag is defined 2 times in TControl in controls.pp"

Applied. Thanks.

Mattias

_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

[lazarus] Patch for 1851

2006-03-11 Thread Matthijs Willemstein 
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