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

Fix compilation of Codetools examples and wiki test project. Clean uses sections.

Browse Source 
git-svn-id: trunk@54563 -
This commit is contained in:
juha 2017-04-07 19:02:11 +00:00
parent 5ba142cc42
commit ffa67e0ff4
62 changed files with 228 additions and 156 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/examples/addfpprofcalls.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

8
components/codetools/examples/addfpprofcalls.lpr
View File

@ -31,8 +31,12 @@ program addfpprofcalls;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeCache, CodeToolManager, CodeAtom, BasicCodeTools, SourceChanger, SysUtils,
CodeTree, CodeToolsStructs, PascalParserTool; // LazUtils
LazFileUtils, LazUTF8, AvgLvlTree,
// CodeTools
CodeCache, CodeToolManager, CodeAtom, BasicCodeTools, SourceChanger,
CodeTree, PascalParserTool;
type type
TMode = (mList,mAdd,mRemove); TMode = (mList,mAdd,mRemove);

2
components/codetools/examples/addmethod.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

6
components/codetools/examples/addmethod.lpr
View File

@ -28,7 +28,11 @@ program AddMethod;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeCache, CodeToolManager, CodeCompletionTool, SimpleUnit1; SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeCache, CodeToolManager, CodeCompletionTool, SimpleUnit1;
type type
TMyMethodType = function(Sender: TObject; AValue: integer): string of object; TMyMethodType = function(Sender: TObject; AValue: integer): string of object;

2
components/codetools/examples/addmethodassign.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

6
components/codetools/examples/addmethodassign.lpr
View File

@ -28,7 +28,11 @@ program AddMethodAssign;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, AVL_Tree, CodeCache, CodeToolManager, FileProcs, Classes, SysUtils,
// LazUtils
Laz_AVL_Tree,
// CodeTools
CodeCache, CodeToolManager, FileProcs,
BasicCodeTools, CodeTree, FindDeclarationTool, AssignExample1; BasicCodeTools, CodeTree, FindDeclarationTool, AssignExample1;
const const

2
components/codetools/examples/addwith.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

6
components/codetools/examples/addwith.lpr
View File

@ -28,7 +28,11 @@ program addwith;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, CodeCache, CodeToolManager; Classes, SysUtils,
// LazUtils
LazUTF8,
// CodeTools
CodeCache, CodeToolManager;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';

2
components/codetools/examples/autoindent.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>

6
components/codetools/examples/autoindent.pas
View File

@ -28,7 +28,11 @@ program AutoIndent;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeToolManager, CodeCache, CodeBeautifier; SysUtils,
// LazUtils
LazUTF8, LazFileUtils,
// CodeTools
CodeToolManager, CodeCache, CodeBeautifier;
var var
Code: TCodeBuffer; Code: TCodeBuffer;

2
components/codetools/examples/changeparamlist.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

6
components/codetools/examples/changeparamlist.lpr
View File

@ -29,8 +29,10 @@ program changeparamlist;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, contnrs, CodeCache, CodeToolManager, FileProcs, AVL_Tree, CodeAtom, Classes, SysUtils, contnrs, Laz_AVL_Tree,
SourceChanger, CodeTree, FindDeclarationTool, CTUnitGraph, ChangeDeclarationTool, // CodeTools
CodeCache, CodeToolManager, FileProcs, CodeAtom, CodeTree, SourceChanger,
FindDeclarationTool, CTUnitGraph, ChangeDeclarationTool,
ChangeParamList1; ChangeParamList1;
const const

2
components/codetools/examples/codecompletion.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>

2
components/codetools/examples/codecompletion.lpr
View File

@ -70,7 +70,7 @@ begin
raise Exception.Create('loading failed '+Filename); raise Exception.Create('loading failed '+Filename);
// complete code // complete code
if CodeToolBoss.CompleteCode(Code,X,Y,TopLine,NewCode,NewX,NewY,NewTopLine) if CodeToolBoss.CompleteCode(Code,X,Y,TopLine,NewCode,NewX,NewY,NewTopLine,false)
then begin then begin
writeln('Code completed: ',NewCode.Filename,' Line=',NewY,' Column=',NewX); writeln('Code completed: ',NewCode.Filename,' Line=',NewY,' Column=',NewX);
writeln(Code.Source); writeln(Code.Source);

