TtiMediatorView

type TtiMediatorView = class(TtiObject, ItiObserverHandlesErrorState) end;

protected

  UseInternalOnChange: Boolean;

  procedure CheckFieldNames;

  procedure TestIfValid;

  procedure CheckSetupGUIandObject;

  procedure SetupGUIandObject; virtual;

  procedure DoOnChange(); virtual;

  function GetSubject; virtual;

  procedure UpdateGUIValidStatus(); virtual;

  function DataAndPropertyValid;

  procedure DoGUIToObject; virtual;

  procedure DoObjectToGUI; virtual;

  procedure GetObjectPropValue(); virtual;

  procedure SetListObject(); virtual;

  procedure SetSubject(); virtual;

  procedure SetActive(); virtual;

  procedure SetFieldName(); virtual;

  procedure SetObjectUpdateMoment(); virtual;

  procedure RaiseMediatorError();

  function GetSelectedObject; virtual;

  procedure SetSelectedObject(); virtual;

public

  constructor Create; override;

  constructor CreateCustom(); virtual; overload;

  destructor Destroy; override;

  class function AllowRecursiveCopy; virtual;

  class function ComponentClass; virtual;

  class function CompositeMediator; virtual;

  procedure GUIToObject;

  procedure ObjectToGUI();

  procedure Update(); override;

  procedure GUIChanged;

  procedure SetView(); virtual;

  function View;

  property Subject: TtiObject; [rw]

  property ValueList: TtiObjectList; [rw]

  property SelectedObject: TtiObject; [rw]

published

  property FieldName: string; [rw]

  property RootFieldName: string; [rw]

  property GUIFieldName: string; [rw]

  property ObjectUpdateMoment: TtiObjectUpdateMoment; [rw]

  property OnBeforeGUIToObject: TtiBeforeGUIToObjectEvent; [rw]

  property OnAfterGUIToObject: TtiAfterGUIToObjectEvent; [rw]

  property OnObjectToGUI: TtiObjectToGUIEvent; [rw]

  property Active: Boolean; [rw]

TtiMediatorView,ItiObserverHandlesErrorState

TtiObject

Base class for single objects

TtiVisited

The class that gets visited

TtiBaseObject,IInterface

TObject