diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-08-29 12:41:01 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-08-29 12:41:01 +0000 |
| commit | 37318e41959ca1ff03fbc137b77bb9d7ce344946 (patch) | |
| tree | 4fbf428b5031c63249a1b1fc653ad1dd63cd4311 /extras/tiopf/gui/tiMediators.pas | |
| parent | 483eda5909cf21a06f3011857a12f47ae676ffef (diff) | |
| download | fpGUI-37318e41959ca1ff03fbc137b77bb9d7ce344946.tar.xz | |
* Fixed method visibility level issues in tiMediators unit.
Diffstat (limited to 'extras/tiopf/gui/tiMediators.pas')
| -rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 22 |
1 files changed, 11 insertions, 11 deletions
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 |