From 6deba80b9afdb92237d73cad1e020ae015fd22c7 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 17 Nov 2014 13:08:49 +0000
Subject: [PATCH] RxDBLookupCombo - new event OnChangeData

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3736 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxlookup.pas | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

diff --git a/components/rx/trunk/rxlookup.pas b/components/rx/trunk/rxlookup.pas
index feb56ef69..df2a4d51b 100644
--- a/components/rx/trunk/rxlookup.pas
+++ b/components/rx/trunk/rxlookup.pas
@@ -152,6 +152,7 @@ type
   { TRxCustomDBLookupCombo }
   TRxCustomDBLookupCombo = class (TCustomControl)
   private
+    FOnChangeData: TNotifyEvent;
     //
     FStopClick:boolean;
     //FDataLink:TFieldDataLink;
@@ -257,6 +258,7 @@ type
     procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
     procedure DoPositionButton; virtual;
     procedure DoChange; virtual;
+    procedure DoChangeData; virtual;
     procedure DoButtonClick(Sender: TObject); virtual;
     Procedure Loaded; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
@@ -282,6 +284,7 @@ type
     property NumGlyphs : Integer read GetNumGlyphs write SetNumGlyphs;
     property OnButtonClick : TNotifyEvent read FOnButtonClick write FOnButtonClick;
     property OnChange : TNotifyEvent read FOnChange write FOnChange;
+    property OnChangeData : TNotifyEvent read FOnChangeData write FOnChangeData;
     property ReadOnly:boolean read FReadOnly write SetReadOnly;
     property EmptyValue: string read FEmptyValue write SetEmptyValue stored StoreEmpty;
     property EmptyItemColor: TColor read FEmptyItemColor write SetEmptyItemColor default clWindow;
@@ -342,6 +345,7 @@ type
     property NumGlyphs;
     Property OnButtonClick;
     property OnChange;
+    property OnChangeData;
     property OnClick;
     property OnClosePopup;
     property OnDblClick;
@@ -1146,9 +1150,10 @@ end;
 procedure TRxCustomDBLookupCombo.NeedUpdateData;
 begin
   if FLookupDataLink.Active and Assigned(FDataField) then
-  begin                                            ;
+  begin
     if FKeyField.IsNull then FDataField.Clear
-    else FDataField.AsString:=FKeyField.AsString
+    else FDataField.AsString:=FKeyField.AsString;
+    DoChangeData;
   end;
 end;
 
@@ -1259,6 +1264,7 @@ begin
       UpdateKeyValue;
       if Assigned(FOnSelect) then
         FOnSelect(Self);
+      DoChangeData;
       Key:=0;
     end;
   end;
@@ -1299,8 +1305,8 @@ begin
                    FLookupDataLink.DataSet.Next;
       end;
       SetValueKey(FKeyField.AsString);
-    	if Assigned(FOnSelect) then
-	  		FOnSelect(Self);
+      if Assigned(FOnSelect) then
+        FOnSelect(Self);
       Key:=0;
     end
   end;
@@ -1351,6 +1357,12 @@ begin
     FOnChange(Self);
 end;
 
+procedure TRxCustomDBLookupCombo.DoChangeData;
+begin
+  if Assigned(FOnChangeData) then
+    FOnChangeData(Self)
+end;
+
 procedure TRxCustomDBLookupCombo.DoButtonClick(Sender: TObject);
 begin
   if (not FReadOnly) and (not FStopClick) then//We can do something if and only if that's not ReadOnly field...
@@ -1532,9 +1544,12 @@ begin
   if (Value <> FValue) then
   begin
     if FListActive and not ReadOnly and (FDataLink.DataSource <> nil) and FDataLink.Edit then
-      FDataField.AsString := Value
+    begin
+      FDataField.AsString := Value;
+      DoChangeData;
+    end
     else
-    SetValueKey(Value);
+      SetValueKey(Value);
     if Assigned(FOnSelect) then
       FOnSelect(Self);
   end;