paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Clean and reorder more uses sections to prevent "deprecated" warnings.

Browse Source 
git-svn-id: trunk@49656 -
This commit is contained in:
juha 2015-08-12 10:19:37 +00:00
parent 0e783282e9
commit 14ddc8f033
6 changed files with 10 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fppkg/src/fppkg_details.pas
View File

@ -58,9 +58,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
private private
FPackageName: string; FPackageName: string;
{ private declarations }
public public
{ public declarations }
property PackageName: string read FPackageName write FPackageName; property PackageName: string read FPackageName write FPackageName;
end; end;

5
components/fppkg/src/fppkg_mainfrm.pas
View File

@ -39,7 +39,7 @@ uses
fppkg_optionsfrm, fppkg_details, fppkg_optionsfrm, fppkg_details,
//IDE interface //IDE interface
{$IFDEF LazarusIDEPackage} {$IFDEF LazarusIDEPackage}
IDEIntf, PackageIntf, IDECommands, contnrs, fppkg_lpk, PackageIntf, IDECommands, contnrs, fppkg_lpk,
{$ENDIF} {$ENDIF}
// Repository handler objects // Repository handler objects
fprepos, fprepos,
@ -119,7 +119,6 @@ type
procedure SupportCheckGroupItemClick(Sender: TObject; Index: integer); procedure SupportCheckGroupItemClick(Sender: TObject; Index: integer);
procedure UpdateButtonClick(Sender: TObject); procedure UpdateButtonClick(Sender: TObject);
private private
{ private declarations }
SearchPhrases: TStrings; SearchPhrases: TStrings;
function FindSearchPhrase(pkg: TLazPackageData): boolean; function FindSearchPhrase(pkg: TLazPackageData): boolean;
@ -134,7 +133,7 @@ type
procedure UpdatePackageListView; procedure UpdatePackageListView;
procedure ListPackages; procedure ListPackages;
public public
{ public declarations }
end; end;
var var

7
components/fppkg/src/fppkg_optionsfrm.pas
View File

@ -34,8 +34,8 @@ unit fppkg_optionsfrm;
interface interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, SysUtils, Forms, Dialogs, ComCtrls, ButtonPanel, StdCtrls, ExtCtrls, Buttons,
ButtonPanel, StdCtrls, EditBtn, ExtCtrls, Buttons, pkgoptions, pkgglobals; pkgoptions, pkgglobals;
type type
TPkgColumn = record TPkgColumn = record
@ -126,9 +126,8 @@ type
procedure RemoveFromVisibleColumnsButtonClick(Sender: TObject); procedure RemoveFromVisibleColumnsButtonClick(Sender: TObject);
private private
procedure SetupColumnVisibility; procedure SetupColumnVisibility;
{ private declarations }
public public
{ public declarations }
end; end;
var var

6
components/fppkg/src/laz_pkgcommands.pas
View File

@ -5,14 +5,12 @@ unit laz_pkgcommands;
interface interface
uses uses
Classes, SysUtils,pkghandler,laz_pkghandler; pkghandler;
implementation implementation
uses uses
zipper, pkgglobals, pkgoptions, pkgdownload, pkgrepos, laz_pkgrepos, pkgfpmake;
pkgmessages, pkgglobals, pkgoptions, pkgdownload, pkgrepos, fprepos,
laz_pkgrepos, pkgfpmake;
type type
{ TCommandLazListPackages } { TCommandLazListPackages }

2
components/fppkg/src/laz_pkghandler.pas
View File

@ -5,7 +5,7 @@ unit laz_pkghandler;
interface interface
uses uses
Classes, SysUtils, pkghandler, pkgglobals, pkgmessages; pkghandler, pkgglobals, pkgmessages;
procedure Laz_ExecuteAction(const APackageName,AAction:string); procedure Laz_ExecuteAction(const APackageName,AAction:string);

4
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -32,8 +32,8 @@ uses
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
WSMenus, WSLCLClasses, WSProc, WSMenus, WSLCLClasses, WSProc,
Windows, Controls, Classes, SysUtils, Win32Int, Win32Proc, Win32WSImgList, Windows, Controls, Classes, SysUtils, Win32Int, Win32Proc, Win32WSImgList,
InterfaceBase, LCLProc, LazUTF8, Themes, UxTheme, Win32Themes, Win32Extra, LCLProc, Themes, UxTheme, Win32Themes, Win32Extra,
FileUtil; FileUtil, LazUTF8;
type type