tpsystools_4.04/source/StNVSCol.pas

// Upgraded to Delphi 2009: Sebastian Zierer

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is TurboPower SysTools
 *
 * The Initial Developer of the Original Code is
 * TurboPower Software
 *
 * Portions created by the Initial Developer are Copyright (C) 1996-2002
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

{*********************************************************}
{* SysTools: StNVSCol.pas 4.04                           *}
{*********************************************************}
{* SysTools: non visual component for TStSortedCollection*}
{*********************************************************}

{$I StDefine.inc}

unit StNVSCol;

interface

uses
  Windows, Classes,
  StBase, StColl, StNVCont;

type
  TStNVSortedCollection = class(TStNVContainerBase)
  {.Z+}
  protected {private}
    {property variables}
    FContainer    : TStSortedCollection; {instance of the container}
    FDuplicates   : Boolean;
    FPageElements : Integer;

    {property methods}
    procedure SetDuplicates(Value : Boolean);
    procedure SetPageElements(Value : Integer);

    {internal methods}
    procedure RecreateContainer;

  protected
    function GetOnCompare : TStCompareEvent;
      override;
    function GetOnDisposeData : TStDisposeDataEvent;
      override;
    function GetOnLoadData : TStLoadDataEvent;
      override;
    function GetOnStoreData : TStStoreDataEvent;
      override;
    procedure SetOnCompare(Value : TStCompareEvent);
      override;
    procedure SetOnDisposeData(Value : TStDisposeDataEvent);
      override;
    procedure SetOnLoadData(Value : TStLoadDataEvent);
      override;
    procedure SetOnStoreData(Value : TStStoreDataEvent);
      override;

  public
    constructor Create(AOwner : TComponent);
      override;
    destructor Destroy;
      override;
  {.Z-}

    property Container : TStSortedCollection
      read FContainer;

  published
    property Duplicates : Boolean
      read FDuplicates
      write SetDuplicates default False;

    property PageElements : Integer
      read FPageElements
      write SetPageElements default 1000;

    property OnCompare;
    property OnDisposeData;
    property OnLoadData;
    property OnStoreData;
  end;


implementation

{*** TStNVSortedCollection ***}

constructor TStNVSortedCollection.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  {defaults}
  FPageElements := 1000;
  FDuplicates := False;

  if Classes.GetClass(TStSortedCollection.ClassName) = nil then
    RegisterClass(TStSortedCollection);

  FContainer := TStSortedCollection.Create(FPageElements);
end;

destructor TStNVSortedCollection.Destroy;
begin
  FContainer.Free;
  FContainer := nil;

  inherited Destroy;
end;

function TStNVSortedCollection.GetOnCompare : TStCompareEvent;
begin
  Result := FContainer.OnCompare;
end;

function TStNVSortedCollection.GetOnDisposeData : TStDisposeDataEvent;
begin
  Result := FContainer.OnDisposeData;
end;

function TStNVSortedCollection.GetOnLoadData : TStLoadDataEvent;
begin
  Result := FContainer.OnLoadData;
end;

function TStNVSortedCollection.GetOnStoreData : TStStoreDataEvent;
begin
  Result := FContainer.OnStoreData;
end;

procedure TStNVSortedCollection.RecreateContainer;
var
  HoldOnCompare     : TStCompareEvent;
  HoldOnDisposeData : TStDisposeDataEvent;
  HoldOnLoadData    : TStLoadDataEvent;
  HoldOnStoreData   : TStStoreDataEvent;
begin
  HoldOnCompare := FContainer.OnCompare;
  HoldOnDisposeData := FContainer.OnDisposeData;
  HoldOnLoadData := FContainer.OnLoadData;
  HoldOnStoreData := FContainer.OnStoreData;
  FContainer.Free;
  FContainer := TStSortedCollection.Create(FPageElements);
  FContainer.OnCompare := HoldOnCompare;
  FContainer.OnDisposeData := HoldOnDisposeData;
  FContainer.OnLoadData := HoldOnLoadData;
  FContainer.OnStoreData := HoldOnStoreData;
end;

procedure TStNVSortedCollection.SetOnCompare(Value : TStCompareEvent);
begin
  FContainer.OnCompare := Value;
end;

procedure TStNVSortedCollection.SetOnDisposeData(Value : TStDisposeDataEvent);
begin
  FContainer.OnDisposeData := Value;
end;

procedure TStNVSortedCollection.SetOnLoadData(Value : TStLoadDataEvent);
begin
  FContainer.OnLoadData := Value;
end;

procedure TStNVSortedCollection.SetOnStoreData(Value : TStStoreDataEvent);
begin
  FContainer.OnStoreData := Value;
end;

procedure TStNVSortedCollection.SetDuplicates(Value : Boolean);
begin
  FDuplicates := Value;
  FContainer.Duplicates := FDuplicates;
end;

procedure TStNVSortedCollection.SetPageElements(Value : Integer);
begin
  FPageElements := Value;
  RecreateContainer;
  FContainer.Duplicates := FDuplicates;
end;


