paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 14:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix for right overview Gutter (-dWithSynOverviewGutter)

Browse Source 
git-svn-id: trunk@27633 -
This commit is contained in:
martin 2010-10-09 16:14:00 +00:00
parent 871136835b
commit ca47b5bc9e
1 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
ide/sourcesyneditor.pas
View File

@ -505,8 +505,8 @@ constructor TIDESynGutterLOvProviderPascal.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SingleLine := False;
Color := $acacac;
Color2 := clLtGray;
Color := $D4D4D4;
Color2 := $E8E8E8;
TSynEditStringList(TextBuffer).AddGenericHandler(senrHighlightChanged,
TMethod({$IFDEF FPC}@{$ENDIF}HighlightChanged));
TSynEditStringList(TextBuffer).AddGenericHandler(senrTextBufferChanged,
@ -542,7 +542,7 @@ end;
constructor TIDESynGutterLOvProviderIDEMarks.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
BreakColor := $4466ff;
BreakColor := $0080C8;
end;
{ TIDESynGutter }
@ -560,19 +560,29 @@ begin
Name := 'SynGutterSeparator1';
with TIDESynGutterCodeFolding.Create(Parts) do
Name := 'SynGutterCodeFolding1';
//end
//else begin
// with TSynGutterLineOverview.Create(Parts) do begin
// Name := 'SynGutterLineOverview1';
// with TIDESynGutterLOvProviderIDEMarks.Create(Providers) do
// Priority := 20;
// with TSynGutterLOvProviderModifiedLines.Create(Providers) do
// Priority := 9;
// with TSynGutterLOvProviderCurrentPage.Create(Providers) do
// Priority := 1;
// with TIDESynGutterLOvProviderPascal.Create(Providers) do
// Priority := 0;
// end;
{$IFDEF WithSynOverviewGutter}
end
else begin
with TSynGutterSeparator.Create(Parts) do
Name := 'SynGutterSeparatorR';
with TSynGutterLineOverview.Create(Parts) do begin
Name := 'SynGutterLineOverview1';
with TIDESynGutterLOvProviderIDEMarks.Create(Providers) do
Priority := 20;
with TSynGutterLOvProviderModifiedLines.Create(Providers) do
Priority := 9;
with TSynGutterLOvProviderCurrentPage.Create(Providers) do
Priority := 1;
with TIDESynGutterLOvProviderPascal.Create(Providers) do
Priority := 0;
end;
with TSynGutterSeparator.Create(Parts) do begin
Name := 'SynGutterSeparatorR2';
AutoSize := False;
Width := 1;
LineWidth := 0;
end;
{$ENDIF}
end;
end;