From 6b145ef325e63c94c2472eceeb77bc561acda2d7 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 13 Oct 2008 15:25:00 +0000
Subject: * ListView changes from MvC.

---
 extras/tiopf/gui/tiListMediators.pas | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

(limited to 'extras/tiopf')

diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas
index 1f9e72e9..2e2c9d6f 100644
--- a/extras/tiopf/gui/tiListMediators.pas
+++ b/extras/tiopf/gui/tiListMediators.pas
@@ -300,18 +300,17 @@ var
   lValue: string;
 begin
   lMemberName := FFieldsInfo[0].PropName;
-  lValue      := FModel.PropValue[lMemberName];
+  lValue      := Model.PropValue[lMemberName];
   if Assigned(OnBeforeSetupField) then
-    OnBeforeSetupField(FModel, lMemberName, lValue);
+    OnBeforeSetupField(Model, lMemberName, lValue);
   FView.Caption := lValue;
   for c := 1 to FFieldsInfo.Count - 1 do
   begin
     lMemberName := FFieldsInfo[c].PropName;
-    lValue      := FModel.PropValue[lMemberName];
+    lValue      := Model.PropValue[lMemberName];
     if Assigned(OnBeforeSetupField) then
-      OnBeforeSetupField(FModel, lMemberName, lValue);
+      OnBeforeSetupField(Model, lMemberName, lValue);
     FView.SubItems.Add(lValue);
-    writeln('SubItems.Add for ', lMemberName, ' with value <', lValue, '>');
   end;
 end;
 
@@ -323,7 +322,7 @@ end;
 constructor TListViewListItemMediator.CreateCustom(AModel: TtiObject; AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean);
 begin
   inherited Create;
-  FModel      := AModel;
+  Model      := AModel;
   FView       := AView;
   FFieldsInfo := AFieldsInfo;
   OnBeforeSetupField := AOnBeforeSetupField;
@@ -333,8 +332,8 @@ end;
 
 procedure TListViewListItemMediator.BeforeDestruction;
 begin
-  FModel.DetachObserver(self);
-  FModel := nil;
+  Model.DetachObserver(self);
+  Model := nil;
   FView  := nil;
   inherited BeforeDestruction;
 end;
@@ -345,21 +344,21 @@ var
   lMemberName: string;
   lValue: string;
 begin
-  Assert(FModel = ASubject);
+  Assert(Model = ASubject);
 
   lMemberName := FFieldsInfo[0].PropName;
-  lValue      := FModel.PropValue[lMemberName];
+  lValue      := Model.PropValue[lMemberName];
   if Assigned(OnBeforeSetupField) then
-    OnBeforeSetupField(FModel, lMemberName, lValue);
+    OnBeforeSetupField(Model, lMemberName, lValue);
 
   FView.Caption := lValue;
 
   for c := 1 to FFieldsInfo.Count - 1 do
   begin
     lMemberName := FFieldsInfo[c].PropName;
-    lValue      := FModel.PropValue[lMemberName];
+    lValue      := Model.PropValue[lMemberName];
     if Assigned(OnBeforeSetupField) then
-      OnBeforeSetupField(FModel, lMemberName, lValue);
+      OnBeforeSetupField(Model, lMemberName, lValue);
     FView.SubItems[c - 1] := lValue;
   end;
 end;
@@ -493,7 +492,7 @@ end;
 constructor TStringGridRowMediator.CreateCustom(AModel: TtiObject; AGrid: TfpgStringGrid; const AFieldsInfo: TtiMediatorFieldInfoList; ARowIndex: integer; IsObserving: Boolean);
 begin
   inherited Create;
-  FModel      := AModel;
+  Model      := AModel;
   FView       := AGrid;
   FFieldsInfo := AFieldsInfo;
   FRowIndex   := ARowIndex;
@@ -505,13 +504,13 @@ var
   i: integer;
   lvalue, lFieldName: string;
 begin
-  Assert(FModel = ASubject);
+  Assert(Model = ASubject);
   for i := 0 to FFieldsInfo.Count - 1 do
   begin
     lFieldName := FFieldsInfo[I].PropName;
-    lValue     := FModel.PropValue[lFieldName];
+    lValue     := Model.PropValue[lFieldName];
     if Assigned(OnBeforeSetupField) then
-      OnBeforeSetupField(FModel, lFieldName, lValue);
+      OnBeforeSetupField(Model, lFieldName, lValue);
     FView.Cells[i, FRowIndex] := lValue;
   end;
 end;
-- 
cgit v1.2.3-70-g09d2