components: less hints

git-svn-id: trunk@51778 -
This commit is contained in:
mattias 2016-03-01 15:22:29 +00:00
parent 7a1de349d6
commit 1201d2e3ab
3 changed files with 19 additions and 16 deletions

View File

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

View File

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

View File

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