2
components/codetools/examples/completeblock.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>

6
components/codetools/examples/completeblock.pas
View File

@ -28,7 +28,11 @@ program CompleteBlock;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, DefineTemplates, CodeToolManager, CodeCache; Classes, SysUtils,
// LazUtils
LazUTF8, LazFileUtils,
// CodeTool
DefineTemplates, CodeToolManager, CodeCache;
var var
Code: TCodeBuffer; Code: TCodeBuffer;

10
components/codetools/examples/finddeclaration.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
@ -29,7 +29,7 @@
<PackageName Value="CodeTools"/> <PackageName Value="CodeTools"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="5"> <Units Count="4">
<Unit0> <Unit0>
<Filename Value="finddeclaration.lpr"/> <Filename Value="finddeclaration.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -45,13 +45,9 @@
<UnitName Value="OverloadedFunction"/> <UnitName Value="OverloadedFunction"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../../../amat/test/test.inc"/>
<IsPartOfProject Value="True"/>
</Unit3>
<Unit4>
<Filename Value="scanexamples/commentsidentifiers.pas"/> <Filename Value="scanexamples/commentsidentifiers.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit4> </Unit3>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

3
components/codetools/examples/findusedunitreferences.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
@ -33,6 +33,7 @@
<Unit0> <Unit0>
<Filename Value="findusedunitreferences.lpr"/> <Filename Value="findusedunitreferences.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="FindUsedUnitReferences"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="scanexamples/simpleunit1.pas"/> <Filename Value="scanexamples/simpleunit1.pas"/>

6
components/codetools/examples/findusedunitreferences.lpr
View File

@ -35,7 +35,11 @@ program FindUsedUnitReferences;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, CodeCache, CodeToolManager, Classes, SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeCache, CodeToolManager,
usedunitrefs1; usedunitrefs1;
const const

2
components/codetools/examples/fixfilenames.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>

6
components/codetools/examples/fixfilenames.pas
View File

@ -29,7 +29,11 @@ program FixFilenames;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, CodeToolsStructs, CodeToolManager, CodeCache; Classes, SysUtils,
// LazUtils
LazFileUtils, LazUTF8, AvgLvlTree,
// CodeTools
CodeToolManager, CodeCache;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';

2
components/codetools/examples/getcontext.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>

6
components/codetools/examples/getcontext.lpr
View File

@ -3,7 +3,11 @@ program GetContext;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeCache, CodeToolManager, IdentCompletionTool, FindDeclarationTool; SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeCache, CodeToolManager, IdentCompletionTool, FindDeclarationTool;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';

2
components/codetools/examples/getexpandedoperand.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>

6
components/codetools/examples/getexpandedoperand.pas
View File

@ -29,7 +29,11 @@ program getexpandedoperand;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeCache, CodeToolManager, SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeCache, CodeToolManager,
SimpleUnit1, getterexample1; SimpleUnit1, getterexample1;
const const

2
components/codetools/examples/h2pastest.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

6
components/codetools/examples/h2pastest.lpr
View File

@ -31,7 +31,11 @@ program H2PasTest;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, CodeCache, CodeToolManager, CCodeParserTool, FileProcs, Classes, SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeCache, CodeToolManager, CCodeParserTool, FileProcs,
H2PasTool; H2PasTool;
const const

5
components/codetools/examples/identifiercompletion.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
@ -10,9 +10,6 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
</General> </General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>

9
components/codetools/examples/identifiercompletion.lpr
View File

@ -28,7 +28,11 @@ program IdentifierCompletion;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeCache, CodeToolManager; SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeCache, CodeToolManager;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';
@ -50,8 +54,7 @@ begin
CodeToolBoss.SimpleInit(ConfigFilename); CodeToolBoss.SimpleInit(ConfigFilename);
// optional: ProjectDir and TestPascalFile exists only to easily test some // optional: ProjectDir and TestPascalFile exists only to easily test some things.
// things.
Filename:=TrimFilename(SetDirSeparators(GetCurrentDir+'/scanexamples/identcomplexample.pas')); Filename:=TrimFilename(SetDirSeparators(GetCurrentDir+'/scanexamples/identcomplexample.pas'));
X:=20; X:=20;
Y:=11; Y:=11;

