tpsystools_4.04/source/StNVCont.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: StNVCont.pas 4.04                           *}
{*********************************************************}
{* SysTools: non visual components for container classes *}
{*********************************************************}

{$I StDefine.inc}

unit StNVCont;

interface

uses
  Windows,
  Classes,
  StBase, StBits;

type
  TStContainerClass = class of TStContainer;

  TStDisposeDataEvent = procedure(Sender : TObject; Data : Pointer)
    of object;
  TStLoadDataEvent = procedure(Sender : TObject; Reader : TReader; var Data : Pointer)
    of object;
  TStStoreDataEvent = procedure(Sender : TObject; Writer : TWriter; Data : Pointer)
    of object;

  {.Z+}
  TStNVContainerBase = class(TStComponent)
  protected
    {virtual property methods}
    function GetOnCompare : TStCompareEvent;
      virtual;
    function GetOnDisposeData : TStDisposeDataEvent;
      virtual;
    function GetOnLoadData : TStLoadDataEvent;
      virtual;
    function GetOnStoreData : TStStoreDataEvent;
      virtual;
    procedure SetOnCompare(Value : TStCompareEvent);
      virtual;
    procedure SetOnDisposeData(Value : TStDisposeDataEvent);
      virtual;
    procedure SetOnLoadData(Value : TStLoadDataEvent);
      virtual;
    procedure SetOnStoreData(Value : TStStoreDataEvent);
      virtual;

    {events}
    property OnCompare : TStCompareEvent
      read GetOnCompare
      write SetOnCompare;

    property OnDisposeData : TStDisposeDataEvent
      read GetOnDisposeData
      write SetOnDisposeData;

    property OnLoadData : TStLoadDataEvent
      read GetOnLoadData
      write SetOnLoadData;

    property OnStoreData : TStStoreDataEvent
      read GetOnStoreData
      write SetOnStoreData;
  end;
  {.Z-}


implementation


{*** TStNVContainerBase ***}

function TStNVContainerBase.GetOnCompare : TStCompareEvent;
begin
end;

function TStNVContainerBase.GetOnDisposeData : TStDisposeDataEvent;
begin
end;

function TStNVContainerBase.GetOnLoadData : TStLoadDataEvent;
begin
end;

function TStNVContainerBase.GetOnStoreData : TStStoreDataEvent;
begin
end;

procedure TStNVContainerBase.SetOnCompare(Value : TStCompareEvent);
begin
end;

procedure TStNVContainerBase.SetOnDisposeData(Value : TStDisposeDataEvent);
begin
end;

procedure TStNVContainerBase.SetOnLoadData(Value : TStLoadDataEvent);
begin
end;

procedure TStNVContainerBase.SetOnStoreData(Value : TStStoreDataEvent);
begin
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: StNVCont.pas 4.04 *}
30	{*********************************************************}
31	{* SysTools: non visual components for container classes *}
32	{*********************************************************}
33
34	{$I StDefine.inc}
35
36	unit StNVCont;
37
38	interface
39
40	uses
41	Windows,
42	Classes,
43	StBase, StBits;
44
45	type
46	TStContainerClass = class of TStContainer;
47
48	TStDisposeDataEvent = procedure(Sender : TObject; Data : Pointer)
49	of object;
50	TStLoadDataEvent = procedure(Sender : TObject; Reader : TReader; var Data : Pointer)
51	of object;
52	TStStoreDataEvent = procedure(Sender : TObject; Writer : TWriter; Data : Pointer)
53	of object;
54
55	{.Z+}
56	TStNVContainerBase = class(TStComponent)
57	protected
58	{virtual property methods}
59	function GetOnCompare : TStCompareEvent;
60	virtual;
61	function GetOnDisposeData : TStDisposeDataEvent;
62	virtual;
63	function GetOnLoadData : TStLoadDataEvent;
64	virtual;
65	function GetOnStoreData : TStStoreDataEvent;
66	virtual;
67	procedure SetOnCompare(Value : TStCompareEvent);
68	virtual;
69	procedure SetOnDisposeData(Value : TStDisposeDataEvent);
70	virtual;
71	procedure SetOnLoadData(Value : TStLoadDataEvent);
72	virtual;
73	procedure SetOnStoreData(Value : TStStoreDataEvent);
74	virtual;
75
76	{events}
77	property OnCompare : TStCompareEvent
78	read GetOnCompare
79	write SetOnCompare;
80
81	property OnDisposeData : TStDisposeDataEvent
82	read GetOnDisposeData
83	write SetOnDisposeData;
84
85	property OnLoadData : TStLoadDataEvent
86	read GetOnLoadData
87	write SetOnLoadData;
88
89	property OnStoreData : TStStoreDataEvent
90	read GetOnStoreData
91	write SetOnStoreData;
92	end;
93	{.Z-}
94
95
96	implementation
97
98
99
100	{* TStNVContainerBase *}
101
102	function TStNVContainerBase.GetOnCompare : TStCompareEvent;
103	begin
104	end;
105
106	function TStNVContainerBase.GetOnDisposeData : TStDisposeDataEvent;
107	begin
108	end;
109
110	function TStNVContainerBase.GetOnLoadData : TStLoadDataEvent;
111	begin
112	end;
113
114	function TStNVContainerBase.GetOnStoreData : TStStoreDataEvent;
115	begin
116	end;
117
118	procedure TStNVContainerBase.SetOnCompare(Value : TStCompareEvent);
119	begin
120	end;
121
122	procedure TStNVContainerBase.SetOnDisposeData(Value : TStDisposeDataEvent);
123	begin
124	end;
125
126	procedure TStNVContainerBase.SetOnLoadData(Value : TStLoadDataEvent);
127	begin
128	end;
129
130	procedure TStNVContainerBase.SetOnStoreData(Value : TStStoreDataEvent);
131	begin
132	end;
133
134
135	end.