Line | |
---|
1 | {*****************************************************************}
|
---|
2 | { The CoolTrayIcon and TextTrayIcon components are freeware. }
|
---|
3 | { }
|
---|
4 | { Feel free to use and improve them. I would be pleased to hear }
|
---|
5 | { what you think. }
|
---|
6 | { }
|
---|
7 | { Troels Jakobsen - delphiuser@get2net.dk }
|
---|
8 | { Copyright (c) 2002 }
|
---|
9 | { }
|
---|
10 | { This unit by Jouni Airaksinen - mintus@codefield.com }
|
---|
11 | {*****************************************************************}
|
---|
12 |
|
---|
13 | unit RegisterTrayIcons;
|
---|
14 |
|
---|
15 | interface
|
---|
16 |
|
---|
17 | procedure Register;
|
---|
18 |
|
---|
19 | implementation
|
---|
20 |
|
---|
21 | uses
|
---|
22 | Classes, CoolTrayIcon, TextTrayIcon;
|
---|
23 |
|
---|
24 | procedure Register;
|
---|
25 | begin
|
---|
26 | RegisterComponents('Tray Icons', [TCoolTrayIcon, TTextTrayIcon]);
|
---|
27 | end;
|
---|
28 |
|
---|
29 | end.
|
---|
30 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.