diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-23 15:57:59 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-23 15:57:59 +0200 |
commit | 356c7a0620cef65d7675150d3b635f8f8158c10c (patch) | |
tree | 106ed9cd167177ac97b9d1906363aa3fcd97183e | |
parent | ceb2ee14dadb796dad80ca10ac85d8f5a024d22d (diff) | |
download | fpGUI-356c7a0620cef65d7675150d3b635f8f8158c10c.tar.xz |
With new mediator refactoring the CheckBox mediator can be simplified.
-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; |