2
components/codetools/examples/listinterfaceclasses.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>

6
components/codetools/examples/listinterfaceclasses.pas
View File

@ -28,7 +28,11 @@ program ListInterfaceClasses;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeToolManager, CodeCache, CodeTree; SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeToolManager, CodeCache, CodeTree;
var var
ExpandedFilename: String; ExpandedFilename: String;

2
components/codetools/examples/methodjumping.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>

6
components/codetools/examples/methodjumping.pas
View File

@ -28,7 +28,11 @@ program MethodJumping;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeToolManager, CodeCache; SysUtils,
// LazUtils
LazFileUtils,
// CodeTools
CodeToolManager, CodeCache;
var var
ExpandedFilename: String; ExpandedFilename: String;

2
components/codetools/examples/parsefpcmsg.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>

2
components/codetools/examples/retypepublishedvars.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>

6
components/codetools/examples/retypepublishedvars.lpr
View File

@ -28,7 +28,11 @@ program retypepublishedvars;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, CodeCache, CodeToolManager, CodeToolsStructs; SysUtils,
// LazUtils
AvgLvlTree,
// CodeTools
CodeCache, CodeToolManager, CodeToolsStructs;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';

5
components/codetools/examples/scanfpcerrormsgfiles.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/> <SaveClosedFiles Value="False"/>
@ -18,9 +18,6 @@
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
</BuildModes> </BuildModes>

6
components/codetools/examples/scanfpcerrormsgfiles.lpr
View File

@ -10,7 +10,11 @@ program scanfpcerrormsgfiles;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
sysutils, CodeToolsFPCMsgs, CodeToolsStructs, LazFileUtils; sysutils,
// LazUtils
LazFileUtils, AvgLvlTree,
// CodeTools
CodeToolsFPCMsgs, CodeToolsStructs;
procedure WriteUsage; procedure WriteUsage;
begin begin

5
components/codetools/examples/sourcecloser.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
@ -15,9 +15,6 @@
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
</BuildModes> </BuildModes>

7
components/codetools/examples/sourcecloser.lpr
View File

@ -33,9 +33,12 @@ program sourcecloser;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, AvgLvlTree, LazLogger, LazFileUtils, Laz2_XMLCfg, LazUTF8, Classes, SysUtils, CustApp,
// LazUtils
AvgLvlTree, LazLogger, LazFileUtils, Laz2_XMLCfg, LazUTF8,
// CodeTools
FileProcs, BasicCodeTools, CodeToolManager, CodeCache, SourceChanger, FileProcs, BasicCodeTools, CodeToolManager, CodeCache, SourceChanger,
CodeTree, DefineTemplates, CustApp; CodeTree, DefineTemplates;
type type

4
components/codetools/examples/testfpcsrcunitrules.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
@ -18,7 +18,6 @@
<VersionInfo> <VersionInfo>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
@ -44,6 +43,7 @@
<Unit0> <Unit0>
<Filename Value="testfpcsrcunitrules.lpr"/> <Filename Value="testfpcsrcunitrules.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="TestFPCSrcUnitRules"/>
</Unit0> </Unit0>
</Units> </Units>
</ProjectOptions> </ProjectOptions>

21
components/codetools/examples/testfpcsrcunitrules.lpr
View File

