components: less hints

git-svn-id: trunk@51781 -
This commit is contained in:
mattias 2016-03-01 15:24:22 +00:00
parent 33ce4f2bf5
commit be5601fd37
5 changed files with 23 additions and 14 deletions

View File

@ -4,6 +4,7 @@
unit SimpleIDEIntf;
{$warn 5023 off : no warning about unused units}
interface
uses

View File

@ -4,16 +4,21 @@
unit sparta_DockedFormEditor;
{$warn 5023 off : no warning about unused units}
interface
uses
sparta_reg_DockedFormEditor, sparta_DesignedForm, sparta_Resizer, sparta_ResizerFrame, SpartaAPI, sparta_FakeCustom, sparta_FakeForm, sparta_FakeFrame, sparta_FakeNonControl, sparta_MainIDE, sparta_HashUtils, sparta_strconsts, LazarusPackageIntf;
sparta_reg_DockedFormEditor, sparta_DesignedForm, sparta_Resizer,
sparta_ResizerFrame, SpartaAPI, sparta_FakeCustom, sparta_FakeForm,
sparta_FakeFrame, sparta_FakeNonControl, sparta_MainIDE, sparta_HashUtils,
sparta_strconsts, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('sparta_reg_DockedFormEditor', @sparta_reg_DockedFormEditor.Register);
RegisterUnit('sparta_reg_DockedFormEditor',
@sparta_reg_DockedFormEditor.Register);
end;
initialization

View File

@ -2,8 +2,9 @@
This source is only used to compile and install the package.
}
unit SQLDBLaz;
unit SQLDBLaz;
{$warn 5023 off : no warning about unused units}
interface
uses
@ -11,11 +12,11 @@ uses
implementation
procedure Register;
procedure Register;
begin
RegisterUnit('registersqldb', @registersqldb.Register);
end;
RegisterUnit('registersqldb', @registersqldb.Register);
end;
initialization
RegisterPackage('SQLDBLaz', @Register);
RegisterPackage('SQLDBLaz', @Register);
end.

View File

@ -1,21 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
This source is only used to compile and install the package.
}
unit sqlite3laz;
unit sqlite3laz;
{$warn 5023 off : no warning about unused units}
interface
uses
registersqlite3, LazarusPackageIntf;
registersqlite3, LazarusPackageIntf;
implementation
procedure Register;
procedure Register;
begin
RegisterUnit('registersqlite3', @registersqlite3.Register);
end;
RegisterUnit('registersqlite3', @registersqlite3.Register);
end;
initialization
RegisterPackage('sqlite3laz', @Register);
RegisterPackage('sqlite3laz', @Register);
end.

View File

@ -4,6 +4,7 @@
unit sqlitelaz;
{$warn 5023 off : no warning about unused units}
interface
uses