paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit clean up

Browse Source 
git-svn-id: trunk@34942 -
This commit is contained in:
martin 2012-01-25 23:53:40 +00:00
parent 1fc2e095ea
commit 03de26cc1f
10 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedithighlighterxmlbase.pas
View File

@ -31,7 +31,7 @@ interface
uses
SysUtils, Classes, math, LCLType,
SynEditTypes, SynEditTextBase, SynEditTextBuffer,
SynEditTextBase,
SynEditHighlighter, SynEditHighlighterFoldBase;
type

2
components/synedit/syneditmarkup.pp
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, Graphics, SynEditTypes, LazSynEditText, SynEditPointClasses,
SynEditMiscClasses, SynEditMiscProcs, Controls, SynEditHighlighter, LCLProc;
SynEditMiscClasses, Controls, SynEditHighlighter, LCLProc;
type

2
components/synedit/synhighlighterdiff.pas
View File

@ -35,7 +35,7 @@ interface
uses
Classes, Graphics, math,
SynEditTextBuffer, SynEditHighlighter, SynEditHighlighterFoldBase;
SynEditHighlighter, SynEditHighlighterFoldBase;
type
TtkTokenKind = (tkNull, tkUnknown, tkSpace,

2
components/synedit/synhighlighterlfm.pas
View File

@ -50,7 +50,7 @@ interface
uses
SysUtils, Classes, FileUtil, Graphics,
SynEditTextBuffer, SynEditTypes, SynEditHighlighter, SynEditHighlighterFoldBase;
SynEditTypes, SynEditHighlighter, SynEditHighlighterFoldBase;
type
TtkTokenKind = (tkComment, tkIdentifier, tkKey, tkNull, tkNumber, tkSpace,

3
components/synedit/synhighlighterpas.pp
View File

@ -58,8 +58,7 @@ uses
Windows, Messages,
{$ENDIF}
Classes, Registry, Graphics, SynEditHighlighterFoldBase, SynEditMiscProcs,
SynEditTypes, SynEditHighlighter, SynEditTextBase, SynEditTextBuffer,
SynEditStrConst;
SynEditTypes, SynEditHighlighter, SynEditTextBase, SynEditStrConst;
type
TSynPasStringMode = (spsmDefault, spsmStringOnly, spsmNone);

1
components/synedit/synmacrorecorder.pas
View File

@ -53,7 +53,6 @@ uses
QGraphics,
QMenus,
{$ELSE}
StdCtrls,
Controls,
{$IFDEF SYN_LAZARUS}
{$IFDEF USE_UTF8BIDI_LCL}

2
components/synedit/synpluginsyncroedit.pp
View File

@ -26,7 +26,7 @@ unit SynPluginSyncroEdit;
interface
uses
Classes, Controls, SysUtils, math, LCLProc, Forms, Graphics, SynEditMiscClasses,
Classes, Controls, SysUtils, LCLProc, Forms, Graphics, SynEditMiscClasses,
LCLType, SynEdit, SynPluginSyncronizedEditBase, LazSynEditText, SynEditMiscProcs,
SynEditMouseCmds, SynEditKeyCmds, SynEditTypes, LCLIntf;

2
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -26,7 +26,7 @@ unit SynPluginSyncronizedEditBase;
interface
uses
Classes, SysUtils, math, Graphics, LCLProc, SynEditTextBase,
Classes, SysUtils, Graphics, LCLProc, SynEditTextBase,
SynEditMiscClasses, SynEdit, SynEditMarkup, SynEditMiscProcs, LazSynEditText,
SynEditTextTrimmer, SynEditKeyCmds;

4
components/synedit/synplugintemplateedit.pp
View File

@ -26,9 +26,9 @@ unit SynPluginTemplateEdit;
interface
uses
Classes, SysUtils, math, Graphics, LCLType, SynEditMiscClasses,
Classes, SysUtils, Graphics, LCLType,
SynPluginSyncronizedEditBase, SynEditKeyCmds, SynEdit, SynEditMiscProcs,
LazSynEditText, LCLProc;
LCLProc;
type

8
components/synedit/synregexpr.pas
View File

@ -306,7 +306,7 @@ type
function GetModifierStr : RegExprString;
class function ParseModifiersStr (const AModifiers : RegExprString;
out AModifiersInt : integer) : boolean; //###0.941 class function now
var AModifiersInt : integer) : boolean; //###0.941 class function now
// Parse AModifiers string and return true and set AModifiersInt
// if it's in format 'ismxrg-ismxrg'.
procedure SetModifierStr (const AModifiers : RegExprString);
@ -343,7 +343,7 @@ type
function ParseReg (paren : integer; out flagp : integer) : PRegExprChar;
// regular expression, i.e. main body or parenthesized thing
function ParseBranch (var flagp : integer) : PRegExprChar;
function ParseBranch (out flagp : integer) : PRegExprChar;
// one alternative of an | operator
function ParsePiece (var flagp : integer) : PRegExprChar;
@ -1328,7 +1328,7 @@ function TRegExpr.GetModifierStr : RegExprString;
--------------------------------------------------------------}
class function TRegExpr.ParseModifiersStr (const AModifiers : RegExprString;
out AModifiersInt : integer) : boolean;
var AModifiersInt : integer) : boolean;
// !!! Be carefull - this is class function and must not use object instance fields
var
i : integer;
@ -1831,7 +1831,7 @@ function TRegExpr.ParseReg (paren : integer; out flagp : integer) : PRegExprChar
end; { of function TRegExpr.ParseReg
--------------------------------------------------------------}
function TRegExpr.ParseBranch (var flagp : integer) : PRegExprChar;
function TRegExpr.ParseBranch (out flagp : integer) : PRegExprChar;
// one alternative of an | operator
// Implements the concatenation operator.
var