@ -28,8 +28,11 @@ program TestFPCSrcUnitRules;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, CustApp, AVL_Tree, CodeToolManager, DefineTemplates, Classes, SysUtils, CustApp, Laz_AVL_Tree,
CodeToolsConfig, FileProcs, CodeToolsStructs, LazFileUtils; // LazUtils
LazFileUtils, AvgLvlTree,
// CodeTools
FileProcs, CodeToolManager, DefineTemplates, CodeToolsConfig;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';
@ -241,7 +244,7 @@ var
IsPPU: Boolean; IsPPU: Boolean;
SourceFiles: TStringList; SourceFiles: TStringList;
Units: TStringToStringTree; Units: TStringToStringTree;
Item: PStringToStringTreeItem; Item: PStringToStringItem;
Node: TAVLTreeNode; Node: TAVLTreeNode;
begin begin
SearchPaths:=ConfigCache.UnitPaths; SearchPaths:=ConfigCache.UnitPaths;
@ -282,7 +285,7 @@ begin
Node:=Units.Tree.FindLowest; Node:=Units.Tree.FindLowest;
i:=0; i:=0;
while Node<>nil do begin while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data); Item:=PStringToStringItem(Node.Data);
Filename:=Item^.Value; Filename:=Item^.Value;
if System.Pos(';',Filename)>0 then begin if System.Pos(';',Filename)>0 then begin
// duplicate units // duplicate units
@ -302,7 +305,7 @@ procedure TTestFPCSourceUnitRules.WriteMissingPPUSources(
var var
UnitToSrc: TStringToStringTree; UnitToSrc: TStringToStringTree;
Node: TAVLTreeNode; Node: TAVLTreeNode;
Item: PStringToStringTreeItem; Item: PStringToStringItem;
ConfigCache: TFPCTargetConfigCache; ConfigCache: TFPCTargetConfigCache;
aUnitName: String; aUnitName: String;
Cnt: Integer; Cnt: Integer;
@ -319,7 +322,7 @@ begin
Cnt:=0; Cnt:=0;
Node:=ConfigCache.Units.Tree.FindLowest; Node:=ConfigCache.Units.Tree.FindLowest;
while Node<>nil do begin while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data); Item:=PStringToStringItem(Node.Data);
aUnitName:=Item^.Name; aUnitName:=Item^.Name;
Filename:=Item^.Value; Filename:=Item^.Value;
if CompareFileExt(Filename,'ppu',false)=0 then begin if CompareFileExt(Filename,'ppu',false)=0 then begin
@ -353,7 +356,7 @@ var
SrcDuplicates: TStringToStringTree; SrcDuplicates: TStringToStringTree;
Node: TAVLTreeNode; Node: TAVLTreeNode;
Cnt: Integer; Cnt: Integer;
Item: PStringToStringTreeItem; Item: PStringToStringItem;
aUnitName: String; aUnitName: String;
Files: String; Files: String;
Units: TStringToStringTree; Units: TStringToStringTree;
@ -368,7 +371,7 @@ begin
Cnt:=0; Cnt:=0;
Node:=SrcDuplicates.Tree.FindLowest; Node:=SrcDuplicates.Tree.FindLowest;
while Node<>nil do begin while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data); Item:=PStringToStringItem(Node.Data);
aUnitName:=Item^.Name; aUnitName:=Item^.Name;
Files:=Item^.Value; Files:=Item^.Value;
PPUFile:=Units[aUnitName]; PPUFile:=Units[aUnitName];
@ -386,7 +389,7 @@ begin
Cnt:=0; Cnt:=0;
Node:=SrcDuplicates.Tree.FindLowest; Node:=SrcDuplicates.Tree.FindLowest;
while Node<>nil do begin while Node<>nil do begin
Item:=PStringToStringTreeItem(Node.Data); Item:=PStringToStringItem(Node.Data);
aUnitName:=Item^.Name; aUnitName:=Item^.Name;
Files:=Item^.Value; Files:=Item^.Value;
if (Units=nil) or (Units[aUnitName]='') then begin if (Units=nil) or (Units[aUnitName]='') then begin

2
components/codetools/examples/unitdicttest.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

12
components/codetools/examples/unitdicttest.lpr
View File

@ -28,8 +28,12 @@ program unitdicttest;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, AVL_Tree, CodeToolManager, FileProcs, SysUtils, Laz_AVL_Tree,
DefineTemplates, unitdictionary, CodeToolsStructs, LazFileUtils; // LazUtils
LazFileUtils, AvgLvlTree,
// CodeTools
CodeToolManager, FileProcs,
DefineTemplates, unitdictionary, CodeToolsStructs;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';
@ -40,7 +44,7 @@ var
UnitSet: TFPCUnitSetCache; UnitSet: TFPCUnitSetCache;
CfgCache: TFPCTargetConfigCache; CfgCache: TFPCTargetConfigCache;
AVLNode: TAVLTreeNode; AVLNode: TAVLTreeNode;
Item: PStringToStringTreeItem; Item: PStringToStringItem;
Directory: String; Directory: String;
D2: TUnitDictionary; D2: TUnitDictionary;
begin begin
@ -53,7 +57,7 @@ begin
AVLNode:=CfgCache.Units.Tree.FindLowest; AVLNode:=CfgCache.Units.Tree.FindLowest;
Directory:=AppendPathDelim(UnitSet.FPCSourceDirectory)+'packages'; Directory:=AppendPathDelim(UnitSet.FPCSourceDirectory)+'packages';
while AVLNode<>nil do begin while AVLNode<>nil do begin
Item:=PStringToStringTreeItem(AVLNode.Data); Item:=PStringToStringItem(AVLNode.Data);
FileName:=UnitSet.GetUnitSrcFile(Item^.Name,false); FileName:=UnitSet.GetUnitSrcFile(Item^.Name,false);
//writeln('UnitName=',Item^.Name,' Source=',Filename); //writeln('UnitName=',Item^.Name,' Source=',Filename);
if FilenameIsPascalUnit(Filename) if FilenameIsPascalUnit(Filename)

