flatregister.pas

相信大家已经找很长时间了

unit FlatRegister;

interface

{$I FlatStyle.inc}

uses Windows, Messages, SysUtils, Classes;

procedure Register;

implementation

uses
  FlatBtns, FlatEdits, FlatBars, FlatTabs, FlatBoxs, FlatAnimation,
  FlatSplitter, FlatHint, FlatAnimWnd, FlatSound, FlatPanel, FlatDbGrid;


procedure Register;
begin
  RegisterComponents ('FlatStyle', [TFlatButton, TFlatSpeedBtn, TFlatCheckBox, TFlatRadioButton]);
  RegisterComponents ('FlatStyle', [TFlatEdit, TFlatIPEdit, TFlatMaskEdit, TFlatInteger, TFlatFloat]);
  RegisterComponents ('FlatStyle', [TFlatMemo, TFlatProgressBar, TFlatTab]);
  RegisterComponents ('FlatStyle', [TFlatListBox, TFlatCheckListBox, TFlatComboBox, TFlatColorBox]);
  RegisterComponents ('FlatStyle', [TFlatGroupBox, TFlatPanel, TFlatLBPanel]);
  RegisterComponents ('FlatStyle', [TFlatHint, TFlatAnimWnd, TFlatSound, TFlatGauge, TFlatSplitter, TFlatAnimation]);
  RegisterComponents ('FlatStyle', [TFlatScrollBar, TFlatTitleBar]);
  RegisterComponents ('Data Controls', [TFlatDBEdit, TFlatDBMemo, TFlatDBListBox, TFlatDBMaskEdit,
                                        TFlatDBEditFloat,TFlatDBEditInt, TFlatDBComboBox, TFlatDBGrid]);
end;

end.