-
Notifications
You must be signed in to change notification settings - Fork 1
/
TFlatRegister.pas
35 lines (27 loc) · 1.29 KB
/
TFlatRegister.pas
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
unit TFlatRegister;
interface
{$I DFS.inc}
uses
Classes, Controls, Graphics, Forms;
procedure Register;
implementation
uses
TFlatButtonUnit, TFlatSpeedButtonUnit, TFlatEditUnit, TFlatMemoUnit,
TFlatRadioButtonUnit, TFlatCheckBoxUnit, TFlatProgressBarUnit, TFlatHintUnit,
TFlatTabControlUnit, TFlatListBoxUnit, TFlatComboBoxUnit, TFlatAnimWndUnit,
TFlatSoundUnit, TFlatGaugeUnit, TFlatSplitterUnit, TFlatAnimationUnit,
TFlatCheckListBoxUnit, TFlatGroupBoxUnit, TFlatMaskEditUnit, TFlatPanelUnit,
TFlatColorComboBoxUnit,
TFlatScrollBarUnit, TFlatTitleBarUnit,
TFlatSpinEditUnit;
procedure Register;
begin
RegisterComponents ('FlatStyle', [TFlatButton, TFlatSpeedButton, TFlatCheckBox, TFlatRadioButton]);
RegisterComponents ('FlatStyle', [TFlatEdit, TFlatMaskEdit, TFlatSpinEditInteger, TFlatSpinEditFloat]);
RegisterComponents ('FlatStyle', [TFlatMemo, TFlatProgressBar, TFlatTabControl]);
RegisterComponents ('FlatStyle', [TFlatListBox, TFlatCheckListBox, TFlatComboBox, TFlatColorComboBox]);
RegisterComponents ('FlatStyle', [TFlatGroupBox, TFlatPanel]);
RegisterComponents ('FlatStyle', [TFlatHint, TFlatAnimWnd, TFlatSound, TFlatGauge, TFlatSplitter, TFlatAnimation]);
RegisterComponents ('FlatStyle', [TFlatScrollBar, TFlatTitleBar]);
end;
end.