paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 01:58:50 +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 uses
SysUtils, Classes, math, LCLType, SysUtils, Classes, math, LCLType,
SynEditTypes, SynEditTextBase, SynEditTextBuffer, SynEditTextBase,
SynEditHighlighter, SynEditHighlighterFoldBase; SynEditHighlighter, SynEditHighlighterFoldBase;
type type

2
components/synedit/syneditmarkup.pp
View File

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

2
components/synedit/synhighlighterdiff.pas
View File

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

2
components/synedit/synhighlighterlfm.pas
View File

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

3
components/synedit/synhighlighterpas.pp
View File

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

1
components/synedit/synmacrorecorder.pas
View File

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

2
components/synedit/synpluginsyncroedit.pp
View File

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

2
components/synedit/synpluginsyncronizededitbase.pp
View File

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

4
components/synedit/synplugintemplateedit.pp
View File

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

8
components/synedit/synregexpr.pas
View File

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