mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 20:39:14 +02:00
IDE: Move used units in ProcedureList to the same "uses" block in interface section.
git-svn-id: trunk@52592 -
This commit is contained in:
parent
91780eb6f7
commit
620c7bc25f
@ -36,11 +36,13 @@ unit ProcedureList;
|
|||||||
{$mode objfpc}{$H+}
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
|
Classes, SysUtils,
|
||||||
ExtCtrls, StdCtrls,
|
LCLType, Forms, Controls, Dialogs, ComCtrls, ExtCtrls, StdCtrls, Clipbrd,
|
||||||
CodeTree, CodeToolManager, CodeCache,
|
CodeTree, CodeToolManager, CodeCache, PascalParserTool, KeywordFuncLists,
|
||||||
IDEImagesIntf;
|
LazIDEIntf, IDEImagesIntf, SrcEditorIntf,
|
||||||
|
LazarusIDEStrConsts;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TProcedureListForm }
|
{ TProcedureListForm }
|
||||||
@ -100,25 +102,12 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
procedure ExecuteProcedureList(Sender: TObject);
|
procedure ExecuteProcedureList(Sender: TObject);
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$R *.lfm}
|
{$R *.lfm}
|
||||||
|
|
||||||
uses
|
|
||||||
SrcEditorIntf
|
|
||||||
,PascalParserTool
|
|
||||||
,KeywordFuncLists
|
|
||||||
,LCLType
|
|
||||||
,LazIDEIntf
|
|
||||||
,IDECommands
|
|
||||||
,Clipbrd
|
|
||||||
,LazarusIDEStrConsts
|
|
||||||
;
|
|
||||||
|
|
||||||
|
|
||||||
const
|
const
|
||||||
cAbout =
|
cAbout =
|
||||||
'Procedure List (Lazarus addon)' + #10#10 +
|
'Procedure List (Lazarus addon)' + #10#10 +
|
||||||
|
Loading…
Reference in New Issue
Block a user