From f2b483fd29d6feda14da8d48841bd85fbf3d1f6f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 10 Aug 2007 16:17:36 +0000
Subject: [PATCH] rtti controls; published OnEditingDone

git-svn-id: trunk@11778 -
---
 components/rtticontrols/rttictrls.pas | 16 ++++++++++++++++
 lcl/include/control.inc               |  7 +++++++
 2 files changed, 23 insertions(+)

diff --git a/components/rtticontrols/rttictrls.pas b/components/rtticontrols/rttictrls.pas
index 02856f7247..82abf1a9bf 100644
--- a/components/rtticontrols/rttictrls.pas
+++ b/components/rtticontrols/rttictrls.pas
@@ -350,6 +350,7 @@ Type
     property OnChange;
     property OnChangeBounds;
     property OnClick;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     Property OnKeyDown;
@@ -424,6 +425,7 @@ Type
     property OnDblClick;
     property OnDragDrop;
     property OnDragOver;
+    property OnEditingDone;
     property OnEndDrag;
     property OnEnter;
     property OnExit;
@@ -491,6 +493,7 @@ Type
     property OnCloseUp;
     property OnDrawItem;
     property OnDropDown;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyDown;
@@ -551,6 +554,7 @@ Type
     property OnChangeBounds;
     property OnClick;
     property OnDblClick;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyDown;
@@ -607,6 +611,7 @@ Type
     property OnChangeBounds;
     property OnClick;
     property OnDblClick;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnItemClick;
@@ -662,6 +667,7 @@ Type
     property OnClick;
     property OnDblClick;
     property OnDrawItem;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyPress;
@@ -722,6 +728,7 @@ Type
     property OnClick;
     property OnDblClick;
     property OnDrawItem;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyPress;
@@ -800,6 +807,7 @@ Type
     property OnClick;
     property OnDragDrop;
     property OnDragOver;
+    property OnEditingDone;
     property OnEndDrag;
     property OnEnter;
     property OnExit;
@@ -853,6 +861,7 @@ Type
     property Link;
     property ModalResult;
     property OnClick;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyDown;
@@ -953,6 +962,7 @@ Type
     property OnChangeBounds;
     property OnClick;
     property OnDblClick;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyDown;
@@ -1007,6 +1017,7 @@ Type
     property Link;
     property MaxLength;
     property OnChange;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyDown;
@@ -1060,6 +1071,7 @@ Type
     property OnChangeBounds;
     property OnClick;
     property OnDayChanged;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     property OnKeyDown;
@@ -1164,6 +1176,7 @@ Type
     property OnChange;
     property OnChangeBounds;
     property OnClick;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     Property OnKeyDown;
@@ -1222,6 +1235,7 @@ Type
     property OnChange;
     property OnChangeBounds;
     property OnClick;
+    property OnEditingDone;
     property OnEnter;
     property OnExit;
     Property OnKeyDown;
@@ -1287,6 +1301,7 @@ Type
     property OnClick;
     property OnDragDrop;
     property OnDragOver;
+    property OnEditingDone;
     property OnEndDrag;
     property OnEnter;
     property OnExit;
@@ -1357,6 +1372,7 @@ Type
     property Min;
     property OnDragDrop;
     property OnDragOver;
+    property OnEditingDone;
     property OnEndDrag;
     property OnEnter;
     property OnExit;
diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index eaa75e76a7..def45c0848 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -3109,7 +3109,14 @@ Procedure TControl.MouseDown(Button: TMouseButton; Shift: TShiftState;
   X, Y: Integer);
 var
   P: TPoint;
+  Form: TCustomForm;
 begin
+  if (not (Self is TWinControl)) or (not TWinControl(Self).CanFocus) then begin
+    Form:=GetParentForm(Self);
+    if (Form<>nil) and (Form.ActiveControl<>nil) then
+      Form.ActiveControl.EditingDone;
+  end;
+
   if (Button in [mbLeft,mbRight]) and (DragObject<>nil) then begin
     P:=ClientToScreen(Point(X,Y));
     DragObject.MouseDown(Button,Shift,P.X,P.Y);