summaryrefslogtreecommitdiff
path: root/extras/tiopf/demos/Common/Model_View.pas
diff options
context:
space:
mode:
Diffstat (limited to 'extras/tiopf/demos/Common/Model_View.pas')
-rw-r--r--extras/tiopf/demos/Common/Model_View.pas14
1 files changed, 7 insertions, 7 deletions
diff --git a/extras/tiopf/demos/Common/Model_View.pas b/extras/tiopf/demos/Common/Model_View.pas
index 937b51a3..7cc68e8a 100644
--- a/extras/tiopf/demos/Common/Model_View.pas
+++ b/extras/tiopf/demos/Common/Model_View.pas
@@ -9,7 +9,7 @@ interface
uses
Classes
,tiGenericEditMediators
-// ,tiGenericListMediators
+ ,tiGenericListMediators
// ,tiCompositeMediators
;
@@ -51,18 +51,18 @@ type
{ TPersonList_ComboBox_Mediator }
-{
+
TPersonList_ComboBox_Mediator = class(TComboBoxMediator)
protected
procedure SetupGUIandObject; override;
end;
-
+(*
TPersonList_ListView_CompositeMediator = class(TCompositeListViewMediator)
protected
procedure SetupGUIandObject; override;
end;
-}
+*)
implementation
@@ -99,17 +99,17 @@ end;
{ TPersonList_ComboBox_Mediator }
-(*
+
procedure TPersonList_ComboBox_Mediator.SetupGUIandObject;
begin
inherited SetupGUIandObject;
- View.Style := csDropDownList;
+// View.Style := csDropDownList;
// View.ReadOnly := True;
end;
{ TPersonList_ListView_CompositeMediator }
-
+(*
procedure TPersonList_ListView_CompositeMediator.SetupGUIandObject;
begin
inherited SetupGUIandObject;