1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
{
/***************************************************************************
????????.pp
-------------------
Component Library ???????? Controls
Initial Revision : Fri Jul 23 20:00:00 PDT 1999
***************************************************************************/
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
{
@author(TMyClass - Author Name <author@emailaddress.com>)
@author(TMyOtherClass - Other Author Name <otherauthor@emailaddress.com>)
@created(11-Aug-1999)
@lastmod(11-Aug-1999)
Detailed description of the Unit.
}
unit ????????;
//{$mode delphi}
{$mode objfpc}
interface
{$ifdef Trace}
{$ASSERTIONS ON}
{$endif}
uses
//glib, gdk, gtk,
Classes, Controls, SysUtils, LCLType, StdCtrls, lMessages;
type
{ TMyClass }
{
@abstract(Short description of the class.)
Introduced by Author Name <author@emailaddress.com>
Currently maintained by Maintainer Name <mainter@emailaddress.com>
}
TMyClass = Class(TCustomControl)
private
{ Private variables and methods }
protected
{ Protected variables and methods }
public
{ Public variables and methods }
constructor Create(AOwner : TComponent);
destructor Destroy;
published
{ Published variables and methods }
end;
implementation
uses Interfaces;
{$I template.inc}
initialization
finalization
end.
|
