paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

components: less hints

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tdbf/dbflaz.pas
View File

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

11
components/todolist/todolistlaz.pas
View File

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

13
components/turbopower_ipro/design/turbopoweriprodsgn.pas
View File

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