From 37318e41959ca1ff03fbc137b77bb9d7ce344946 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Fri, 29 Aug 2008 12:41:01 +0000
Subject: * Fixed method visibility level issues in tiMediators unit.

---
 extras/tiopf/gui/tiMediators.pas | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'extras/tiopf/gui')

diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas
index 6881b58c..2aa89a94 100644
--- a/extras/tiopf/gui/tiMediators.pas
+++ b/extras/tiopf/gui/tiMediators.pas
@@ -37,12 +37,11 @@ type
   protected
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
-  protected
     procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
     procedure   SetupGUIandObject; override;
     procedure   SetObjectUpdateMoment (Const AValue : TObjectUpdateMoment); override;
   public
-    Constructor Create; override;
+    constructor Create; override;
     constructor CreateCustom(pEditControl: TfpgWidget; pSubject: TtiObject; pFieldName: string; pGuiFieldName: string = 'Text'); reintroduce;
     destructor  Destroy; override;
     property    EditControl: TfpgEdit read FEditControl write FEditControl;
@@ -54,9 +53,9 @@ type
   TMediatorCheckBoxView = class(TMediatorView)
   private
     FEditControl: TfpgCheckBox;
+  protected
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
-  protected
     procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
   public
     Constructor Create; override;
@@ -69,9 +68,9 @@ type
   TMediatorStaticTextView = class(TMediatorView)
   private
     FEditControl: TfpgLabel;
+  protected
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
-  protected
     procedure   SetupGUIandObject; override;
   public
     Constructor Create; override;
@@ -102,10 +101,10 @@ type
   TMediatorTrackBarView = class(TMediatorView)
   private
     FEditControl: TfpgTrackBar;
-    function    GetGUIControl: TComponent; override;
-    procedure   SetGUIControl(const AValue: TComponent);override;
     procedure   DoTrackBarChanged(Sender: TObject; APosition: integer);
   protected
+    function    GetGUIControl: TComponent; override;
+    procedure   SetGUIControl(const AValue: TComponent);override;
     procedure   SetupGUIandObject; override;
   public
     Constructor Create; override;
@@ -118,9 +117,9 @@ type
   TMediatorComboBoxView = class(TMediatorView)
   private
     FEditControl: TfpgComboBox;
+  protected
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent); override;
-  protected
     procedure   SetupGUIandObject; override;
     procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
     procedure   DoObjectToGui; override;
@@ -150,9 +149,9 @@ type
     procedure   SetListObject(const AValue: TtiObjectList); override;
     procedure   SetOnChangeActive(AValue: Boolean); virtual;
     procedure   SetupGUIandObject; override;
-  public
     procedure   DoGuiToObject; override;
     procedure   DoObjectToGui; override;
+  public
     procedure   RefreshList; virtual;
   end;
   
@@ -161,14 +160,14 @@ type
   TMediatorMemoView = class(TMediatorView)
   private
     FEditControl: TfpgMemo;
+  protected
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
-  protected
     procedure   SetupGUIandObject; override;
-  public
-    property    EditControl: TfpgMemo read FEditControl write FEditControl;
     procedure   DoObjectToGui; override;
     procedure   DoGuiToObject; override;
+  public
+    property    EditControl: TfpgMemo read FEditControl write FEditControl;
     class function ComponentClass: TClass; override;
   end;
 
@@ -177,6 +176,7 @@ type
   TMediatorCalendarComboView = class(TMediatorView)
   private
     FEditControl: TfpgCalendarCombo;
+  protected
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
   public
-- 
cgit v1.2.3-70-g09d2