paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 15:57:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: test, clean up

Browse Source 
git-svn-id: trunk@39804 -
This commit is contained in:
martin 2013-01-08 10:05:46 +00:00
parent 4d33e87310
commit 77f02e3f39
9 changed files with 15 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/test/testblockindent.pas
View File

@ -5,9 +5,8 @@ unit TestBlockIndent;
interface
uses
Classes, SysUtils, testregistry, TestBase, math,
SynEdit, SynEditTypes, SynEditTextTrimmer, SynEditKeyCmds,
LCLType, LCLProc;
SysUtils, testregistry, TestBase, math,
SynEdit, SynEditKeyCmds;
type

2
components/synedit/test/testfoldedview.pas
View File

@ -24,7 +24,7 @@ type
FoldedView: TSynEditFoldedView;
DoAutoFoldDescTests, DoAutoFoldDescTestsReadOnly: Boolean;
DoAllowScrollPastEof: Boolean;
EnableDebug: Boolean;
//EnableDebug: Boolean;
procedure TestFoldedText(AName: String; ALines: Array of Integer);
procedure SetLines(AText: Array of String); reintroduce;

3
components/synedit/test/testhighlighterlfm.pas
View File

@ -5,8 +5,7 @@ unit TestHighlighterLfm;
interface
uses
Classes, SysUtils, testregistry, TestBase, Forms, LCLProc, TestHighlightFoldBase,
SynEdit, SynEditTypes, SynHighlighterLFM, SynEditHighlighterFoldBase;
SysUtils, testregistry, TestBase, TestHighlightFoldBase, SynHighlighterLFM, SynEditHighlighterFoldBase;
type

4
components/synedit/test/testhighlightfoldbase.pas
View File

@ -5,8 +5,8 @@ unit TestHighlightFoldBase;
interface
uses
Classes, SysUtils, testregistry, TestBase, Forms, LCLProc,
SynEdit, SynEditTypes, SynEditHighlighterFoldBase;
SysUtils, TestBase,
SynEdit, SynEditHighlighterFoldBase;
type

5
components/synedit/test/testhighlightmulti.pas
View File

@ -5,7 +5,7 @@ unit TestHighlightMulti;
interface
uses
Classes, SysUtils, math, LCLProc, fpcunit, testregistry, TestBase, Forms, SynEditHighlighter,
Classes, SysUtils, math, LCLProc, testregistry, TestBase, Forms, SynEditHighlighter,
SynHighlighterMulti, SynHighlighterLFM, SynHighlighterXML, SynHighlighterPas, SynEditKeyCmds,
LazSynEditText, SynEditTextBuffer, LazLogger;
@ -117,9 +117,6 @@ begin
end;
procedure TTestHighlightMulti.DumpSections(ASectList: TSynHLightMultiSectionList);
var
s: TSynHLightMultiVirtualSection;
i: Integer;
begin
ASectList.Debug;
end;

4
components/synedit/test/testhighlightxml.pas
View File

@ -5,7 +5,7 @@ unit TestHighlightXml;
interface
uses
Classes, SysUtils, fpcunit, testregistry, TestBase, TestHighlightFoldBase, SynHighlighterXML,
testregistry, TestBase, TestHighlightFoldBase, SynHighlighterXML,
SynEditHighlighterFoldBase;
type
@ -35,8 +35,6 @@ procedure THighlightXml.TestXml;
Result[2] := '</qwe>';
Result[3] := '';
end;
var
hl: TSynXMLSyn;
begin
ReCreateEdit;
SetLines(TestText);

4
components/synedit/test/testnavigation.pas
View File

@ -9,8 +9,8 @@ unit TestNavigation;
interface
uses
Classes, SysUtils, testregistry, LCLProc, LCLType, Forms, TestBase,
SynEdit, SynEditTextTrimmer, SynEditKeyCmds, LazSynEditText;
SysUtils, testregistry, LCLProc, Forms, TestBase,
SynEdit, SynEditKeyCmds;
type

4
components/synedit/test/testsearch.pas
View File

@ -5,8 +5,8 @@ unit TestSearch;
interface
uses
Classes, SysUtils, testregistry, LCLProc, LCLType, Forms, TestBase,
SynEdit, SynEditTextTrimmer, SynEditKeyCmds, SynEditSearch, SynHighlighterPas;
Classes, SysUtils, testregistry, TestBase,
SynEdit, SynEditSearch, SynHighlighterPas;
type

6
components/synedit/test/testsyntextarea.pas
View File

@ -6,9 +6,9 @@ unit TestSynTextArea;
interface
uses
Classes, SysUtils, fpcunit, testregistry, TestBase, LazSynTextArea, SynEditTypes,
SynEditMarkupBracket, SynEdit, SynHighlighterPosition, SynEditMarkup, SynEditMiscClasses,
Graphics, Forms;
Classes, SysUtils, testregistry, TestBase, LazSynTextArea, SynEditTypes,
SynEditMarkupBracket, SynEdit, SynHighlighterPosition, SynEditMiscClasses,
Graphics;
type