From 30cb1d0f87d79a11169ec741a993b4d69213cdcb Mon Sep 17 00:00:00 2001 From: graemeg Date: Tue, 9 Sep 2008 15:31:23 +0000 Subject: * Fixed a bug in TfpgListView where it didn't paint the last column's content. * Applied formating to tiListMediators * Removed the ListBox implementation in tiListMediators. It was totally wrong. --- extras/tiopf/gui/tiListMediators.pas | 437 ++++++++++------------------------- 1 file changed, 127 insertions(+), 310 deletions(-) (limited to 'extras/tiopf/gui/tiListMediators.pas') diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas index 4bfe06b4..cfe04437 100644 --- a/extras/tiopf/gui/tiListMediators.pas +++ b/extras/tiopf/gui/tiListMediators.pas @@ -10,18 +10,15 @@ unit tiListMediators; interface uses - Classes - ,SysUtils - ,tiBaseMediator - ,gui_listview - ,gui_grid - ,gui_listbox - ,tiObject - ; - - -type + Classes, + SysUtils, + tiBaseMediator, + gui_listview, + gui_grid, + gui_listbox, + tiObject; +type { Composite mediator for TfpgListView } TListViewMediator = class(TCustomListMediator) private @@ -29,12 +26,12 @@ type FView: TfpgListView; procedure SetView(const AValue: TfpgListView); protected - function GetSelectedObject: TtiObject; override; - procedure SetSelectedObject(const AValue: TtiObject);override; + function GetSelectedObject: TtiObject; override; + procedure SetSelectedObject(const AValue: TtiObject); override; procedure CreateColumns; override; - procedure DoCreateItemMediator(AData: TtiObject; ARowIdx : Integer); override; - function GetGuiControl : TComponent; override; - procedure SetGuiControl (Const AValue : TComponent); override; + procedure DoCreateItemMediator(AData: TtiObject; ARowIdx: integer); override; + function GetGuiControl: TComponent; override; + procedure SetGuiControl(const AValue: TComponent); override; procedure SetupGUIandObject; override; procedure ClearList; override; procedure RebuildList; override; @@ -42,11 +39,11 @@ type constructor CreateCustom(AModel: TtiObjectList; AView: TfpgListView; ADisplayNames: string; AIsObserving: Boolean = True); overload; constructor CreateCustom(AModel: TtiObjectList; AView: TfpgListView; AOnBeforeSetupField: TOnBeforeSetupField; ADisplayNames: string; AIsObserving: Boolean = True); overload; class function ComponentClass: TClass; override; - Constructor Create; override; - Destructor Destroy; override; + constructor Create; override; + destructor Destroy; override; procedure HandleSelectionChanged; override; published - property View: TfpgListView read FView Write SetView; + property View: TfpgListView read FView write SetView; end; @@ -58,22 +55,22 @@ type TStringGridMediator = class(TCustomListMediator) private FView: TfpgStringGrid; - procedure DoCreateItemMediator(AData: TtiObject; ARowIdx : Integer); override; + procedure DoCreateItemMediator(AData: TtiObject; ARowIdx: integer); override; procedure SetView(const AValue: TfpgStringGrid); protected - function GetSelectedObject: TtiObject; override; - procedure SetSelectedObject(const AValue: TtiObject);override; + function GetSelectedObject: TtiObject; override; + procedure SetSelectedObject(const AValue: TtiObject); override; procedure CreateColumns; override; - Function GetGuiControl : TComponent; override; - Procedure SetGuiControl (Const AValue : TComponent); override; + function GetGuiControl: TComponent; override; + procedure SetGuiControl(const AValue: TComponent); override; procedure SetupGUIandObject; override; - procedure RebuildList;override; + procedure RebuildList; override; public constructor CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean = True); class function ComponentClass: TClass; override; published - property View: TfpgStringGrid read FView Write SetView; - property SelectedObject: TtiObject read GetSelectedObject write SetSelectedObject; + property View: TfpgStringGrid read FView write SetView; + property SelectedObject: TtiObject read GetSelectedObject write SetSelectedObject; end; @@ -86,14 +83,14 @@ type TListViewListItemMediator = class(TListItemMediator) private FView: TfpgLVItem; - procedure SetupFields; virtual; + procedure SetupFields; virtual; public - constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; const AFieldsInfo : TtiMediatorFieldInfoList; IsObserving: Boolean = True); - constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; const AFieldsInfo : TtiMediatorFieldInfoList; IsObserving: Boolean = True); overload; - procedure BeforeDestruction; override; - procedure Update(ASubject: TtiObject); override; + constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean = True); + constructor CreateCustom(AModel: TtiObject; AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean = True); overload; + procedure BeforeDestruction; override; + procedure Update(ASubject: TtiObject); override; published - property View: TfpgLVItem read FView; + property View: TfpgLVItem read FView; end; @@ -102,38 +99,13 @@ type TStringGridRowMediator = class(TListItemMediator) private FView: TfpgStringGrid; - FRowIndex: Integer; + FRowIndex: integer; public - constructor CreateCustom(AModel: TtiObject; AGrid: TfpgStringGrid; Const AFieldsInfo : TtiMediatorFieldInfoList; ARowIndex: integer; IsObserving: Boolean = True); - procedure Update(ASubject: TtiObject); override; + constructor CreateCustom(AModel: TtiObject; AGrid: TfpgStringGrid; const AFieldsInfo: TtiMediatorFieldInfoList; ARowIndex: integer; IsObserving: Boolean = True); + procedure Update(ASubject: TtiObject); override; published property View: TfpgStringGrid read FView; - Property RowIndex : Integer Read FRowIndex; - end; - - - { Used for presenting a list of objects in a TfpgListBox component. } - TListBoxMediator = class(TCustomListMediator) - private - FView: TfpgListBox; - FSelectedObject: TtiObject; - FObserversInTransit: TList; - protected - function GetGUIControl: TComponent; override; - function GetSelectedObject: TtiObject; override; - procedure SetGUIControl(const AValue: TComponent);override; - procedure SetSelectedObject(const AValue: TtiObject); override; - procedure CreateColumns; override; - procedure ClearList; override; - procedure DoCreateItemMediator(AData: TtiObject; ARowIdx: integer); override; - procedure RebuildList; override; - public - constructor Create; override; - destructor Destroy; override; - class function CompositeMediator: Boolean; override; - class function ComponentClass: TClass; override; - procedure HandleSelectionChanged; override; - property View: TfpgListBox read FView; + property RowIndex: integer read FRowIndex; end; @@ -144,18 +116,18 @@ implementation procedure TListViewMediator.SetView(const AValue: TfpgListView); begin - FView:=AValue; + FView := AValue; SetGUIControl(AValue); end; function TListViewMediator.GetGuiControl: TComponent; begin - Result:=FView; + Result := FView; end; procedure TListViewMediator.SetGuiControl(const AValue: TComponent); begin - FView:=AValue as TfpgListView; + FView := AValue as TfpgListView; inherited SetGuiControl(AValue); end; @@ -163,16 +135,13 @@ procedure TListViewMediator.SetSelectedObject(const AValue: TtiObject); var i: integer; begin - for i := 0 to FView.Items.Count-1 do - begin + for i := 0 to FView.Items.Count - 1 do if TtiObject(FView.Items.Item[i].UserData) = AValue then begin -// FView.Selected := FView.Items.Item[i]; FView.ItemIndex := i; HandleSelectionChanged; Exit; //==> end; - end; end; function TListViewMediator.GetSelectedObject: TtiObject; @@ -183,19 +152,18 @@ begin Result := TtiObject(FView.Items.Item[FView.ItemIndex].UserData); end; - -procedure TListViewMediator.DoCreateItemMediator(AData: TtiObject; ARowIdx : Integer); +procedure TListViewMediator.DoCreateItemMediator(AData: TtiObject; ARowIdx: integer); var li: TfpgLVItem; m: TListViewListItemMediator; begin DataAndPropertyValid(AData); - + { Create ListItem and Mediator } - li := TfpgLVItem.Create(FView.Items); + li := TfpgLVItem.Create(FView.Items); li.UserData := AData; FView.Items.Add(li); - m := TListViewListItemMediator.CreateCustom(AData, li, OnBeforeSetupField, FieldsInfo, Active); + m := TListViewListItemMediator.CreateCustom(AData, li, OnBeforeSetupField, FieldsInfo, Active); MediatorList.Add(m); end; @@ -203,19 +171,19 @@ procedure TListViewMediator.CreateColumns; var c: integer; lc: TfpgLVColumn; - lInfo : TtiMediatorFieldInfo; + lInfo: TtiMediatorFieldInfo; begin if View.Columns.Count = 0 then begin - { Create column headers } - for c := 0 to Pred(FieldsInfo.Count) do + for c := 0 to FieldsInfo.Count-1 do begin - lInfo := FieldsInfo[c]; - lc := TfpgLVColumn.Create(View.Columns); - lc.AutoSize := False; - lc.Caption := lInfo.Caption; - lc.Width := lInfo.FieldWidth; - lc.Alignment := lInfo.Alignment; + lInfo := FieldsInfo[c]; + lc := TfpgLVColumn.Create(View.Columns); + lc.AutoSize := False; + lc.Caption := lInfo.Caption; + lc.Width := lInfo.FieldWidth; + lc.Alignment := lInfo.Alignment; + lc.Resizable := True; View.Columns.Add(lc); end; end; @@ -226,11 +194,11 @@ begin { Setup TfpgListView defaults } FView.Columns.Clear; FView.Items.Clear; -// FView.ViewStyle := vsReport; + // FView.ViewStyle := vsReport; FView.ShowHeaders := True; -// FView.RowSelect := True; -// FView.AutoSize := False; -// FView.ScrollBars := ssAutoBoth; + // FView.RowSelect := True; + // FView.AutoSize := False; + // FView.ScrollBars := ssAutoBoth; end; procedure TListViewMediator.ClearList; @@ -241,7 +209,7 @@ end; procedure TListViewMediator.RebuildList; begin MediatorList.Clear; -// ClearList; + ClearList; { This rebuilds the whole list. Not very efficient. You can always override this in your mediators to create a more optimised rebuild. } @@ -255,22 +223,20 @@ begin end; end; -constructor TListViewMediator.CreateCustom(AModel: TtiObjectList; - AView: TfpgListView; AOnBeforeSetupField: TOnBeforeSetupField; - ADisplayNames: string; AIsObserving: Boolean); +constructor TListViewMediator.CreateCustom(AModel: TtiObjectList; AView: TfpgListView; AOnBeforeSetupField: TOnBeforeSetupField; ADisplayNames: string; AIsObserving: Boolean); begin Create; // don't forget this OnBeforeSetupField := AOnBeforeSetupField; - DisplayNames := ADisplayNames; // Will call ParseDisplaynames. - Subject := AModel; - GUIControl := AView; // Will call SetupGUIandObject; + DisplayNames := ADisplayNames; // Will call ParseDisplaynames. + Subject := AModel; + GUIControl := AView; // Will call SetupGUIandObject; CreateSubMediators; - Active := AIsObserving; // Will attach/Detach + Active := AIsObserving; // Will attach/Detach end; class function TListViewMediator.ComponentClass: TClass; begin - Result:=TfpgListView; + Result := TfpgListView; end; constructor TListViewMediator.Create; @@ -279,16 +245,15 @@ begin FObserversInTransit := TList.Create; end; -constructor TListViewMediator.CreateCustom(AModel: TtiObjectList; - AView: TfpgListView; ADisplayNames: string; AIsObserving: Boolean); +constructor TListViewMediator.CreateCustom(AModel: TtiObjectList; AView: TfpgListView; ADisplayNames: string; AIsObserving: Boolean); begin - CreateCustom(AModel,AView,Nil,ADisplayNames,AIsObserving); + CreateCustom(AModel, AView, nil, ADisplayNames, AIsObserving); end; -Destructor TListViewMediator.Destroy; +destructor TListViewMediator.Destroy; begin - IsObserving:=False; - FView := nil; + IsObserving := False; + FView := nil; inherited; end; @@ -316,11 +281,9 @@ begin SelectedObject.ObserverList.Assign(FObserversInTransit); { Set the Observers Subject property to the selected object } - for i := 0 to SelectedObject.ObserverList.Count-1 do - begin + for i := 0 to SelectedObject.ObserverList.Count - 1 do TMediatorView(SelectedObject.ObserverList.Items[i]).Subject := - SelectedObject; - end; + SelectedObject; // execute the NotifyObservers event to update the observers. SelectedObject.NotifyObservers; @@ -336,46 +299,43 @@ var lMemberName: string; lValue: string; begin - lMemberName :=FFieldsInfo[0].PropName; - lValue:=FModel.PropValue[lMemberName]; + lMemberName := FFieldsInfo[0].PropName; + lValue := FModel.PropValue[lMemberName]; if Assigned(OnBeforeSetupField) then OnBeforeSetupField(FModel, lMemberName, lValue); FView.Caption := lValue; - for c := 1 to FFieldsInfo.Count-1 do - begin + for c := 1 to FFieldsInfo.Count - 1 do + begin lMemberName := FFieldsInfo[c].PropName; - lValue := FModel.PropValue[lMemberName]; + lValue := FModel.PropValue[lMemberName]; if Assigned(OnBeforeSetupField) then OnBeforeSetupField(FModel, lMemberName, lValue); FView.SubItems.Add(lValue); - end; + writeln('SubItems.Add for ', lMemberName, ' with value <', lValue, '>'); + end; end; -constructor TListViewListItemMediator.CreateCustom(AModel: TtiObject; - AView: TfpgLVItem; const AFieldsInfo: TtiMediatorFieldInfoList; - IsObserving: Boolean); +constructor TListViewListItemMediator.CreateCustom(AModel: TtiObject; AView: TfpgLVItem; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean); begin - CreateCustom(AModel,AView,Nil,AFieldsInfo,IsObserving); + CreateCustom(AModel, AView, nil, AFieldsInfo, IsObserving); end; -constructor TListViewListItemMediator.CreateCustom(AModel: TtiObject; - AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; - const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean); +constructor TListViewListItemMediator.CreateCustom(AModel: TtiObject; AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean); begin inherited Create; - FModel := AModel; - FView := AView; - FFieldsInfo := AFieldsInfo; + FModel := AModel; + FView := AView; + FFieldsInfo := AFieldsInfo; OnBeforeSetupField := AOnBeforeSetupField; SetupFields; - Active:=IsObserving; // Will attach + Active := IsObserving; // Will attach end; procedure TListViewListItemMediator.BeforeDestruction; begin FModel.DetachObserver(self); - FModel := nil; - FView := nil; + FModel := nil; + FView := nil; inherited BeforeDestruction; end; @@ -388,19 +348,19 @@ begin Assert(FModel = ASubject); lMemberName := FFieldsInfo[0].PropName; - lValue := FModel.PropValue[lMemberName]; + lValue := FModel.PropValue[lMemberName]; if Assigned(OnBeforeSetupField) then OnBeforeSetupField(FModel, lMemberName, lValue); FView.Caption := lValue; - for c := 1 to FFieldsInfo.Count-1 do - begin + for c := 1 to FFieldsInfo.Count - 1 do + begin lMemberName := FFieldsInfo[c].PropName; - lValue := FModel.PropValue[lMemberName]; + lValue := FModel.PropValue[lMemberName]; if Assigned(OnBeforeSetupField) then OnBeforeSetupField(FModel, lMemberName, lValue); - FView.SubItems[c-1] := lValue; + FView.SubItems[c - 1] := lValue; end; end; @@ -425,14 +385,12 @@ procedure TStringGridMediator.SetSelectedObject(const AValue: TtiObject); var i: integer; begin - for i := 0 to FView.RowCount-1 do - begin + for i := 0 to FView.RowCount - 1 do if TtiObject(FView.Objects[0, i]) = AValue then begin FView.FocusRow := i; Exit; //==> end; - end; end; procedure TStringGridMediator.SetView(const AValue: TfpgStringGrid); @@ -442,26 +400,26 @@ end; function TStringGridMediator.GetGuiControl: TComponent; begin - Result:=fView; + Result := fView; end; procedure TStringGridMediator.SetGuiControl(const AValue: TComponent); begin - FView:=AValue as TfpgStringGrid; + FView := AValue as TfpgStringGrid; end; -procedure TStringGridMediator.DoCreateItemMediator(AData: TtiObject; ARowIdx: Integer); +procedure TStringGridMediator.DoCreateItemMediator(AData: TtiObject; ARowIdx: integer); var - i: Integer; + i: integer; lFieldName: string; lMediatorView: TStringGridRowMediator; begin FView.Objects[0, ARowIdx] := AData; // set Object reference inside grid - for i := 0 to FieldsInfo.Count-1 do - begin - lFieldName:=FieldsInfo[i].PropName; - FView.Cells[i, ARowIdx]:=AData.PropValue[lFieldName]; // set Cell text - end; + for i := 0 to FieldsInfo.Count - 1 do + begin + lFieldName := FieldsInfo[i].PropName; + FView.Cells[i, ARowIdx] := AData.PropValue[lFieldName]; // set Cell text + end; lMediatorView := TStringGridRowMediator.CreateCustom(AData, FView, FieldsInfo, ARowIdx, Active); MediatorList.Add(lMediatorView); end; @@ -472,17 +430,17 @@ var lColumnTotalWidth: integer; begin lColumnTotalWidth := 0; - for i := 0 to FieldsInfo.Count-1 do - begin - FView.ColumnWidth[i] := FieldsInfo[i].FieldWidth; - FView.ColumnTitle[i] := FieldsInfo[i].Caption; - FView.Columns[i].Alignment:=FieldsInfo[i].Alignment; + for i := 0 to FieldsInfo.Count - 1 do + begin + FView.ColumnWidth[i] := FieldsInfo[i].FieldWidth; + FView.ColumnTitle[i] := FieldsInfo[i].Caption; + FView.Columns[i].Alignment := FieldsInfo[i].Alignment; //resize the last column to fill the grid. - if i = FieldsInfo.Count-1 then - begin - If FView.Width > (lColumnTotalWidth + 10) then - FView.ColumnWidth[i] := FView.Width - (lColumnTotalWidth + 10) - end + if i = FieldsInfo.Count - 1 then + begin + if FView.Width > (lColumnTotalWidth + 10) then + FView.ColumnWidth[i] := FView.Width - (lColumnTotalWidth + 10); + end else lColumnTotalWidth := lColumnTotalWidth + FView.ColumnWidth[i] + 20; end; @@ -491,8 +449,8 @@ end; procedure TStringGridMediator.SetupGUIandObject; begin //Setup default properties for the StringGrid - FView.RowSelect := True; - FView.ColumnCount := FieldsInfo.Count; + FView.RowSelect := True; + FView.ColumnCount := FieldsInfo.Count; if ShowDeleted then FView.RowCount := Model.Count else @@ -506,16 +464,15 @@ begin try SetupGUIandObject; MediatorList.Clear; -// for i := View.ColumnCount-1 downto 0 do -// View.DeleteColumn(i); + // for i := View.ColumnCount-1 downto 0 do + // View.DeleteColumn(i); CreateSubMediators; finally View.EndUpdate; end; end; -constructor TStringGridMediator.CreateCustom(AModel: TtiObjectList; - AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean); +constructor TStringGridMediator.CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean); begin inherited Create; DisplayNames := ADisplayNames; @@ -527,178 +484,38 @@ end; class function TStringGridMediator.ComponentClass: TClass; begin - Result:=TfpgStringGrid + Result := TfpgStringGrid; end; { TStringGridRowMediator } -constructor TStringGridRowMediator.CreateCustom(AModel: TtiObject; - AGrid: TfpgStringGrid; Const AFieldsInfo : TtiMediatorFieldInfoList; ARowIndex: integer; - IsObserving: Boolean); +constructor TStringGridRowMediator.CreateCustom(AModel: TtiObject; AGrid: TfpgStringGrid; const AFieldsInfo: TtiMediatorFieldInfoList; ARowIndex: integer; IsObserving: Boolean); begin inherited Create; - FModel := AModel; - FView := AGrid; - FFieldsInfo := AFieldsInfo; - FRowIndex := ARowIndex; - Active :=IsObserving; // Will attach + FModel := AModel; + FView := AGrid; + FFieldsInfo := AFieldsInfo; + FRowIndex := ARowIndex; + Active := IsObserving; // Will attach end; procedure TStringGridRowMediator.Update(ASubject: TtiObject); var - i: Integer; - lvalue, - lFieldName: string; + i: integer; + lvalue, lFieldName: string; begin Assert(FModel = ASubject); - for i := 0 to FFieldsInfo.Count-1 do - begin + for i := 0 to FFieldsInfo.Count - 1 do + begin lFieldName := FFieldsInfo[I].PropName; - lValue := FModel.PropValue[lFieldName]; + lValue := FModel.PropValue[lFieldName]; if Assigned(OnBeforeSetupField) then OnBeforeSetupField(FModel, lFieldName, lValue); FView.Cells[i, FRowIndex] := lValue; - end; -end; - - -{ TListBoxMediator } - -function TListBoxMediator.GetGUIControl: TComponent; -begin - Result := FView; -end; - -function TListBoxMediator.GetSelectedObject: TtiObject; -begin - Result := FSelectedObject; -end; - -procedure TListBoxMediator.SetGUIControl(const AValue: TComponent); -begin - FView := AValue as TfpgListBox; - inherited SetGUIControl(AValue); -end; - -procedure TListBoxMediator.SetSelectedObject(const AValue: TtiObject); -begin - FSelectedObject := AValue; -end; - -procedure TListBoxMediator.CreateColumns; -begin - // do nothing -end; - -procedure TListBoxMediator.ClearList; -begin - -end; - -procedure TListBoxMediator.DoCreateItemMediator(AData: TtiObject; - ARowIdx: integer); -begin - -end; - -procedure TListBoxMediator.RebuildList; -var - i: Integer; - ptr: TNotifyEvent; - selected: integer; -begin - selected := -1; - if (Model.CountNotDeleted) >= View.FocusItem+1 then - begin - selected := View.FocusItem; end; - - ptr := View.OnChange; - View.OnChange := nil; - View.BeginUpdate; - try - View.Items.Clear; - for i := 0 to Model.Count-1 do - begin - if (not Model.Items[i].Deleted) or - (ShowDeleted and Model.Items[i].Deleted) then - begin - View.Items.AddObject(Model.Items[i].Caption, Model.Items[i]); - end; - end; - if Model.CountNotDeleted > 0 then - begin - if selected = -1 then - selected := 0; - View.FocusItem := selected; - end; - finally - View.EndUpdate; - View.Update; - View.OnChange := ptr; - HandleSelectionChanged; - end; -end; - -constructor TListBoxMediator.Create; -begin - inherited Create; - FSelectedObject := nil; - FObserversInTransit := TList.Create; -end; - -destructor TListBoxMediator.Destroy; -begin - FObserversInTransit.Free; - inherited Destroy; -end; - -class function TListBoxMediator.CompositeMediator: Boolean; -begin - Result := False; end; -class function TListBoxMediator.ComponentClass: TClass; -begin - Result := TfpgListBox; -end; - -{$Note Refactor this as it's the same as TListView.HandleSelectionChanged, except - for one single line. } -procedure TListBoxMediator.HandleSelectionChanged; -var - i: integer; -begin - if View.FocusItem = -1 then - SelectedObject := nil - else - begin - { If an item is already selected, assign the item's List of observers to a - temporary container. This is done so that the same observers can be - assigned to the new item. } - if Assigned(FSelectedObject) then - FObserversInTransit.Assign(FSelectedObject.ObserverList); - - // Assign Newly selected item to SelectedObject Obj. - FSelectedObject := TtiObject(View.Items.Objects[View.FocusItem]); - - { If an object was selected, copy the old item's observer List - to the new item's observer List. } - if FObserversInTransit.Count > 0 then - FSelectedObject.ObserverList.Assign(FObserversInTransit); - - { set the observers's Subject property to the selected object } - for i := 0 to FSelectedObject.ObserverList.Count-1 do - begin - TMediatorView(FSelectedObject.ObserverList.Items[i]).Subject := - FSelectedObject; - end; - - // execute the NotifyObservers event to update the observers. - FSelectedObject.NotifyObservers; - end; -end; end. -- cgit v1.2.3-70-g09d2