* 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.

1 files changed, 10 insertions, 2 deletions

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;