paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 16:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: clean up

Browse Source 
git-svn-id: trunk@40268 -
This commit is contained in:
mattias 2013-02-11 21:15:42 +00:00
parent d382cfae08
commit e579fe52a4
2 changed files with 7 additions and 3 deletions

3
lcl/lclclasses.pp
View File

@ -91,7 +91,8 @@ type
property ReferenceAllocated: Boolean read GetReferenceAllocated;
end;
implementation
implementation
uses
InterfaceBase;

7
lcl/widgetset/wslclclasses.pp
View File

@ -27,6 +27,9 @@ unit WSLCLClasses;
{off$DEFINE VerboseWSRegistration}
{off$DEFINE VerboseWSRegistration_methods}
{off$DEFINE VerboseWSRegistration_treedump}
{$IFDEF VerboseWSRegistration_methods}
{$DEFINE VerboseWSRegistration}
{$ENDIF}
interface
////////////////////////////////////////////////////
@ -44,7 +47,7 @@ interface
// the uses clause of the XXXintf.pp
////////////////////////////////////////////////////
uses
Classes, LCLProc; //, LCLType; //, InterfaceBase;
Classes, SysUtils, LCLProc;
type
{ TWSPrivate }
@ -95,7 +98,7 @@ procedure RegisterWSLazDeviceAPIs(const AWSObject: TWSObjectClass);
implementation
uses
SysUtils, LCLClasses;
LCLClasses;
procedure DoInitialization; forward;