From 9a5d0e656f23ba98cf3f80a7462c95c58f7e5b86 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 8 Sep 2008 10:55:47 +0000
Subject: * OnExit and OnEnter are now publish for TfpgMemo. * Memo mediator
 now handles OnChange and OnExit events correctly. * tiOPF demo 21 now has a
 CountryList screen as well. Also fixed the Contact.Memo property usage.

---
 extras/tiopf/gui/tiMediators.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'extras/tiopf/gui/tiMediators.pas')

diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas
index 2825c1f4..e2b11681 100644
--- a/extras/tiopf/gui/tiMediators.pas
+++ b/extras/tiopf/gui/tiMediators.pas
@@ -255,9 +255,9 @@ begin
   if Subject.GetFieldBounds(FieldName,Mi,Ma) and (Ma>0) then
     FEditControl.MaxLength := Ma;
   if ObjectUpdateMoment in [ouOnChange,ouCustom] then
-    FeditControl.OnChange := @DoOnChange
+    FEditControl.OnChange := @DoOnChange
   else
-    FeditControl.OnExit := @DoOnChange;
+    FEditControl.OnExit := @DoOnChange;
 end;
 
 procedure TMediatorEditView.SetObjectUpdateMoment(const AValue: TObjectUpdateMoment);
@@ -499,6 +499,14 @@ procedure TMediatorMemoView.SetupGUIandObject;
 begin
   inherited;
   EditControl.Lines.Clear;
+
+  //if UseInternalOnChange then
+    //EditControl.OnChange := @DoOnChange; // default OnChange event handler
+  if ObjectUpdateMoment in [ouOnChange,ouCustom] then
+    FEditControl.OnChange := @DoOnChange
+  else
+    FEditControl.OnExit := @DoOnChange;
+
 //  EditControl.ScrollBars := ssVertical;
 //  EditControl.WordWrap   := True;
 end;
-- 
cgit v1.2.3-70-g09d2