diff options
| -rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas index db125aca..736d782d 100644 --- a/extras/tiopf/gui/tiMediators.pas +++ b/extras/tiopf/gui/tiMediators.pas @@ -101,8 +101,6 @@ type { Base class to handle TfpgCheckBox controls } TtiCheckBoxMediatorView = class(TtiControlMediatorView) protected - procedure DoObjectToGUI; override; - procedure DoGUIToObject; override; procedure SetObjectUpdateMoment(const AValue: TtiObjectUpdateMoment); override; public constructor Create; override; @@ -723,18 +721,6 @@ end; { TtiCheckBoxMediatorView } -procedure TtiCheckBoxMediatorView.DoObjectToGUI; -begin - inherited DoObjectToGUI; - View.Checked := (Subject.PropValue[FieldName] = 'True'); -end; - -procedure TtiCheckBoxMediatorView.DoGUIToObject; -begin - inherited DoGUIToObject; - Subject.PropValue[FieldName] := View.Checked -end; - procedure TtiCheckBoxMediatorView.SetObjectUpdateMoment( const AValue: TtiObjectUpdateMoment); begin @@ -749,7 +735,7 @@ end; constructor TtiCheckBoxMediatorView.Create; begin inherited Create; - GuiFieldName:='Checked'; + GuiFieldName := 'Checked'; end; function TtiCheckBoxMediatorView.View: TfpgCheckBox; |