end.
1	// Upgraded to Delphi 2009: Sebastian Zierer
2
3	(* *** BEGIN LICENSE BLOCK ***
4	* Version: MPL 1.1
5	*
6	* The contents of this file are subject to the Mozilla Public License Version
7	* 1.1 (the "License"); you may not use this file except in compliance with
8	* the License. You may obtain a copy of the License at
9	* http://www.mozilla.org/MPL/
10	*
11	* Software distributed under the License is distributed on an "AS IS" basis,
12	* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
13	* for the specific language governing rights and limitations under the
14	* License.
15	*
16	* The Original Code is TurboPower SysTools
17	*
18	* The Initial Developer of the Original Code is
19	* TurboPower Software
20	*
21	* Portions created by the Initial Developer are Copyright (C) 1996-2002
22	* the Initial Developer. All Rights Reserved.
23	*
24	* Contributor(s):
25	*
26	* *** END LICENSE BLOCK *** *)
27
28	{*********************************************************}
29	{* SysTools: StNVSCol.pas 4.04 *}
30	{*********************************************************}
31	{* SysTools: non visual component for TStSortedCollection*}
32	{*********************************************************}
33
34	{$I StDefine.inc}
35
36	unit StNVSCol;
37
38	interface
39
40	uses
41	Windows, Classes,
42	StBase, StColl, StNVCont;
43
44	type
45	TStNVSortedCollection = class(TStNVContainerBase)
46	{.Z+}
47	protected {private}
48	{property variables}
49	FContainer : TStSortedCollection; {instance of the container}
50	FDuplicates : Boolean;
51	FPageElements : Integer;
52
53	{property methods}
54	procedure SetDuplicates(Value : Boolean);
55	procedure SetPageElements(Value : Integer);
56
57	{internal methods}
58	procedure RecreateContainer;
59
60	protected
61	function GetOnCompare : TStCompareEvent;
62	override;
63	function GetOnDisposeData : TStDisposeDataEvent;
64	override;
65	function GetOnLoadData : TStLoadDataEvent;
66	override;
67	function GetOnStoreData : TStStoreDataEvent;
68	override;
69	procedure SetOnCompare(Value : TStCompareEvent);
70	override;
71	procedure SetOnDisposeData(Value : TStDisposeDataEvent);
72	override;
73	procedure SetOnLoadData(Value : TStLoadDataEvent);
74	override;
75	procedure SetOnStoreData(Value : TStStoreDataEvent);
76	override;
77
78	public
79	constructor Create(AOwner : TComponent);
80	override;
81	destructor Destroy;
82	override;
83	{.Z-}
84
85	property Container : TStSortedCollection
86	read FContainer;
87
88	published
89	property Duplicates : Boolean
90	read FDuplicates
91	write SetDuplicates default False;
92
93	property PageElements : Integer
94	read FPageElements
95	write SetPageElements default 1000;
96
97	property OnCompare;
98	property OnDisposeData;
99	property OnLoadData;
100	property OnStoreData;
101	end;
102
103
104	implementation
105
106	{* TStNVSortedCollection *}
107
108	constructor TStNVSortedCollection.Create(AOwner : TComponent);
109	begin
110	inherited Create(AOwner);
111
112	{defaults}
113	FPageElements := 1000;
114	FDuplicates := False;
115
116	if Classes.GetClass(TStSortedCollection.ClassName) = nil then
117	RegisterClass(TStSortedCollection);
118
119	FContainer := TStSortedCollection.Create(FPageElements);
120	end;
121
122	destructor TStNVSortedCollection.Destroy;
123	begin
124	FContainer.Free;
125	FContainer := nil;
126
127	inherited Destroy;
128	end;
129
130	function TStNVSortedCollection.GetOnCompare : TStCompareEvent;
131	begin
132	Result := FContainer.OnCompare;
133	end;
134
135	function TStNVSortedCollection.GetOnDisposeData : TStDisposeDataEvent;
136	begin
137	Result := FContainer.OnDisposeData;
138	end;
139
140	function TStNVSortedCollection.GetOnLoadData : TStLoadDataEvent;
141	begin
142	Result := FContainer.OnLoadData;
143	end;
144
145	function TStNVSortedCollection.GetOnStoreData : TStStoreDataEvent;
146	begin
147	Result := FContainer.OnStoreData;
148	end;
149
150	procedure TStNVSortedCollection.RecreateContainer;
151	var
152	HoldOnCompare : TStCompareEvent;
153	HoldOnDisposeData : TStDisposeDataEvent;
154	HoldOnLoadData : TStLoadDataEvent;
155	HoldOnStoreData : TStStoreDataEvent;
156	begin
157	HoldOnCompare := FContainer.OnCompare;
158	HoldOnDisposeData := FContainer.OnDisposeData;
159	HoldOnLoadData := FContainer.OnLoadData;
160	HoldOnStoreData := FContainer.OnStoreData;
161	FContainer.Free;
162	FContainer := TStSortedCollection.Create(FPageElements);
163	FContainer.OnCompare := HoldOnCompare;
164	FContainer.OnDisposeData := HoldOnDisposeData;
165	FContainer.OnLoadData := HoldOnLoadData;
166	FContainer.OnStoreData := HoldOnStoreData;
167	end;
168
169	procedure TStNVSortedCollection.SetOnCompare(Value : TStCompareEvent);
170	begin
171	FContainer.OnCompare := Value;
172	end;
173
174	procedure TStNVSortedCollection.SetOnDisposeData(Value : TStDisposeDataEvent);
175	begin
176	FContainer.OnDisposeData := Value;
177	end;
178
179	procedure TStNVSortedCollection.SetOnLoadData(Value : TStLoadDataEvent);
180	begin
181	FContainer.OnLoadData := Value;
182	end;
183
184	procedure TStNVSortedCollection.SetOnStoreData(Value : TStStoreDataEvent);
185	begin
186	FContainer.OnStoreData := Value;
187	end;
188
189	procedure TStNVSortedCollection.SetDuplicates(Value : Boolean);
190	begin
191	FDuplicates := Value;
192	FContainer.Duplicates := FDuplicates;
193	end;
194
195	procedure TStNVSortedCollection.SetPageElements(Value : Integer);
196	begin
197	FPageElements := Value;
198	RecreateContainer;
199	FContainer.Duplicates := FDuplicates;
200	end;
201
202
203	end.