5
components/codetools/examples/usedbyunits.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
@ -11,9 +11,6 @@
<Title Value="usedbyunits"/> <Title Value="usedbyunits"/>
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
</General> </General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>

7
components/codetools/examples/usedbyunits.lpr
View File

@ -28,8 +28,11 @@ program UsedByUnits;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
SysUtils, AVL_Tree, FileProcs, CTUnitGraph, CodeToolManager, SysUtils, Laz_AVL_Tree,
LazFileUtils, LazFileCache; // LazUtils
LazFileUtils, LazFileCache,
// CodeTools
FileProcs, CTUnitGraph, CodeToolManager;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';

4
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -45,8 +45,8 @@ uses
PackageIntf, LazIDEIntf, SrcEditorIntf, ProjectIntf, PackageIntf, LazIDEIntf, SrcEditorIntf, ProjectIntf,
CompOptsIntf, IDEDialogs, IDEMsgIntf, IDEExternToolIntf, CompOptsIntf, IDEDialogs, IDEMsgIntf, IDEExternToolIntf,
// Codetools // Codetools
CodeCache, BasicCodeTools, CustomCodeTool, CodeToolManager, UnitDictionary, CodeTree, CodeCache, BasicCodeTools, CustomCodeTool, CodeToolManager, UnitDictionary,
LinkScanner, DefineTemplates, CodeToolsStructs, FindDeclarationTool, CodeTree, LinkScanner, DefineTemplates, FindDeclarationTool,
CodyStrConsts, CodyUtils, CodyOpts, FileProcs, CodyStrConsts, CodyUtils, CodyOpts, FileProcs,
// LazUtils // LazUtils
LazFileUtils, LazFileCache, AvgLvlTree; LazFileUtils, LazFileCache, AvgLvlTree;

2
components/codetools/pascalparsertool.pas
View File

