summaryrefslogtreecommitdiff
path: root/extras/tiopf/mvp/view_impl.pas
diff options
context:
space:
mode:
Diffstat (limited to 'extras/tiopf/mvp/view_impl.pas')
-rw-r--r--extras/tiopf/mvp/view_impl.pas12
1 files changed, 6 insertions, 6 deletions
diff --git a/extras/tiopf/mvp/view_impl.pas b/extras/tiopf/mvp/view_impl.pas
index 272da1dc..478ca9f9 100644
--- a/extras/tiopf/mvp/view_impl.pas
+++ b/extras/tiopf/mvp/view_impl.pas
@@ -12,14 +12,14 @@ type
TListBoxView = class(TfpgListBox, IObserver)
private
procedure IObserver.Update = ObserverUpdate;
- procedure ObserverUpdate(Subject: IInterface);
+ procedure ObserverUpdate(const ASubject: IInterface);
end;
TComboBoxView = class(TfpgComboBox, IObserver)
private
procedure IObserver.Update = ObserverUpdate;
- procedure ObserverUpdate(Subject: IInterface);
+ procedure ObserverUpdate(const ASubject: IInterface);
end;
@@ -27,12 +27,12 @@ implementation
{ TListBoxView }
-procedure TListBoxView.ObserverUpdate(Subject: IInterface);
+procedure TListBoxView.ObserverUpdate(const ASubject: IInterface);
var
Obj: IListModel;
i: integer;
begin
- Subject.QueryInterface(IListModel, Obj);
+ ASubject.QueryInterface(IListModel, Obj);
if Obj <> nil then
begin
Items.BeginUpdate;
@@ -45,12 +45,12 @@ end;
{ TComboBoxView }
-procedure TComboBoxView.ObserverUpdate(Subject: IInterface);
+procedure TComboBoxView.ObserverUpdate(const ASubject: IInterface);
var
Obj: IListModel;
i: integer;
begin
- Subject.QueryInterface(IListModel, Obj);
+ ASubject.QueryInterface(IListModel, Obj);
if Obj <> nil then
begin
Items.BeginUpdate;