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

Cleanup SynEdit: Removed unnecessary uses, redeclaration's,...

Browse Source 
git-svn-id: trunk@18519 -
This commit is contained in:
martin 2009-01-31 16:33:20 +00:00
parent f6ffc3b079
commit 4e1e17c667
17 changed files with 25 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synbeautifierpas.pas
View File

@ -44,7 +44,7 @@ unit SynBeautifierPas;
interface interface
uses uses
Math, Classes, SysUtils, LCLProc, SynEdit, SynBeautifier, SynEditTextBuffer, Classes, SysUtils, LCLProc, SynEdit, SynBeautifier, SynEditTextBuffer,
SynEditHighlighter, SynHighlighterPas; SynEditHighlighter, SynHighlighterPas;
type type

20
components/synedit/synedit.pp
View File

@ -155,7 +155,7 @@ type
ESynEditError = class(Exception); ESynEditError = class(Exception);
TDropFilesEvent = procedure(Sender: TObject; X, Y: integer; AFiles: TStrings) TSynDropFilesEvent = procedure(Sender: TObject; X, Y: integer; AFiles: TStrings)
of object; of object;
THookedCommandEvent = procedure(Sender: TObject; AfterProcessing: boolean; THookedCommandEvent = procedure(Sender: TObject; AfterProcessing: boolean;
@ -173,13 +173,6 @@ type
TReplaceTextEvent = procedure(Sender: TObject; const ASearch, AReplace: TReplaceTextEvent = procedure(Sender: TObject; const ASearch, AReplace:
string; Line, Column: integer; var ReplaceAction: TSynReplaceAction) of object; string; Line, Column: integer; var ReplaceAction: TSynReplaceAction) of object;
{$IFDEF SYN_LAZARUS}
TSpecialLineMarkupEvent = procedure(Sender: TObject; Line: integer;
var Special: boolean; Markup: TSynSelectedColor) of object;
{$ENDIF}
TSpecialLineColorsEvent = procedure(Sender: TObject; Line: integer;
var Special: boolean; var FG, BG: TColor) of object;
TSynEditCaretType = (ctVerticalLine, ctHorizontalLine, ctHalfBlock, ctBlock); TSynEditCaretType = (ctVerticalLine, ctHorizontalLine, ctHalfBlock, ctBlock);
TSynStateFlag = (sfCaretChanged, sfScrollbarChanged, sfLinesChanging, TSynStateFlag = (sfCaretChanged, sfScrollbarChanged, sfLinesChanging,
@ -273,13 +266,6 @@ type
TCustomSynEdit = class; TCustomSynEdit = class;
{ Make them visible for Units that use TSynEdit }
TSynEditMark = SynEditMarks.TSynEditMark;
TPlaceMarkEvent = SynEditMarks.TPlaceMarkEvent;
TSynEditMarks = SynEditMarks.TSynEditMarks;
TSynEditMarkList = SynEditMarks.TSynEditMarkList;
TGutterClickEvent = SynGutterBase.TGutterClickEvent;
TSynLineState = (slsNone, slsSaved, slsUnsaved); TSynLineState = (slsNone, slsSaved, slsUnsaved);
@ -425,7 +411,7 @@ type
fOnChange: TNotifyEvent; fOnChange: TNotifyEvent;
fOnClearMark: TPlaceMarkEvent; // djlp 2000-08-29 fOnClearMark: TPlaceMarkEvent; // djlp 2000-08-29
fOnCommandProcessed: TProcessCommandEvent; fOnCommandProcessed: TProcessCommandEvent;
fOnDropFiles: TDropFilesEvent; fOnDropFiles: TSynDropFilesEvent;
fOnPaint: TPaintEvent; fOnPaint: TPaintEvent;
fOnPlaceMark: TPlaceMarkEvent; fOnPlaceMark: TPlaceMarkEvent;
fOnProcessCommand: TProcessCommandEvent; fOnProcessCommand: TProcessCommandEvent;
@ -958,7 +944,7 @@ type
write fOnClearMark; write fOnClearMark;
property OnCommandProcessed: TProcessCommandEvent property OnCommandProcessed: TProcessCommandEvent
read fOnCommandProcessed write fOnCommandProcessed; read fOnCommandProcessed write fOnCommandProcessed;
property OnDropFiles: TDropFilesEvent read fOnDropFiles write fOnDropFiles; property OnDropFiles: TSynDropFilesEvent read fOnDropFiles write fOnDropFiles;
property OnGutterClick: TGutterClickEvent property OnGutterClick: TGutterClickEvent
read GetOnGutterClick write SetOnGutterClick; read GetOnGutterClick write SetOnGutterClick;
property OnPaint: TPaintEvent read fOnPaint write fOnPaint; property OnPaint: TPaintEvent read fOnPaint write fOnPaint;

4
components/synedit/syneditfoldedview.pp
View File

@ -31,7 +31,7 @@ interface
uses uses
LCLProc, Graphics, LCLProc, Graphics,
Classes, SysUtils, SynEditTypes, SynEditTextBuffer, SynEditTextBase, Classes, SysUtils, SynEditTypes, SynEditTextBuffer, SynEditTextBase,
SynEditMiscClasses, SynEditPointClasses; SynEditMiscClasses, SynEditMiscProcs, SynEditPointClasses;
type type
@ -293,8 +293,6 @@ type
implementation implementation
uses
SynEditMiscProcs;
{ TSynTextFoldAVLNodeData } { TSynTextFoldAVLNodeData }

5
components/synedit/syneditmarkup.pp
View File

@ -26,7 +26,8 @@ unit SynEditMarkup;
interface interface
uses uses
Classes, SysUtils, Graphics, SynEditTextBase, SynEditTextBuffer, SynEditMiscClasses, Controls, SynEditHighlighter; Classes, SysUtils, Graphics, SynEditTextBase, SynEditTextBuffer,
SynEditMiscClasses, SynEditMiscProcs, Controls, SynEditHighlighter;
type type
@ -146,7 +147,7 @@ type
implementation implementation
uses SynEdit, SynEditMiscProcs; uses SynEdit;
{ TSynEditMarkup } { TSynEditMarkup }

2
components/synedit/syneditmarkupctrlmouselink.pp
View File

@ -52,7 +52,7 @@ type
end; end;
implementation implementation
uses SynEdit; //, SynEditTypes; uses SynEdit;
{ TSynEditMarkupCtrlMouseLink } { TSynEditMarkupCtrlMouseLink }

5
components/synedit/syneditmiscclasses.pp
View File

@ -47,7 +47,7 @@ uses
{$ELSE} {$ELSE}
Windows, Windows,
{$ENDIF} {$ENDIF}
Classes, Graphics, Controls, SysUtils, SynEditTypes; Classes, Graphics, Controls, SysUtils, SynEditMiscProcs, SynEditTypes;
type type
@ -261,9 +261,6 @@ type
implementation implementation
uses
SynEditMiscProcs;
{ TSynSelectedColor } { TSynSelectedColor }
constructor TSynSelectedColor.Create; constructor TSynSelectedColor.Create;

4
components/synedit/syneditmiscprocs.pp
View File

@ -239,7 +239,7 @@ end;
{***} {***}
// mh: Please don't change; no stack frame and efficient register use. // mh: Please don't change; no stack frame and efficient register use.
function GetHasTabs(pLine: PChar; var CharsBefore: integer): boolean; function GetHasTabs(pLine: PChar; out CharsBefore: integer): boolean;
begin begin
CharsBefore := 0; CharsBefore := 0;
if Assigned(pLine) then begin if Assigned(pLine) then begin
@ -254,7 +254,7 @@ begin
end; end;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
function StringHasTabs(const Line: string; var CharsBefore: integer): boolean; function StringHasTabs(const Line: string; out CharsBefore: integer): boolean;
var LineLen: integer; var LineLen: integer;
begin begin
LineLen:=length(Line); LineLen:=length(Line);

13
components/synedit/synedittextbuffer.pp
View File

@ -1268,12 +1268,7 @@ end;
{ TSynEditStringMemory } { TSynEditStringMemory }
type type
PString = ^String;
PObject = ^TObject; PObject = ^TObject;
PByte = ^Byte;
PWord = ^Word;
PLong = ^LongWord;
PQLong = ^QWord;
const const
AttributeOfset = SizeOf(String) + SizeOf(TObject); AttributeOfset = SizeOf(String) + SizeOf(TObject);
@ -1373,8 +1368,8 @@ begin
case Size of case Size of
1 : Result := Pointer(PtrUInt((PByte(FMem + Index * FAttributeSize + AttributeOfset + Pos))^)); 1 : Result := Pointer(PtrUInt((PByte(FMem + Index * FAttributeSize + AttributeOfset + Pos))^));
2 : Result := Pointer(PtrUInt((PWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^)); 2 : Result := Pointer(PtrUInt((PWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^));
4 : Result := Pointer(PtrUInt((PLong(FMem + Index * FAttributeSize + AttributeOfset + Pos))^)); 4 : Result := Pointer(PtrUInt((PLongWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^));
8 : Result := Pointer(PtrUInt((PQLong(FMem + Index * FAttributeSize + AttributeOfset + Pos))^)); 8 : Result := Pointer(PtrUInt((PQWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^));
end; end;
end; end;
@ -1383,8 +1378,8 @@ begin
case Size of case Size of
1 : (PByte(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := Byte(PtrUInt(AValue)); 1 : (PByte(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := Byte(PtrUInt(AValue));
2 : (PWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := Word(PtrUInt(AValue)); 2 : (PWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := Word(PtrUInt(AValue));
4 : (PLong(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := LongWord(PtrUInt(AValue)); 4 : (PLongWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := LongWord(PtrUInt(AValue));
8 : (PQLong(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := QWord(PtrUInt(AValue)); 8 : (PQWord(FMem + Index * FAttributeSize + AttributeOfset + Pos))^ := QWord(PtrUInt(AValue));
end; end;
end; end;

3
components/synedit/synedittexttabexpander.pas
View File

@ -27,8 +27,7 @@ interface
uses uses
LCLProc, LCLProc,
Classes, SysUtils, SynEditTypes, SynEditTextBase, SynEditTextBuffer, Classes, SysUtils, SynEditTextBase, SynEditTextBuffer, SynEditMiscProcs;
SynEditMiscClasses, SynEditMiscProcs;
const const
// Offset to add to LengthOfLine, if Line has no tabs. // Offset to add to LengthOfLine, if Line has no tabs.

2
components/synedit/synedittexttrimmer.pas
View File

@ -29,7 +29,7 @@ interface
uses uses
LCLProc, LCLProc,
Classes, SysUtils, SynEditTypes, SynEditTextBase, SynEditTextBuffer, Classes, SysUtils, SynEditTypes, SynEditTextBase, SynEditTextBuffer,
SynEditMiscClasses, SynEditPointClasses; SynEditPointClasses;
type type

2
components/synedit/syngutter.pp
View File

@ -5,7 +5,7 @@ unit SynGutter;
interface interface
uses uses
Classes, SysUtils, Controls, Graphics, LCLType, LCLIntf, LCLProc, LCLClasses, Classes, SysUtils, Controls, Graphics, LCLType, LCLIntf, LCLProc,
SynEditMarks, SynEditMiscClasses, SynEditMiscProcs, SynEditFoldedView, SynEditMarks, SynEditMiscClasses, SynEditMiscProcs, SynEditFoldedView,
SynTextDrawer, SynGutterBase, SynGutterLineNumber, SynGutterCodeFolding, SynTextDrawer, SynGutterBase, SynGutterLineNumber, SynGutterCodeFolding,
SynGutterMarks, SynGutterChanges; SynGutterMarks, SynGutterChanges;

2
components/synedit/syngutterbase.pp
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, Graphics, Controls, SynEditMarks, Classes, SysUtils, Graphics, Controls, SynEditMarks,
SynEditMiscClasses, SynEditMiscProcs, SynEditFoldedView, SynTextDrawer; SynEditMiscClasses, SynEditFoldedView, SynTextDrawer;
type type

2
components/synedit/synguttercodefolding.pp
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, Graphics, LCLType, LCLIntf, SynGutterBase, Classes, SysUtils, Graphics, LCLType, LCLIntf, SynGutterBase,
SynEditMiscClasses, SynEditMiscProcs, SynEditFoldedView; SynEditMiscProcs, SynEditFoldedView;
type type

2
components/synedit/syngutterlinenumber.pp
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, Graphics, LCLType, LCLIntf, SynGutterBase, Classes, SysUtils, Graphics, LCLType, LCLIntf, SynGutterBase,
SynEditMiscProcs, SynEditMiscClasses, SynTextDrawer, SynEditFoldedView; SynEditMiscProcs, SynTextDrawer, SynEditFoldedView;
type type

2
components/synedit/synguttermarks.pp
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, Graphics, LCLType, LCLIntf, SynGutterBase, Classes, SysUtils, Graphics, LCLType, LCLIntf, SynGutterBase,
SynEditMiscClasses, SynEditMiscProcs, SynEditFoldedView; SynEditMiscClasses, SynEditMiscProcs, SynEditFoldedView, SynEditMarks;
type type

2
ide/sourceeditor.pp
View File

@ -50,7 +50,7 @@ uses
// synedit // synedit
SynEditStrConst, SynEditTypes, SynEdit, SynRegExpr, SynEditHighlighter, SynEditStrConst, SynEditTypes, SynEdit, SynRegExpr, SynEditHighlighter,
SynEditAutoComplete, SynEditKeyCmds, SynCompletion, SynEditMiscClasses, SynEditAutoComplete, SynEditKeyCmds, SynCompletion, SynEditMiscClasses,
SynEditMarkupHighAll, SynGutterLineNumber, SynEditMarkupHighAll, SynGutterLineNumber, SynEditMarks,
// IDE interface // IDE interface
MacroIntf, ProjectIntf, SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf, MacroIntf, ProjectIntf, SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf,
IDEDialogs, IDEHelpIntf, IDEWindowIntf, IDEImagesIntf, IDEDialogs, IDEHelpIntf, IDEWindowIntf, IDEImagesIntf,

2
ide/sourcemarks.pas
View File

@ -39,7 +39,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, LResources, Graphics, GraphType, Controls, Menus, Classes, SysUtils, LCLProc, LResources, Graphics, GraphType, Controls, Menus,
AVL_Tree, SynEdit, IDEProcs, MenuIntf, EditorOptions; AVL_Tree, SynEdit, SynEditMarks, IDEProcs, MenuIntf, EditorOptions;
type type
TSourceMarks = class; TSourceMarks = class;