@ -45,7 +45,7 @@ uses
Classes, SysUtils, Classes, SysUtils,
// Codetools // Codetools
FileProcs, CodeToolsStrConsts, CodeTree, CodeAtom, ExprEval, FileProcs, CodeToolsStrConsts, CodeTree, CodeAtom, ExprEval,
MultiKeyWordListTool, KeywordFuncLists, CodeToolsStructs, LinkScanner, CodeCache; MultiKeyWordListTool, KeywordFuncLists, LinkScanner, CodeCache;
type type
TProcHeadAttribute = ( TProcHeadAttribute = (

10
components/wiki/test/wikihelpmanager.pas
View File

@ -27,8 +27,14 @@ unit WikiHelpManager;
interface interface
uses uses
Classes, SysUtils, math, LazFileUtils, LazLogger, LazDbgLog, LazUTF8, Classes, SysUtils, math,
laz2_DOM, CodeToolsStructs, BasicCodeTools, KeywordFuncLists, MTProcs, // LazUtils
LazFileUtils, LazLogger, LazDbgLog, LazUTF8, laz2_DOM, AvgLvlTree,
// CodeTools
BasicCodeTools, KeywordFuncLists,
//
MTProcs,
// Wiki
Wiki2HTMLConvert, Wiki2XHTMLConvert, WikiFormat, WikiParser; Wiki2HTMLConvert, Wiki2XHTMLConvert, WikiFormat, WikiParser;
type type

15
components/wiki/test/wikisearchdemo.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -13,9 +13,6 @@
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
</BuildModes> </BuildModes>
@ -51,12 +48,12 @@
<Unit0> <Unit0>
<Filename Value="wikisearchdemo.lpr"/> <Filename Value="wikisearchdemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="wikisearchdemo"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="wikisearchmain.pas"/> <Filename Value="wikisearchmain.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="WikiSearchDemoForm"/> <ComponentName Value="WikiSearchDemoForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="WikiSearchMain"/> <UnitName Value="WikiSearchMain"/>
</Unit1> </Unit1>
@ -90,12 +87,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="3">

BIN
components/wiki/test/wikisearchdemo.res
View File

Binary file not shown.

58
components/wiki/test/wikisearchmain.lfm
View File

@ -9,7 +9,7 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.31' LCLVersion = '1.7'
object PagePanel: TPanel object PagePanel: TPanel
Left = 325 Left = 325
Height = 501 Height = 501
@ -38,6 +38,10 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
PrintSettings.MarginTop = 0.5 PrintSettings.MarginTop = 0.5
PrintSettings.MarginRight = 0.5 PrintSettings.MarginRight = 0.5
PrintSettings.MarginBottom = 0.5 PrintSettings.MarginBottom = 0.5
PrintSettings.Preview.Left = 480
PrintSettings.Preview.Top = 270
PrintSettings.Preview.Width = 1440
PrintSettings.Preview.Height = 810
TabOrder = 0 TabOrder = 0
WantTabs = False WantTabs = False
OnHotClick = IpHtmlPanelHotClick OnHotClick = IpHtmlPanelHotClick
@ -63,8 +67,8 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
end end
object SearchSepToolButton: TToolButton object SearchSepToolButton: TToolButton
Left = 24 Left = 24
Height = 22
Top = 2 Top = 2
Width = 5
Caption = 'SearchSepToolButton' Caption = 'SearchSepToolButton'
Style = tbsDivider Style = tbsDivider
end end
@ -106,8 +110,8 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
AnchorSideTop.Control = OptionsButton AnchorSideTop.Control = OptionsButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 1 Left = 1
Height = 431 Height = 433
Top = 69 Top = 67
Width = 318 Width = 318
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -119,6 +123,10 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
PrintSettings.MarginTop = 0.5 PrintSettings.MarginTop = 0.5
PrintSettings.MarginRight = 0.5 PrintSettings.MarginRight = 0.5
PrintSettings.MarginBottom = 0.5 PrintSettings.MarginBottom = 0.5
PrintSettings.Preview.Left = 480
PrintSettings.Preview.Top = 270
PrintSettings.Preview.Width = 1440
PrintSettings.Preview.Height = 810
TabOrder = 0 TabOrder = 0
WantTabs = False WantTabs = False
OnHotClick = IpHtmlPanelHotClick OnHotClick = IpHtmlPanelHotClick
@ -128,10 +136,10 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SearchPanel AnchorSideTop.Control = SearchPanel
AnchorSideRight.Control = HideSearchButton AnchorSideRight.Control = HideSearchButton
Left = 82 Left = 87
Height = 24 Height = 28
Top = 7 Top = 7
Width = 114 Width = 97
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
OnChange = SearchEditChange OnChange = SearchEditChange
@ -145,9 +153,9 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
AnchorSideTop.Control = SearchEdit AnchorSideTop.Control = SearchEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 7 Left = 7
Height = 15 Height = 14
Top = 12 Top = 14
Width = 69 Width = 74
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'SearchLabel' Caption = 'SearchLabel'
ParentColor = False ParentColor = False
@ -158,9 +166,9 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 7 Left = 7
Height = 15 Height = 14
Top = 43 Top = 42
Width = 79 Width = 85
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ProgressLabel' Caption = 'ProgressLabel'
ParentColor = False ParentColor = False
@ -170,10 +178,10 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = SearchPanel AnchorSideRight.Control = SearchPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 202 Left = 190
Height = 26 Height = 24
Top = 6 Top = 9
Width = 111 Width = 123
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -185,10 +193,10 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
AnchorSideLeft.Control = SearchPanel AnchorSideLeft.Control = SearchPanel
AnchorSideRight.Control = SearchPanel AnchorSideRight.Control = SearchPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 222 Left = 213
Height = 26 Height = 24
Top = 37 Top = 37
Width = 91 Width = 100
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -205,16 +213,6 @@ object WikiSearchDemoForm: TWikiSearchDemoForm
object SynHTMLSyn1: TSynHTMLSyn object SynHTMLSyn1: TSynHTMLSyn
DefaultFilter = 'HTML Document (*.htm,*.html)|*.htm;*.html' DefaultFilter = 'HTML Document (*.htm,*.html)|*.htm;*.html'
Enabled = False Enabled = False
AndAttri.FrameEdges = sfeAround
ASPAttri.FrameEdges = sfeAround
CommentAttri.FrameEdges = sfeAround
IdentifierAttri.FrameEdges = sfeAround
KeyAttri.FrameEdges = sfeAround
SpaceAttri.FrameEdges = sfeAround
SymbolAttri.FrameEdges = sfeAround
TextAttri.FrameEdges = sfeAround
UndefKeyAttri.FrameEdges = sfeAround
ValueAttri.FrameEdges = sfeAround
left = 411 left = 411
top = 139 top = 139
end end

18
components/wiki/test/wikisearchmain.pas
View File

@ -25,11 +25,19 @@ unit WikiSearchMain;
interface interface
uses uses
Classes, SysUtils, math, FileUtil, LazLogger, LazUTF8, LazFileUtils, laz2_DOM, Classes, SysUtils, math,
Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, ComCtrls, LCLIntf, // LCL
Menus, IpHtml, Ipfilebroker, IpMsg, CodeToolManager, CodeCache, SynEdit, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, ComCtrls, LCLIntf, Menus,
SynHighlighterHTML, SynEditHighlighter, WikiHelpManager, WikiSearchOptions, // LazUtils
WikiParser, WikiFormat; LazLogger, LazUTF8, LazFileUtils, laz2_DOM,
// CodeTools
CodeToolManager, CodeCache,
// SynEdit
SynEdit, SynHighlighterHTML, SynEditHighlighter,
// TurboPower_IPro
IpHtml, Ipfilebroker,
// Wiki
WikiHelpManager, WikiSearchOptions, WikiParser, WikiFormat;
type type

2
converter/convcodetool.pas
View File

@ -37,7 +37,7 @@ uses
Forms, Controls, Forms, Controls,
// CodeTools // CodeTools
CodeToolManager, CodeTree, CodeAtom, FileProcs, KeywordFuncLists, BasicCodeTools, CodeToolManager, CodeTree, CodeAtom, FileProcs, KeywordFuncLists, BasicCodeTools,
LinkScanner, CodeCache, SourceChanger, CodeToolsStructs, LinkScanner, CodeCache, SourceChanger,
// LazUtils // LazUtils
LazFileUtils, AvgLvlTree, LazFileUtils, AvgLvlTree,
// IdeIntf // IdeIntf

2
converter/missingpropertiesdlg.pas
View File

@ -40,7 +40,7 @@ uses
// components // components
SynHighlighterLFM, SynEdit, SynEditMiscClasses, SynHighlighterLFM, SynEdit, SynEditMiscClasses,
// codetools // codetools
CodeCache, CodeToolManager, CodeToolsStructs, CodeCompletionTool, LFMTrees, CodeCache, CodeToolManager, CodeCompletionTool, LFMTrees,
// IdeIntf // IdeIntf
IDEExternToolIntf, ComponentReg, IDEExternToolIntf, ComponentReg,
// IDE // IDE

7
converter/replacenamesunit.pas
View File

@ -7,12 +7,9 @@ interface
uses uses
Classes, SysUtils, RegExpr, Classes, SysUtils, RegExpr,
// LCL // LCL
LResources, Forms, Controls, Graphics, Dialogs, Forms, Controls, Dialogs, Grids, Menus, ButtonPanel,
Grids, Buttons, ExtCtrls, Menus, ButtonPanel,
// Codetools
CodeToolsStructs,
// LazUtils // LazUtils
FileUtil, AvgLvlTree, AvgLvlTree,
// IDE, converter // IDE, converter
LazarusIDEStrConsts, ConverterTypes; LazarusIDEStrConsts, ConverterTypes;

2
ide/codehelp.pas
View File

@ -46,7 +46,7 @@ uses
// CodeTools // CodeTools
CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools, CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools,
KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, CustomCodeTool, KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, CustomCodeTool,
FileProcs, DefineTemplates, CodeToolsStructs, FileProcs, DefineTemplates,
// LazUtils // LazUtils
AvgLvlTree, FileUtil, LazFileUtils, LazUTF8, LazFileCache, AvgLvlTree, FileUtil, LazFileUtils, LazUTF8, LazFileCache,
Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite, Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite,

17
ide/emptymethodsdlg.pas
View File

@ -32,12 +32,17 @@ unit EmptyMethodsDlg;
interface interface
uses uses
Classes, SysUtils, TypInfo, LCLProc, Forms, Controls, Graphics, Classes, SysUtils, TypInfo,
Dialogs, ExtCtrls, StdCtrls, ButtonPanel, SynEdit, SynHighlighterPas, // LCL
CodeToolsStructs, CodeCache, CodeToolManager, PascalParserTool, LCLProc, Forms, Controls, Dialogs, StdCtrls, ButtonPanel,
CodeTree, // SynEdit
SrcEditorIntf, LazIDEIntf, PropEdits, IDEDialogs, CustomFormEditor, JitForms, SynEdit, SynHighlighterPas,
Project, LazarusIDEStrConsts, EditorOptions; // CodeTools
CodeToolsStructs, CodeCache, CodeToolManager, PascalParserTool, CodeTree,
// IdeIntf
SrcEditorIntf, LazIDEIntf, PropEdits, IDEDialogs,
// IDE
CustomFormEditor, JitForms, Project, LazarusIDEStrConsts, EditorOptions;
type type

2
ide/etfpcmsgparser.pas
View File

@ -35,7 +35,7 @@ uses
// RTL // RTL
Classes, SysUtils, strutils, math, Classes, SysUtils, strutils, math,
// CodeTools // CodeTools
KeywordFuncLists, CodeToolsFPCMsgs, {CodeToolsStructs,} CodeCache, FileProcs, KeywordFuncLists, CodeToolsFPCMsgs, CodeCache, FileProcs,
CodeToolManager, DirectoryCacher, BasicCodeTools, DefineTemplates, SourceLog, CodeToolManager, DirectoryCacher, BasicCodeTools, DefineTemplates, SourceLog,
// LazUtils // LazUtils
LConvEncoding, LazUTF8, FileUtil, LazFileUtils, AvgLvlTree, LConvEncoding, LazUTF8, FileUtil, LazFileUtils, AvgLvlTree,

2
ide/etmakemsgparser.pas
View File

@ -33,7 +33,7 @@ uses
// RTL // RTL
Classes, SysUtils, Classes, SysUtils,
// CodeTools // CodeTools
CodeToolsStructs, KeywordFuncLists, KeywordFuncLists,
// LazUtils // LazUtils
FileUtil, LazFileUtils, AvgLvlTree, FileUtil, LazFileUtils, AvgLvlTree,
// IDEIntf // IDEIntf

2
ide/exttools.pas
View File

@ -42,7 +42,7 @@ uses
LCLProc, LCLProc,
{$ENDIF} {$ENDIF}
// CodeTools // CodeTools
FileProcs, //CodeToolsStructs, FileProcs,
// LazUtils // LazUtils
FileUtil, AvgLvlTree, LazFileUtils, UTF8Process, LazUTF8, FileUtil, AvgLvlTree, LazFileUtils, UTF8Process, LazUTF8,
// IDEIntf // IDEIntf

14
ide/makeresstrdlg.pas
View File

@ -39,13 +39,17 @@ unit MakeResStrDlg;
interface interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, StdCtrls, Classes, SysUtils,
Dialogs, ExtCtrls, ButtonPanel, IDEWindowIntf, // LCL
LCLProc, Forms, Controls, StdCtrls, Dialogs, ExtCtrls, ButtonPanel,
// SynEdit
SynHighlighterPas, SynEdit, SynHighlighterPas, SynEdit,
// CodeTools
CodeToolManager, CodeToolsStructs, CodeCache, CodeToolManager, CodeToolsStructs, CodeCache,
IDEHelpIntf, IDEDialogs, // IdeIntf
LazarusIDEStrConsts, IDEWindowIntf, IDEHelpIntf, IDEDialogs,
EditorOptions, InputHistory, MiscOptions, IDEProcs; // IDE
LazarusIDEStrConsts, EditorOptions, InputHistory, MiscOptions, IDEProcs;
type type