View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0032930 | Lazarus | IDE | public | 2018-01-02 16:37 | 2018-01-29 22:04 |
| Reporter | Vojtech Cihak | Assigned To | Martin Friebe | ||
| Priority | normal | Severity | minor | Reproducibility | N/A |
| Status | resolved | Resolution | fixed | ||
| Product Version | 1.9 (SVN) | ||||
| Target Version | 1.8.2 | Fixed in Version | 1.8.2 | ||
| Summary | 0032930: Outlines in Source Editor (feature request) | ||||
| Description | Currently, colors of Outlines are hardcoded. Request no.1 is to make them configurable. Then, some people will want to use outlines but with standart colors (lets say all black). Request no.2 is to enable multiple pen styles. Outlines of nested blocks can be painted solid-dashed-dotted in repeatig sequece: | ¦ . | ¦ . | ¦ . | ¦ . | ¦ . or style can be assinged separately (case-of dotted, begin-end solid etc.) | ||||
| Tags | No tags attached. | ||||
| Fixed in Revision | 57182 | ||||
| LazTarget | - | ||||
| Widgetset | |||||
| Attached Files |
| ||||
|
|
color_options_for_outline_coloring.patch (18,709 bytes)
Index: components/synedit/syneditmarkupfoldcoloring.pas
===================================================================
--- components/synedit/syneditmarkupfoldcoloring.pas (revision 57125)
+++ components/synedit/syneditmarkupfoldcoloring.pas (working copy)
@@ -43,7 +43,7 @@
unit SynEditMarkupFoldColoring;
{$mode objfpc}{$H+}
-{ $define SynEditMarkupFoldColoringDebug}
+{off $define SynEditMarkupFoldColoringDebug}
interface
@@ -71,10 +71,21 @@
TSynEditMarkupFoldColors = class(TSynEditMarkup)
private
+ fUpdateColors: Boolean;
function GetFirstCharacterColumn(index: Integer): Byte;
procedure TextBufferChanged(Sender: TObject);
private
FHighlighter: TSynCustomFoldHighlighter;
+ FColor1: TSynSelectedColor;
+ FColor2: TSynSelectedColor;
+ FColor3: TSynSelectedColor;
+ FColor4: TSynSelectedColor;
+ FColor5: TSynSelectedColor;
+ FColor6: TSynSelectedColor;
+ FColor7: TSynSelectedColor;
+ FColor8: TSynSelectedColor;
+ FColor9: TSynSelectedColor;
+ FColor10: TSynSelectedColor;
FNestList: TLazSynEditNestedFoldsList;
// cache
@@ -88,7 +99,7 @@
FDefaultGroup: integer;
FFoldColorInfos: TMarkupFoldColorInfos;
- Colors : array of TColor;
+ FColors : array of TColor;
FPreparedRow: integer;
FLastNode: TSynFoldNodeInfo;
FLastEnabled: Boolean;
@@ -100,6 +111,7 @@
procedure SetFoldColorInfosCount(pNewCount: Integer);
procedure InitCache;
procedure ClearCache;
+ procedure UpdateColors;
property FirstCharacterColumn[index: Integer]: Byte read GetFirstCharacterColumn;
protected
// Notifications about Changes to the text
@@ -108,6 +120,7 @@
procedure LinesChanged(Sender: TSynEditStrings; aIndex, aCount: Integer);
procedure HighlightChanged(Sender: TSynEditStrings; aIndex, aCount: Integer);
procedure DoEnabledChanged(Sender: TObject); override;
+ procedure ColorChanged(AMarkup: TObject);
public
constructor Create(ASynEdit : TSynEditBase);
destructor Destroy; override;
@@ -122,6 +135,16 @@
procedure PrepareMarkupForRow(aRow : Integer); override;
property DefaultGroup : integer read FDefaultGroup write SetDefaultGroup;
+ property Color1: TSynSelectedColor read FColor1;
+ property Color2: TSynSelectedColor read FColor2;
+ property Color3: TSynSelectedColor read FColor3;
+ property Color4: TSynSelectedColor read FColor4;
+ property Color5: TSynSelectedColor read FColor5;
+ property Color6: TSynSelectedColor read FColor6;
+ property Color7: TSynSelectedColor read FColor7;
+ property Color8: TSynSelectedColor read FColor8;
+ property Color9: TSynSelectedColor read FColor9;
+ property Color10: TSynSelectedColor read FColor10;
end;
implementation
@@ -169,6 +192,27 @@
FNestList.FoldFlags := [sfbIncludeDisabled];
FNestList.IncludeOpeningOnLine := True;
+ FColor1 := TSynSelectedColor.Create;
+ FColor1.OnChange := @ColorChanged;
+ FColor2 := TSynSelectedColor.Create;
+ FColor2.OnChange := @ColorChanged;
+ FColor3 := TSynSelectedColor.Create;
+ FColor3.OnChange := @ColorChanged;
+ FColor4 := TSynSelectedColor.Create;
+ FColor4.OnChange := @ColorChanged;
+ FColor5 := TSynSelectedColor.Create;
+ FColor5.OnChange := @ColorChanged;
+ FColor6 := TSynSelectedColor.Create;
+ FColor6.OnChange := @ColorChanged;
+ FColor7 := TSynSelectedColor.Create;
+ FColor7.OnChange := @ColorChanged;
+ FColor8 := TSynSelectedColor.Create;
+ FColor8.OnChange := @ColorChanged;
+ FColor9 := TSynSelectedColor.Create;
+ FColor9.OnChange := @ColorChanged;
+ FColor10 := TSynSelectedColor.Create;
+ FColor10.OnChange := @ColorChanged;
+
MarkupInfo.Foreground := clGreen;
MarkupInfo.Background := clNone;
MarkupInfo.Style := [];
@@ -175,17 +219,32 @@
MarkupInfo.StyleMask := [];
MarkupInfo.FrameEdges:= sfeLeft;
- SetLength(Colors, 6);
- Colors[0] := clRed;
- Colors[1] := $000098F7; //orange
- Colors[2] := $0022CC40; //green
- Colors[3] := $00CCCC00; //cyan
- Colors[4] := $00FF682A; //blue
- Colors[5] := $00CF00C4; //purple
+ SetLength(FColors, 6);
+ FColor1.FrameColor := clRed;
+ FColor2.FrameColor := $000098F7; //orange
+ FColor3.FrameColor := $0022CC40; //green
+ FColor4.FrameColor := $00CCCC00; //cyan
+ FColor5.FrameColor := $00FF682A; //blue
+ FColor6.FrameColor := $00CF00C4; //purple
+ FColor7.FrameColor := clNone;
+ FColor8.FrameColor := clNone;
+ FColor9.FrameColor := clNone;
+ FColor10.FrameColor := clNone;
+
end;
destructor TSynEditMarkupFoldColors.Destroy;
begin
+ FColor1.Free;
+ FColor2.Free;
+ FColor3.Free;
+ FColor4.Free;
+ FColor5.Free;
+ FColor6.Free;
+ FColor7.Free;
+ FColor8.Free;
+ FColor9.Free;
+ FColor10.Free;
if Assigned(Lines) then begin
Lines.RemoveChangeHandler(senrLineCount, @LinesChanged);
Lines.RemoveChangeHandler(senrHighlightChanged, @HighlightChanged);
@@ -242,12 +301,12 @@
x2both := max(x2both, x2);
MarkupInfo.SetFrameBoundsLog(x, x2both);
if Border then begin
- MarkupInfo.FrameColor:= Colors[ColorIdx];
+ MarkupInfo.FrameColor:= FColors[ColorIdx];
MarkupInfo.FrameEdges:= sfeLeft;
end else begin
MarkupInfo.FrameColor:= clNone;
MarkupInfo.FrameEdges:= sfeNone;
- MarkupInfo.Foreground := Colors[ColorIdx];
+ MarkupInfo.Foreground := FColors[ColorIdx];
end;
end;
end;
@@ -343,7 +402,7 @@
if not Border and (sfaOutlineNoColor in ANode.FoldAction) then
Ignore := True;
Level := lvl;
- ColorIdx := Max(0, lvl) mod (length(Colors));
+ ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -354,6 +413,7 @@
begin
y := ToIdx(aRow);
+ FNestList.Clear;
FNestList.Line := y;
NestCount := FNestList.Count;
FHighlighter.CurrentLines := Lines;
@@ -391,7 +451,7 @@
if sfaOutlineKeepLevel in FFoldColorInfos[FFoldColorInfosCount - 2].SrcNode.FoldAction then begin
lvl := FFoldColorInfos[FFoldColorInfosCount - 2].Level;
FFoldColorInfos[FFoldColorInfosCount - 1].Level := lvl;
- FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(Colors));
+ FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -451,7 +511,7 @@
X2 := ANode.LogXEnd + 1;
Level := lvl;
if not (sfaOutlineNocolor in ANode.FoldAction) then
- ColorIdx := Max(0, lvl) mod (length(Colors))
+ ColorIdx := Max(0, lvl) mod (length(FColors))
else
ColorIdx := -1;
end;
@@ -510,7 +570,7 @@
or (sfaOutlineKeepLevel in FFoldColorInfos[FFoldColorInfosCount - 2].SrcNode.FoldAction) then begin
lvl := FFoldColorInfos[FFoldColorInfosCount - 2].Level;
FFoldColorInfos[FFoldColorInfosCount - 1].Level := lvl;
- FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(Colors));
+ FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -577,6 +637,12 @@
//DebugLn('PrepareMarkupForRow %d', [aRow]);
{$ENDIF}
if not Assigned(FHighlighter) then exit;
+
+ if fUpdateColors then begin
+ UpdateColors;
+ fUpdateColors := False;
+ end;
+
FPreparedRow := aRow;
FFoldColorInfosCount := 0; //reset needed to prevent using of invalid area
@@ -664,6 +730,37 @@
end;
end;
+procedure TSynEditMarkupFoldColors.UpdateColors;
+var
+ c: Integer;
+
+ procedure AddColor(pColor: TSynSelectedColor);
+ begin
+ if pColor.FrameColor = clNone then exit;
+ fColors[c] := pColor.FrameColor;
+ inc(c);
+ end;
+
+begin
+ SetLength(fColors, 10);
+ c := 0;
+ AddColor(FColor1);
+ AddColor(FColor2);
+ AddColor(FColor3);
+ AddColor(FColor4);
+ AddColor(FColor5);
+ AddColor(FColor6);
+ AddColor(FColor7);
+ AddColor(FColor8);
+ AddColor(FColor9);
+ AddColor(FColor10);
+ if c = 0 then begin
+ fColors[c] := $FF;
+ inc(c);
+ end;
+ SetLength(fColors, c);
+end;
+
procedure TSynEditMarkupFoldColors.DoTextChanged(StartLine, EndLine,
ACountDiff: Integer);
@@ -952,6 +1049,11 @@
InvalidateSynLines(1, Lines.Count);
end;
+procedure TSynEditMarkupFoldColors.ColorChanged(AMarkup: TObject);
+begin
+ fUpdateColors := True;
+end;
+
end.
Index: ide/editoroptions.pp
===================================================================
--- ide/editoroptions.pp (revision 57125)
+++ ide/editoroptions.pp (working copy)
@@ -121,7 +121,8 @@
'', // ahaTopInfoHint
'', '', '', // ahaIfDefBlockInactive, ahaIfDefBlockActive, ahaIfDefBlockTmpActive
'', '', '', // ahaIfDefNodeInactive, ahaIfDefNodeActive, ahaIfDefNodeTmpActive
- '', '', '', '' // ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ '', '', '', '', // ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ '', '', '', '', '', '', '', '', '', '' // ahaOutlineColor01..10
);
ahaGroupMap: array[TAdditionalHilightAttribute] of TAhaGroupName = (
@@ -167,7 +168,17 @@
{ ahaIdentComplWindow } agnIdentComplWindow,
{ ahaIdentComplWindowBorder } agnIdentComplWindow,
{ ahaIdentComplWindowSelection } agnIdentComplWindow,
- { ahaIdentComplWindowHighlight } agnIdentComplWindow
+ { ahaIdentComplWindowHighlight } agnIdentComplWindow,
+ { ahaOutlineColor1 } agnOutlineColors,
+ { ahaOutlineColor2 } agnOutlineColors,
+ { ahaOutlineColor3 } agnOutlineColors,
+ { ahaOutlineColor4 } agnOutlineColors,
+ { ahaOutlineColor5 } agnOutlineColors,
+ { ahaOutlineColor6 } agnOutlineColors,
+ { ahaOutlineColor7 } agnOutlineColors,
+ { ahaOutlineColor8 } agnOutlineColors,
+ { ahaOutlineColor9 } agnOutlineColors,
+ { ahaOutlineColor10 } agnOutlineColors
);
ahaSupportedFeatures: array[TAdditionalHilightAttribute] of TColorSchemeAttributeFeatures =
@@ -214,7 +225,17 @@
{ ahaIdentComplWindow } [hafBackColor, hafForeColor],
{ ahaIdentComplWindowBorder } [hafForeColor],
{ ahaIdentComplWindowSelection } [hafBackColor, hafForeColor],
- { ahaIdentComplWindowHighlight } [hafForeColor]
+ { ahaIdentComplWindowHighlight } [hafForeColor],
+ { ahaFoldColor1 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor2 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor3 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor4 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor5 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor6 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor7 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor8 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor9 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor10 } [hafFrameColor, hafFrameStyle]
);
@@ -2478,6 +2499,18 @@
AdditionalHighlightAttributes[ahaIdentComplWindowHighlight] := dlgAddHiAttrHighlightPrefix;
AdditionalHighlightGroupNames[agnIdentComplWindow] := dlgIdentifierCompletion;
+ AdditionalHighlightAttributes[ahaOutlineColor1] := dlgAddHiAttrOutlineColor1;
+ AdditionalHighlightAttributes[ahaOutlineColor2] := dlgAddHiAttrOutlineColor2;
+ AdditionalHighlightAttributes[ahaOutlineColor3] := dlgAddHiAttrOutlineColor3;
+ AdditionalHighlightAttributes[ahaOutlineColor4] := dlgAddHiAttrOutlineColor4;
+ AdditionalHighlightAttributes[ahaOutlineColor5] := dlgAddHiAttrOutlineColor5;
+ AdditionalHighlightAttributes[ahaOutlineColor6] := dlgAddHiAttrOutlineColor6;
+ AdditionalHighlightAttributes[ahaOutlineColor7] := dlgAddHiAttrOutlineColor7;
+ AdditionalHighlightAttributes[ahaOutlineColor8] := dlgAddHiAttrOutlineColor8;
+ AdditionalHighlightAttributes[ahaOutlineColor9] := dlgAddHiAttrOutlineColor9;
+ AdditionalHighlightAttributes[ahaOutlineColor10] := dlgAddHiAttrOutlineColor10;
+ AdditionalHighlightGroupNames[agnOutlineColors] := dlgAddHiAttrGroupOutlineColors;
+
AdditionalHighlightGroupNames[agnDefault] := dlgAddHiAttrGroupDefault;
AdditionalHighlightGroupNames[agnText] := dlgAddHiAttrGroupText;
AdditionalHighlightGroupNames[agnLine] := dlgAddHiAttrGroupLine;
@@ -6541,6 +6574,21 @@
SetMarkupColor(ahaSyncroEditSync, TSynPluginSyncroEdit(aSynEdit.Plugin[i]).MarkupInfoSync);
SetMarkupColor(ahaSyncroEditArea, TSynPluginSyncroEdit(aSynEdit.Plugin[i]).MarkupInfoArea);
end;
+ i := aSynEdit.MarkupCount - 1;
+ while (i >= 0) and not(aSynEdit.Markup[i] is TSynEditMarkupFoldColors) do
+ dec(i);
+ if i >= 0 then begin
+ SetMarkupColor(ahaOutlineColor1, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color1);
+ SetMarkupColor(ahaOutlineColor2, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color2);
+ SetMarkupColor(ahaOutlineColor3, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color3);
+ SetMarkupColor(ahaOutlineColor4, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color4);
+ SetMarkupColor(ahaOutlineColor5, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color5);
+ SetMarkupColor(ahaOutlineColor6, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color6);
+ SetMarkupColor(ahaOutlineColor7, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color7);
+ SetMarkupColor(ahaOutlineColor8, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color8);
+ SetMarkupColor(ahaOutlineColor9, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color9);
+ SetMarkupColor(ahaOutlineColor10, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color10);
+ end;
finally
ASynEdit.EndUpdate;
end;
@@ -6825,20 +6873,18 @@
i, l: Integer;
begin
Result := length(s1) - length(s2);
- if Result <> 0 then
- exit;
i := 1;
if Result < 0 then
l := length(s1)
else
l := length(s2);
- while i < l do begin
+ while i <= l do begin
Result := ord(s1[i]) - ord(s2[i]);
if Result <> 0 then
exit;
inc(i);
end;
- Result := 0;
+ Result := length(s1) - length(s2);
end;
initialization
Index: ide/frames/editor_color_options.pas
===================================================================
--- ide/frames/editor_color_options.pas (revision 57125)
+++ ide/frames/editor_color_options.pas (working copy)
@@ -276,6 +276,19 @@
exit;
end;
+ // Special draw oultine color
+ if Attri.Group = agnOutlineColors then begin
+ c := Attri.FrameColor;
+ if c <> clNone then begin
+ TheTree.Canvas.Pen.Color := c;
+ TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Top+2);
+ TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Bottom-2);
+ TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Top+2);
+ TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Bottom-2);
+ end;
+ exit;
+ end;
+
// Draw preview Frame
TheTree.Canvas.Pen.Color := Attri.FrameColor;
if (hafFrameColor in Attri.Features) and (AttriIdx <> ord(ahaCodeFoldingTree)) and
Index: ide/lazarusidestrconsts.pas
===================================================================
--- ide/lazarusidestrconsts.pas (revision 57125)
+++ ide/lazarusidestrconsts.pas (working copy)
@@ -2104,6 +2104,16 @@
dlgAddHiAttrDefaultWindow = 'Default Text / Window';
dlgAddHiAttrWindowBorder = 'Window border';
dlgAddHiAttrHighlightPrefix = 'Highlight prefix';
+ dlgAddHiAttrOutlineColor1 = 'Color 1';
+ dlgAddHiAttrOutlineColor2 = 'Color 2';
+ dlgAddHiAttrOutlineColor3 = 'Color 3';
+ dlgAddHiAttrOutlineColor4 = 'Color 4';
+ dlgAddHiAttrOutlineColor5 = 'Color 5';
+ dlgAddHiAttrOutlineColor6 = 'Color 6';
+ dlgAddHiAttrOutlineColor7 = 'Color 7';
+ dlgAddHiAttrOutlineColor8 = 'Color 8';
+ dlgAddHiAttrOutlineColor9 = 'Color 9';
+ dlgAddHiAttrOutlineColor10 = 'Color 10';
dlgAddHiSpecialVisibleChars = 'Visualized Special Chars';
dlgTopInfoHint = 'Current Class/Proc Hint';
dlgIfDefBlockInactive = 'Inactive $IFDEF code';
@@ -2120,6 +2130,7 @@
dlgAddHiAttrGroupSyncroEdit = 'Syncron Edit';
dlgAddHiAttrGroupTemplateEdit = 'Template Edit';
dlgAddHiAttrGroupIfDef = 'IfDef';
+ dlgAddHiAttrGroupOutlineColors = 'Outline Colors';
dlgEditAccessCaptionLockedInView = 'Locked, if text in view';
dlgEditAccessCaptionUnLockedInSoftView = 'Unlocked, if text in centered view';
Index: ide/sourceeditprocs.pas
===================================================================
--- ide/sourceeditprocs.pas (revision 57125)
+++ ide/sourceeditprocs.pas (working copy)
@@ -154,8 +154,8 @@
BGGreen: Integer;
BGBlue: Integer;
TokenStart: Integer;
- BackgroundColor: TColorRef;
- ForegroundColor: TColorRef;
+ BackgroundColor: TColor;
+ ForegroundColor: TColor;
AllowFontColor: Boolean;
procedure SetFontColor(NewColor: TColor);
@@ -193,7 +193,7 @@
RedDiff:=Abs(FGRed-BGRed);
GreenDiff:=Abs(FGGreen-BGGreen);
BlueDiff:=Abs(FGBlue -BGBlue);
- if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<30000 then
+ if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<20000 then
begin
NewColor:=InvertColor(NewColor);
{IncreaseDiff(FGRed,BGRed);
Index: ide/sourcemarks.pas
===================================================================
--- ide/sourcemarks.pas (revision 57125)
+++ ide/sourcemarks.pas (working copy)
@@ -64,12 +64,13 @@
ahaTopInfoHint,
ahaIfDefBlockInactive, ahaIfDefBlockActive, ahaIfDefBlockTmpActive,
ahaIfDefNodeInactive, ahaIfDefNodeActive, ahaIfDefNodeTmpActive,
- ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight,
+ ahaOutlineColor1, ahaOutlineColor2, ahaOutlineColor3, ahaOutlineColor4, ahaOutlineColor5, ahaOutlineColor6, ahaOutlineColor7, ahaOutlineColor8, ahaOutlineColor9, ahaOutlineColor10
);
TAhaGroupName = (
agnDefault, agnLanguage, agnText, agnLine, agnGutter, agnTemplateMode, agnSyncronMode,
- agnIfDef, agnIdentComplWindow
+ agnIfDef, agnIdentComplWindow, agnOutlineColors
);
TSourceEditorBase = class;
|
|
|
Here is a patch for no.1 |
|
|
I applied patch, so some notes and questions. 1) After apply, all outlines become red. By default all checkboxes (Text-mark) are unchecked. Shouldn't be the default the same as it is now? 2) Items are sorted alphabetically, Color1, Color10, Color2, ... It would be nice to have Color 10 as the last. But Color 0-9 will not work too. Anyway, thanks, it works. |
|
|
>2) Items are sorted alphabetically, Color1, Color10, Color2, ... It would be nice to have Color 10 as the last. But Color 0-9 will not work too. Sorry, forgot to fix a bug. I'll update the patch. >1) After apply, all outlines become red. By default all checkboxes (Text-mark) are unchecked. Shouldn't be the default the same as it is now? At the moment you have to set the colors once. But this will not work due to the bug i missed to fix. Try it and you'll see. |
|
|
Strange: The bugfix is already in the patch and the names with one digit contain an additional space in front of it. See patch: =================================================================== --- ide/lazarusidestrconsts.pas (revision 57125) +++ ide/lazarusidestrconsts.pas (working copy) @@ -2104,6 +2104,16 @@ dlgAddHiAttrDefaultWindow = 'Default Text / Window'; dlgAddHiAttrWindowBorder = 'Window border'; dlgAddHiAttrHighlightPrefix = 'Highlight prefix'; + dlgAddHiAttrOutlineColor1 = 'Color 1'; + dlgAddHiAttrOutlineColor2 = 'Color 2'; + dlgAddHiAttrOutlineColor3 = 'Color 3'; + dlgAddHiAttrOutlineColor4 = 'Color 4'; + dlgAddHiAttrOutlineColor5 = 'Color 5'; + dlgAddHiAttrOutlineColor6 = 'Color 6'; + dlgAddHiAttrOutlineColor7 = 'Color 7'; + dlgAddHiAttrOutlineColor8 = 'Color 8'; + dlgAddHiAttrOutlineColor9 = 'Color 9'; + dlgAddHiAttrOutlineColor10 = 'Color 10'; dlgAddHiSpecialVisibleChars = 'Visualized Special Chars'; dlgTopInfoHint = 'Current Class/Proc Hint'; dlgIfDefBlockInactive = 'Inactive $IFDEF code'; Maybe the sorting routine still has a bug, i can't see atm. You can try to delete the function DoCompareText from ide/editoroptions.pp:TQuickStringlist |
|
|
Sorry, can't reproduce this here. Patch is working fine on a plain trunk version here. What fpc version are you using? I used trunk. |
|
|
I use 3.0.4. I'll try trunk too. |
|
|
Even with 3.1.1 is sorted wrongly (1, 10, 2, 3...). But double spaces are there. |
|
|
Which OS and bitness are you using? |
|
|
color_options_for_outline_coloring_V2.patch (18,718 bytes)
Index: components/synedit/syneditmarkupfoldcoloring.pas
===================================================================
--- components/synedit/syneditmarkupfoldcoloring.pas (revision 57141)
+++ components/synedit/syneditmarkupfoldcoloring.pas (working copy)
@@ -43,7 +43,7 @@
unit SynEditMarkupFoldColoring;
{$mode objfpc}{$H+}
-{ $define SynEditMarkupFoldColoringDebug}
+{off $define SynEditMarkupFoldColoringDebug}
interface
@@ -71,10 +71,21 @@
TSynEditMarkupFoldColors = class(TSynEditMarkup)
private
+ fUpdateColors: Boolean;
function GetFirstCharacterColumn(index: Integer): Byte;
procedure TextBufferChanged(Sender: TObject);
private
FHighlighter: TSynCustomFoldHighlighter;
+ FColor1: TSynSelectedColor;
+ FColor2: TSynSelectedColor;
+ FColor3: TSynSelectedColor;
+ FColor4: TSynSelectedColor;
+ FColor5: TSynSelectedColor;
+ FColor6: TSynSelectedColor;
+ FColor7: TSynSelectedColor;
+ FColor8: TSynSelectedColor;
+ FColor9: TSynSelectedColor;
+ FColor10: TSynSelectedColor;
FNestList: TLazSynEditNestedFoldsList;
// cache
@@ -88,7 +99,7 @@
FDefaultGroup: integer;
FFoldColorInfos: TMarkupFoldColorInfos;
- Colors : array of TColor;
+ FColors : array of TColor;
FPreparedRow: integer;
FLastNode: TSynFoldNodeInfo;
FLastEnabled: Boolean;
@@ -100,6 +111,7 @@
procedure SetFoldColorInfosCount(pNewCount: Integer);
procedure InitCache;
procedure ClearCache;
+ procedure UpdateColors;
property FirstCharacterColumn[index: Integer]: Byte read GetFirstCharacterColumn;
protected
// Notifications about Changes to the text
@@ -108,6 +120,7 @@
procedure LinesChanged(Sender: TSynEditStrings; aIndex, aCount: Integer);
procedure HighlightChanged(Sender: TSynEditStrings; aIndex, aCount: Integer);
procedure DoEnabledChanged(Sender: TObject); override;
+ procedure ColorChanged(AMarkup: TObject);
public
constructor Create(ASynEdit : TSynEditBase);
destructor Destroy; override;
@@ -122,6 +135,16 @@
procedure PrepareMarkupForRow(aRow : Integer); override;
property DefaultGroup : integer read FDefaultGroup write SetDefaultGroup;
+ property Color1: TSynSelectedColor read FColor1;
+ property Color2: TSynSelectedColor read FColor2;
+ property Color3: TSynSelectedColor read FColor3;
+ property Color4: TSynSelectedColor read FColor4;
+ property Color5: TSynSelectedColor read FColor5;
+ property Color6: TSynSelectedColor read FColor6;
+ property Color7: TSynSelectedColor read FColor7;
+ property Color8: TSynSelectedColor read FColor8;
+ property Color9: TSynSelectedColor read FColor9;
+ property Color10: TSynSelectedColor read FColor10;
end;
implementation
@@ -169,6 +192,27 @@
FNestList.FoldFlags := [sfbIncludeDisabled];
FNestList.IncludeOpeningOnLine := True;
+ FColor1 := TSynSelectedColor.Create;
+ FColor1.OnChange := @ColorChanged;
+ FColor2 := TSynSelectedColor.Create;
+ FColor2.OnChange := @ColorChanged;
+ FColor3 := TSynSelectedColor.Create;
+ FColor3.OnChange := @ColorChanged;
+ FColor4 := TSynSelectedColor.Create;
+ FColor4.OnChange := @ColorChanged;
+ FColor5 := TSynSelectedColor.Create;
+ FColor5.OnChange := @ColorChanged;
+ FColor6 := TSynSelectedColor.Create;
+ FColor6.OnChange := @ColorChanged;
+ FColor7 := TSynSelectedColor.Create;
+ FColor7.OnChange := @ColorChanged;
+ FColor8 := TSynSelectedColor.Create;
+ FColor8.OnChange := @ColorChanged;
+ FColor9 := TSynSelectedColor.Create;
+ FColor9.OnChange := @ColorChanged;
+ FColor10 := TSynSelectedColor.Create;
+ FColor10.OnChange := @ColorChanged;
+
MarkupInfo.Foreground := clGreen;
MarkupInfo.Background := clNone;
MarkupInfo.Style := [];
@@ -175,17 +219,32 @@
MarkupInfo.StyleMask := [];
MarkupInfo.FrameEdges:= sfeLeft;
- SetLength(Colors, 6);
- Colors[0] := clRed;
- Colors[1] := $000098F7; //orange
- Colors[2] := $0022CC40; //green
- Colors[3] := $00CCCC00; //cyan
- Colors[4] := $00FF682A; //blue
- Colors[5] := $00CF00C4; //purple
+ SetLength(FColors, 6);
+ FColor1.FrameColor := clRed;
+ FColor2.FrameColor := $000098F7; //orange
+ FColor3.FrameColor := $0022CC40; //green
+ FColor4.FrameColor := $00CCCC00; //cyan
+ FColor5.FrameColor := $00FF682A; //blue
+ FColor6.FrameColor := $00CF00C4; //purple
+ FColor7.FrameColor := clNone;
+ FColor8.FrameColor := clNone;
+ FColor9.FrameColor := clNone;
+ FColor10.FrameColor := clNone;
+
end;
destructor TSynEditMarkupFoldColors.Destroy;
begin
+ FColor1.Free;
+ FColor2.Free;
+ FColor3.Free;
+ FColor4.Free;
+ FColor5.Free;
+ FColor6.Free;
+ FColor7.Free;
+ FColor8.Free;
+ FColor9.Free;
+ FColor10.Free;
if Assigned(Lines) then begin
Lines.RemoveChangeHandler(senrLineCount, @LinesChanged);
Lines.RemoveChangeHandler(senrHighlightChanged, @HighlightChanged);
@@ -242,12 +301,12 @@
x2both := max(x2both, x2);
MarkupInfo.SetFrameBoundsLog(x, x2both);
if Border then begin
- MarkupInfo.FrameColor:= Colors[ColorIdx];
+ MarkupInfo.FrameColor:= FColors[ColorIdx];
MarkupInfo.FrameEdges:= sfeLeft;
end else begin
MarkupInfo.FrameColor:= clNone;
MarkupInfo.FrameEdges:= sfeNone;
- MarkupInfo.Foreground := Colors[ColorIdx];
+ MarkupInfo.Foreground := FColors[ColorIdx];
end;
end;
end;
@@ -343,7 +402,7 @@
if not Border and (sfaOutlineNoColor in ANode.FoldAction) then
Ignore := True;
Level := lvl;
- ColorIdx := Max(0, lvl) mod (length(Colors));
+ ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -354,6 +413,7 @@
begin
y := ToIdx(aRow);
+ FNestList.Clear;
FNestList.Line := y;
NestCount := FNestList.Count;
FHighlighter.CurrentLines := Lines;
@@ -391,7 +451,7 @@
if sfaOutlineKeepLevel in FFoldColorInfos[FFoldColorInfosCount - 2].SrcNode.FoldAction then begin
lvl := FFoldColorInfos[FFoldColorInfosCount - 2].Level;
FFoldColorInfos[FFoldColorInfosCount - 1].Level := lvl;
- FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(Colors));
+ FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -451,7 +511,7 @@
X2 := ANode.LogXEnd + 1;
Level := lvl;
if not (sfaOutlineNocolor in ANode.FoldAction) then
- ColorIdx := Max(0, lvl) mod (length(Colors))
+ ColorIdx := Max(0, lvl) mod (length(FColors))
else
ColorIdx := -1;
end;
@@ -510,7 +570,7 @@
or (sfaOutlineKeepLevel in FFoldColorInfos[FFoldColorInfosCount - 2].SrcNode.FoldAction) then begin
lvl := FFoldColorInfos[FFoldColorInfosCount - 2].Level;
FFoldColorInfos[FFoldColorInfosCount - 1].Level := lvl;
- FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(Colors));
+ FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -577,6 +637,12 @@
//DebugLn('PrepareMarkupForRow %d', [aRow]);
{$ENDIF}
if not Assigned(FHighlighter) then exit;
+
+ if fUpdateColors then begin
+ UpdateColors;
+ fUpdateColors := False;
+ end;
+
FPreparedRow := aRow;
FFoldColorInfosCount := 0; //reset needed to prevent using of invalid area
@@ -664,6 +730,37 @@
end;
end;
+procedure TSynEditMarkupFoldColors.UpdateColors;
+var
+ c: Integer;
+
+ procedure AddColor(pColor: TSynSelectedColor);
+ begin
+ if pColor.FrameColor = clNone then exit;
+ fColors[c] := pColor.FrameColor;
+ inc(c);
+ end;
+
+begin
+ SetLength(fColors, 10);
+ c := 0;
+ AddColor(FColor1);
+ AddColor(FColor2);
+ AddColor(FColor3);
+ AddColor(FColor4);
+ AddColor(FColor5);
+ AddColor(FColor6);
+ AddColor(FColor7);
+ AddColor(FColor8);
+ AddColor(FColor9);
+ AddColor(FColor10);
+ if c = 0 then begin
+ fColors[c] := $FF;
+ inc(c);
+ end;
+ SetLength(fColors, c);
+end;
+
procedure TSynEditMarkupFoldColors.DoTextChanged(StartLine, EndLine,
ACountDiff: Integer);
@@ -952,6 +1049,11 @@
InvalidateSynLines(1, Lines.Count);
end;
+procedure TSynEditMarkupFoldColors.ColorChanged(AMarkup: TObject);
+begin
+ fUpdateColors := True;
+end;
+
end.
Index: ide/editoroptions.pp
===================================================================
--- ide/editoroptions.pp (revision 57141)
+++ ide/editoroptions.pp (working copy)
@@ -121,7 +121,8 @@
'', // ahaTopInfoHint
'', '', '', // ahaIfDefBlockInactive, ahaIfDefBlockActive, ahaIfDefBlockTmpActive
'', '', '', // ahaIfDefNodeInactive, ahaIfDefNodeActive, ahaIfDefNodeTmpActive
- '', '', '', '' // ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ '', '', '', '', // ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ '', '', '', '', '', '', '', '', '', '' // ahaOutlineColor01..10
);
ahaGroupMap: array[TAdditionalHilightAttribute] of TAhaGroupName = (
@@ -167,7 +168,17 @@
{ ahaIdentComplWindow } agnIdentComplWindow,
{ ahaIdentComplWindowBorder } agnIdentComplWindow,
{ ahaIdentComplWindowSelection } agnIdentComplWindow,
- { ahaIdentComplWindowHighlight } agnIdentComplWindow
+ { ahaIdentComplWindowHighlight } agnIdentComplWindow,
+ { ahaOutlineColor01 } agnOutlineColors,
+ { ahaOutlineColor02 } agnOutlineColors,
+ { ahaOutlineColor03 } agnOutlineColors,
+ { ahaOutlineColor04 } agnOutlineColors,
+ { ahaOutlineColor05 } agnOutlineColors,
+ { ahaOutlineColor06 } agnOutlineColors,
+ { ahaOutlineColor07 } agnOutlineColors,
+ { ahaOutlineColor08 } agnOutlineColors,
+ { ahaOutlineColor09 } agnOutlineColors,
+ { ahaOutlineColor10 } agnOutlineColors
);
ahaSupportedFeatures: array[TAdditionalHilightAttribute] of TColorSchemeAttributeFeatures =
@@ -214,7 +225,17 @@
{ ahaIdentComplWindow } [hafBackColor, hafForeColor],
{ ahaIdentComplWindowBorder } [hafForeColor],
{ ahaIdentComplWindowSelection } [hafBackColor, hafForeColor],
- { ahaIdentComplWindowHighlight } [hafForeColor]
+ { ahaIdentComplWindowHighlight } [hafForeColor],
+ { ahaFoldColor01 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor02 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor03 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor04 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor05 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor06 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor07 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor08 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor09 } [hafFrameColor, hafFrameStyle],
+ { ahaFoldColor10 } [hafFrameColor, hafFrameStyle]
);
@@ -2478,6 +2499,18 @@
AdditionalHighlightAttributes[ahaIdentComplWindowHighlight] := dlgAddHiAttrHighlightPrefix;
AdditionalHighlightGroupNames[agnIdentComplWindow] := dlgIdentifierCompletion;
+ AdditionalHighlightAttributes[ahaOutlineColor01] := dlgAddHiAttrOutlineColor1;
+ AdditionalHighlightAttributes[ahaOutlineColor02] := dlgAddHiAttrOutlineColor2;
+ AdditionalHighlightAttributes[ahaOutlineColor03] := dlgAddHiAttrOutlineColor3;
+ AdditionalHighlightAttributes[ahaOutlineColor04] := dlgAddHiAttrOutlineColor4;
+ AdditionalHighlightAttributes[ahaOutlineColor05] := dlgAddHiAttrOutlineColor5;
+ AdditionalHighlightAttributes[ahaOutlineColor06] := dlgAddHiAttrOutlineColor6;
+ AdditionalHighlightAttributes[ahaOutlineColor07] := dlgAddHiAttrOutlineColor7;
+ AdditionalHighlightAttributes[ahaOutlineColor08] := dlgAddHiAttrOutlineColor8;
+ AdditionalHighlightAttributes[ahaOutlineColor09] := dlgAddHiAttrOutlineColor9;
+ AdditionalHighlightAttributes[ahaOutlineColor10] := dlgAddHiAttrOutlineColor10;
+ AdditionalHighlightGroupNames[agnOutlineColors] := dlgAddHiAttrGroupOutlineColors;
+
AdditionalHighlightGroupNames[agnDefault] := dlgAddHiAttrGroupDefault;
AdditionalHighlightGroupNames[agnText] := dlgAddHiAttrGroupText;
AdditionalHighlightGroupNames[agnLine] := dlgAddHiAttrGroupLine;
@@ -6541,6 +6574,21 @@
SetMarkupColor(ahaSyncroEditSync, TSynPluginSyncroEdit(aSynEdit.Plugin[i]).MarkupInfoSync);
SetMarkupColor(ahaSyncroEditArea, TSynPluginSyncroEdit(aSynEdit.Plugin[i]).MarkupInfoArea);
end;
+ i := aSynEdit.MarkupCount - 1;
+ while (i >= 0) and not(aSynEdit.Markup[i] is TSynEditMarkupFoldColors) do
+ dec(i);
+ if i >= 0 then begin
+ SetMarkupColor(ahaOutlineColor01, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color1);
+ SetMarkupColor(ahaOutlineColor02, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color2);
+ SetMarkupColor(ahaOutlineColor03, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color3);
+ SetMarkupColor(ahaOutlineColor04, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color4);
+ SetMarkupColor(ahaOutlineColor05, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color5);
+ SetMarkupColor(ahaOutlineColor06, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color6);
+ SetMarkupColor(ahaOutlineColor07, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color7);
+ SetMarkupColor(ahaOutlineColor08, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color8);
+ SetMarkupColor(ahaOutlineColor09, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color9);
+ SetMarkupColor(ahaOutlineColor10, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color10);
+ end;
finally
ASynEdit.EndUpdate;
end;
@@ -6825,20 +6873,18 @@
i, l: Integer;
begin
Result := length(s1) - length(s2);
- if Result <> 0 then
- exit;
i := 1;
if Result < 0 then
l := length(s1)
else
l := length(s2);
- while i < l do begin
+ while i <= l do begin
Result := ord(s1[i]) - ord(s2[i]);
if Result <> 0 then
exit;
inc(i);
end;
- Result := 0;
+ Result := length(s1) - length(s2);
end;
initialization
Index: ide/frames/editor_color_options.pas
===================================================================
--- ide/frames/editor_color_options.pas (revision 57141)
+++ ide/frames/editor_color_options.pas (working copy)
@@ -276,6 +276,19 @@
exit;
end;
+ // Special draw oultine color
+ if Attri.Group = agnOutlineColors then begin
+ c := Attri.FrameColor;
+ if c <> clNone then begin
+ TheTree.Canvas.Pen.Color := c;
+ TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Top+2);
+ TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Bottom-2);
+ TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Top+2);
+ TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Bottom-2);
+ end;
+ exit;
+ end;
+
// Draw preview Frame
TheTree.Canvas.Pen.Color := Attri.FrameColor;
if (hafFrameColor in Attri.Features) and (AttriIdx <> ord(ahaCodeFoldingTree)) and
Index: ide/lazarusidestrconsts.pas
===================================================================
--- ide/lazarusidestrconsts.pas (revision 57141)
+++ ide/lazarusidestrconsts.pas (working copy)
@@ -2104,6 +2104,16 @@
dlgAddHiAttrDefaultWindow = 'Default Text / Window';
dlgAddHiAttrWindowBorder = 'Window border';
dlgAddHiAttrHighlightPrefix = 'Highlight prefix';
+ dlgAddHiAttrOutlineColor1 = 'Color 1';
+ dlgAddHiAttrOutlineColor2 = 'Color 2';
+ dlgAddHiAttrOutlineColor3 = 'Color 3';
+ dlgAddHiAttrOutlineColor4 = 'Color 4';
+ dlgAddHiAttrOutlineColor5 = 'Color 5';
+ dlgAddHiAttrOutlineColor6 = 'Color 6';
+ dlgAddHiAttrOutlineColor7 = 'Color 7';
+ dlgAddHiAttrOutlineColor8 = 'Color 8';
+ dlgAddHiAttrOutlineColor9 = 'Color 9';
+ dlgAddHiAttrOutlineColor10 = 'Color 10';
dlgAddHiSpecialVisibleChars = 'Visualized Special Chars';
dlgTopInfoHint = 'Current Class/Proc Hint';
dlgIfDefBlockInactive = 'Inactive $IFDEF code';
@@ -2120,6 +2130,7 @@
dlgAddHiAttrGroupSyncroEdit = 'Syncron Edit';
dlgAddHiAttrGroupTemplateEdit = 'Template Edit';
dlgAddHiAttrGroupIfDef = 'IfDef';
+ dlgAddHiAttrGroupOutlineColors = 'Outline Colors';
dlgEditAccessCaptionLockedInView = 'Locked, if text in view';
dlgEditAccessCaptionUnLockedInSoftView = 'Unlocked, if text in centered view';
Index: ide/sourceeditprocs.pas
===================================================================
--- ide/sourceeditprocs.pas (revision 57141)
+++ ide/sourceeditprocs.pas (working copy)
@@ -154,8 +154,8 @@
BGGreen: Integer;
BGBlue: Integer;
TokenStart: Integer;
- BackgroundColor: TColorRef;
- ForegroundColor: TColorRef;
+ BackgroundColor: TColor;
+ ForegroundColor: TColor;
AllowFontColor: Boolean;
procedure SetFontColor(NewColor: TColor);
@@ -193,7 +193,7 @@
RedDiff:=Abs(FGRed-BGRed);
GreenDiff:=Abs(FGGreen-BGGreen);
BlueDiff:=Abs(FGBlue -BGBlue);
- if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<30000 then
+ if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<20000 then
begin
NewColor:=InvertColor(NewColor);
{IncreaseDiff(FGRed,BGRed);
Index: ide/sourcemarks.pas
===================================================================
--- ide/sourcemarks.pas (revision 57141)
+++ ide/sourcemarks.pas (working copy)
@@ -64,12 +64,13 @@
ahaTopInfoHint,
ahaIfDefBlockInactive, ahaIfDefBlockActive, ahaIfDefBlockTmpActive,
ahaIfDefNodeInactive, ahaIfDefNodeActive, ahaIfDefNodeTmpActive,
- ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight,
+ ahaOutlineColor01, ahaOutlineColor02, ahaOutlineColor03, ahaOutlineColor04, ahaOutlineColor05, ahaOutlineColor06, ahaOutlineColor07, ahaOutlineColor08, ahaOutlineColor09, ahaOutlineColor10
);
TAhaGroupName = (
agnDefault, agnLanguage, agnText, agnLine, agnGutter, agnTemplateMode, agnSyncronMode,
- agnIfDef, agnIdentComplWindow
+ agnIfDef, agnIdentComplWindow, agnOutlineColors
);
TSourceEditorBase = class;
|
|
|
I suppose you are using an OS other than Windows 10. I prepared a new patch which uses other names for the attributes (TAdditionalHilightAttribute). So they should be added to the treeview in the right order. You have to edit you editoroptions.xml in the config to keep your colors for outlining. Just add a 0 to the single digit colors: ahaOutlineColor01 ahaOutlineColor02 ahaOutlineColor03 ahaOutlineColor04 ahaOutlineColor05 ahaOutlineColor06 ahaOutlineColor07 ahaOutlineColor08 ahaOutlineColor09 ahaOutlineColor10 |
|
|
Linux, 64-bits |
|
|
Okay, then TTreeView behaves differently on Linux concerning sorting of child nodes. The new patch should help then. |
|
|
I applied patch V2 and updated editoroptions.xml but it remained. See picture. There must be something wrong with alphasorting in treeview. |
|
|
|
|
|
Yes, i think so, too! Can you make a new bug report with simple sample project for that issue? |
|
|
I did: https://bugs.freepascal.org/view.php?id=33064 |
|
|
Thanks! |
|
|
color_options_for_outline_coloring_V3.patch (21,044 bytes)
Index: components/synedit/syneditmarkupfoldcoloring.pas
===================================================================
--- components/synedit/syneditmarkupfoldcoloring.pas (revision 57176)
+++ components/synedit/syneditmarkupfoldcoloring.pas (working copy)
@@ -43,7 +43,7 @@
unit SynEditMarkupFoldColoring;
{$mode objfpc}{$H+}
-{ $define SynEditMarkupFoldColoringDebug}
+{off $define SynEditMarkupFoldColoringDebug}
interface
@@ -71,10 +71,12 @@
TSynEditMarkupFoldColors = class(TSynEditMarkup)
private
+ fUpdateColors: Boolean;
function GetFirstCharacterColumn(index: Integer): Byte;
procedure TextBufferChanged(Sender: TObject);
private
FHighlighter: TSynCustomFoldHighlighter;
+ FMarkupColors: array of TSynSelectedColor;
FNestList: TLazSynEditNestedFoldsList;
// cache
@@ -88,7 +90,7 @@
FDefaultGroup: integer;
FFoldColorInfos: TMarkupFoldColorInfos;
- Colors : array of TColor;
+ FColors : array of TColor;
FPreparedRow: integer;
FLastNode: TSynFoldNodeInfo;
FLastEnabled: Boolean;
@@ -95,11 +97,13 @@
procedure DoMarkupParentFoldAtRow(aRow: Integer);
procedure DoMarkupParentCloseFoldAtRow(aRow: Integer);
+ function GetColor(pIndex: Integer): TSynSelectedColor;
procedure SetDefaultGroup(AValue: integer);
procedure SetCacheCount(pNewCount: Integer);
procedure SetFoldColorInfosCount(pNewCount: Integer);
procedure InitCache;
procedure ClearCache;
+ procedure UpdateColors;
property FirstCharacterColumn[index: Integer]: Byte read GetFirstCharacterColumn;
protected
// Notifications about Changes to the text
@@ -108,6 +112,7 @@
procedure LinesChanged(Sender: TSynEditStrings; aIndex, aCount: Integer);
procedure HighlightChanged(Sender: TSynEditStrings; aIndex, aCount: Integer);
procedure DoEnabledChanged(Sender: TObject); override;
+ procedure ColorChanged(AMarkup: TObject);
public
constructor Create(ASynEdit : TSynEditBase);
destructor Destroy; override;
@@ -122,6 +127,7 @@
procedure PrepareMarkupForRow(aRow : Integer); override;
property DefaultGroup : integer read FDefaultGroup write SetDefaultGroup;
+ property Color[pIndex: Integer]: TSynSelectedColor read GetColor;
end;
implementation
@@ -147,6 +153,8 @@
{ TSynEditMarkupFoldColors }
constructor TSynEditMarkupFoldColors.Create(ASynEdit: TSynEditBase);
+var
+ i: Integer;
begin
inherited Create(ASynEdit);
@@ -169,6 +177,12 @@
FNestList.FoldFlags := [sfbIncludeDisabled];
FNestList.IncludeOpeningOnLine := True;
+ SetLength(FMarkupColors, 10);
+ for i := 0 to length(FMarkupColors) - 1 do begin
+ FMarkupColors[i] := TSynSelectedColor.Create;
+ FMarkupColors[i].OnChange := @ColorChanged;
+ end;
+
MarkupInfo.Foreground := clGreen;
MarkupInfo.Background := clNone;
MarkupInfo.Style := [];
@@ -175,17 +189,26 @@
MarkupInfo.StyleMask := [];
MarkupInfo.FrameEdges:= sfeLeft;
- SetLength(Colors, 6);
- Colors[0] := clRed;
- Colors[1] := $000098F7; //orange
- Colors[2] := $0022CC40; //green
- Colors[3] := $00CCCC00; //cyan
- Colors[4] := $00FF682A; //blue
- Colors[5] := $00CF00C4; //purple
+ SetLength(FColors, 6);
+ FMarkupColors[0].Foreground := clRed;
+ FMarkupColors[1].Foreground := $000098F7; //orange
+ FMarkupColors[2].Foreground := $0022CC40; //green
+ FMarkupColors[3].Foreground := $00CCCC00; //cyan
+ FMarkupColors[4].Foreground := $00FF682A; //blue
+ FMarkupColors[5].Foreground := $00CF00C4; //purple
+ FMarkupColors[6].Foreground := clNone;
+ FMarkupColors[7].Foreground := clNone;
+ FMarkupColors[8].Foreground := clNone;
+ FMarkupColors[9].Foreground := clNone;
+
end;
destructor TSynEditMarkupFoldColors.Destroy;
+var
+ i: Integer;
begin
+ for i := 0 to Length(FMarkupColors) - 1 do
+ FMarkupColors[i].Free;
if Assigned(Lines) then begin
Lines.RemoveChangeHandler(senrLineCount, @LinesChanged);
Lines.RemoveChangeHandler(senrHighlightChanged, @HighlightChanged);
@@ -242,12 +265,12 @@
x2both := max(x2both, x2);
MarkupInfo.SetFrameBoundsLog(x, x2both);
if Border then begin
- MarkupInfo.FrameColor:= Colors[ColorIdx];
+ MarkupInfo.FrameColor:= FColors[ColorIdx];
MarkupInfo.FrameEdges:= sfeLeft;
end else begin
MarkupInfo.FrameColor:= clNone;
MarkupInfo.FrameEdges:= sfeNone;
- MarkupInfo.Foreground := Colors[ColorIdx];
+ MarkupInfo.Foreground := FColors[ColorIdx];
end;
end;
end;
@@ -343,7 +366,7 @@
if not Border and (sfaOutlineNoColor in ANode.FoldAction) then
Ignore := True;
Level := lvl;
- ColorIdx := Max(0, lvl) mod (length(Colors));
+ ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -354,6 +377,7 @@
begin
y := ToIdx(aRow);
+ FNestList.Clear;
FNestList.Line := y;
NestCount := FNestList.Count;
FHighlighter.CurrentLines := Lines;
@@ -391,7 +415,7 @@
if sfaOutlineKeepLevel in FFoldColorInfos[FFoldColorInfosCount - 2].SrcNode.FoldAction then begin
lvl := FFoldColorInfos[FFoldColorInfosCount - 2].Level;
FFoldColorInfos[FFoldColorInfosCount - 1].Level := lvl;
- FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(Colors));
+ FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -451,7 +475,7 @@
X2 := ANode.LogXEnd + 1;
Level := lvl;
if not (sfaOutlineNocolor in ANode.FoldAction) then
- ColorIdx := Max(0, lvl) mod (length(Colors))
+ ColorIdx := Max(0, lvl) mod (length(FColors))
else
ColorIdx := -1;
end;
@@ -510,7 +534,7 @@
or (sfaOutlineKeepLevel in FFoldColorInfos[FFoldColorInfosCount - 2].SrcNode.FoldAction) then begin
lvl := FFoldColorInfos[FFoldColorInfosCount - 2].Level;
FFoldColorInfos[FFoldColorInfosCount - 1].Level := lvl;
- FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(Colors));
+ FFoldColorInfos[FFoldColorInfosCount - 1].ColorIdx := Max(0, lvl) mod (length(FColors));
end;
end;
@@ -568,6 +592,12 @@
end;
end;
+function TSynEditMarkupFoldColors.GetColor(pIndex: Integer): TSynSelectedColor;
+begin
+ Assert((pIndex >= 0) and (pIndex < Length(FMarkupColors)), 'Index out of range');
+ Result := FMarkupColors[pIndex];
+end;
+
procedure TSynEditMarkupFoldColors.PrepareMarkupForRow(aRow: Integer);
var
i, LastX, j: Integer;
@@ -577,6 +607,12 @@
//DebugLn('PrepareMarkupForRow %d', [aRow]);
{$ENDIF}
if not Assigned(FHighlighter) then exit;
+
+ if fUpdateColors then begin
+ UpdateColors;
+ fUpdateColors := False;
+ end;
+
FPreparedRow := aRow;
FFoldColorInfosCount := 0; //reset needed to prevent using of invalid area
@@ -664,6 +700,29 @@
end;
end;
+procedure TSynEditMarkupFoldColors.UpdateColors;
+var
+ c, i: Integer;
+
+ procedure AddColor(pColor: TSynSelectedColor);
+ begin
+ if pColor.Foreground = clNone then exit;
+ fColors[c] := pColor.Foreground;
+ inc(c);
+ end;
+
+begin
+ SetLength(fColors, Length(FMarkupColors));
+ c := 0;
+ for i := 0 to length(FMarkupColors) -1 do
+ AddColor(FMarkupColors[i]);
+ if c = 0 then begin
+ fColors[c] := $0000FF; // default red
+ inc(c);
+ end;
+ SetLength(fColors, c);
+end;
+
procedure TSynEditMarkupFoldColors.DoTextChanged(StartLine, EndLine,
ACountDiff: Integer);
@@ -952,6 +1011,11 @@
InvalidateSynLines(1, Lines.Count);
end;
+procedure TSynEditMarkupFoldColors.ColorChanged(AMarkup: TObject);
+begin
+ fUpdateColors := True;
+end;
+
end.
Index: ide/ColorDefault.xml
===================================================================
--- ide/ColorDefault.xml (revision 57176)
+++ ide/ColorDefault.xml (working copy)
@@ -44,6 +44,12 @@
<ahaGutter Background="clBtnFace"/>
<ahaRightMargin Foreground="clSilver"/>
<ahaIdentComplWindowHighlight Foreground="187"/>
+ <ahaOutlineLevel1Color Foreground="clRed"/>
+ <ahaOutlineLevel2Color Foreground="39159"/>
+ <ahaOutlineLevel3Color Foreground="2280512"/>
+ <ahaOutlineLevel4Color Foreground="13421568"/>
+ <ahaOutlineLevel5Color Foreground="16738346"/>
+ <ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeDefault>
</Globals>
<LangObjectPascal Version="6">
Index: ide/ColorDelphi.xml
===================================================================
--- ide/ColorDelphi.xml (revision 57176)
+++ ide/ColorDelphi.xml (working copy)
@@ -44,6 +44,12 @@
<ahaGutter Background="clBtnFace"/>
<ahaRightMargin Foreground="clSilver"/>
<ahaIdentComplWindowHighlight Foreground="191"/>
+ <ahaOutlineLevel1Color Foreground="clRed"/>
+ <ahaOutlineLevel2Color Foreground="39159"/>
+ <ahaOutlineLevel3Color Foreground="2280512"/>
+ <ahaOutlineLevel4Color Foreground="13421568"/>
+ <ahaOutlineLevel5Color Foreground="16738346"/>
+ <ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeDelphi>
</Globals>
<LangObjectPascal Version="6">
Index: ide/ColorOcean.xml
===================================================================
--- ide/ColorOcean.xml (revision 57176)
+++ ide/ColorOcean.xml (working copy)
@@ -45,6 +45,12 @@
<ahaRightMargin Foreground="clSilver"/>
<ahaIdentComplWindowHighlight Foreground="clAqua"/>
<ahaIdentComplWindow Background="8388649"/>
+ <ahaOutlineLevel1Color Foreground="clRed"/>
+ <ahaOutlineLevel2Color Foreground="39159"/>
+ <ahaOutlineLevel3Color Foreground="2280512"/>
+ <ahaOutlineLevel4Color Foreground="13421568"/>
+ <ahaOutlineLevel5Color Foreground="16738346"/>
+ <ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeOcean>
</Globals>
<LangObjectPascal Version="6">
Index: ide/ColorPascalClassic.xml
===================================================================
--- ide/ColorPascalClassic.xml (revision 57176)
+++ ide/ColorPascalClassic.xml (working copy)
@@ -44,6 +44,12 @@
<ahaGutter Background="clNavy"/>
<ahaIdentComplWindowHighlight Foreground="clAqua"/>
<ahaIdentComplWindow Background="10420276"/>
+ <ahaOutlineLevel1Color Foreground="clRed"/>
+ <ahaOutlineLevel2Color Foreground="39159"/>
+ <ahaOutlineLevel3Color Foreground="2280512"/>
+ <ahaOutlineLevel4Color Foreground="13421568"/>
+ <ahaOutlineLevel5Color Foreground="16738346"/>
+ <ahaOutlineLevel6Color Foreground="13566148"/>
</SchemePascal_Classic>
</Globals>
<LangObjectPascal Version="6">
Index: ide/ColorTwilight.xml
===================================================================
--- ide/ColorTwilight.xml (revision 57176)
+++ ide/ColorTwilight.xml (working copy)
@@ -46,6 +46,12 @@
<ahaIdentComplWindow Background="3552822"/>
<ahaIdentComplWindowBorder Foreground="7039851"/>
<ahaIdentComplWindowHighlight Foreground="clLime"/>
+ <ahaOutlineLevel1Color Foreground="clRed"/>
+ <ahaOutlineLevel2Color Foreground="39159"/>
+ <ahaOutlineLevel3Color Foreground="2280512"/>
+ <ahaOutlineLevel4Color Foreground="13421568"/>
+ <ahaOutlineLevel5Color Foreground="16738346"/>
+ <ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeTwilight>
</Globals>
<LangObjectPascal Version="6">
Index: ide/editoroptions.pp
===================================================================
--- ide/editoroptions.pp (revision 57176)
+++ ide/editoroptions.pp (working copy)
@@ -121,7 +121,8 @@
'', // ahaTopInfoHint
'', '', '', // ahaIfDefBlockInactive, ahaIfDefBlockActive, ahaIfDefBlockTmpActive
'', '', '', // ahaIfDefNodeInactive, ahaIfDefNodeActive, ahaIfDefNodeTmpActive
- '', '', '', '' // ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ '', '', '', '', // ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ '', '', '', '', '', '', '', '', '', '' // ahaOutlineLevel1Color..ahaOutlineLevel10Color
);
ahaGroupMap: array[TAdditionalHilightAttribute] of TAhaGroupName = (
@@ -167,7 +168,17 @@
{ ahaIdentComplWindow } agnIdentComplWindow,
{ ahaIdentComplWindowBorder } agnIdentComplWindow,
{ ahaIdentComplWindowSelection } agnIdentComplWindow,
- { ahaIdentComplWindowHighlight } agnIdentComplWindow
+ { ahaIdentComplWindowHighlight } agnIdentComplWindow,
+ { ahaOutlineLevel1Color } agnOutlineColors,
+ { ahaOutlineLevel2Color } agnOutlineColors,
+ { ahaOutlineLevel3Color } agnOutlineColors,
+ { ahaOutlineLevel4Color } agnOutlineColors,
+ { ahaOutlineLevel5Color } agnOutlineColors,
+ { ahaOutlineLevel6Color } agnOutlineColors,
+ { ahaOutlineLevel7Color } agnOutlineColors,
+ { ahaOutlineLevel8Color } agnOutlineColors,
+ { ahaOutlineLevel9Color } agnOutlineColors,
+ { ahaOutlineLevel10Color } agnOutlineColors
);
ahaSupportedFeatures: array[TAdditionalHilightAttribute] of TColorSchemeAttributeFeatures =
@@ -214,7 +225,17 @@
{ ahaIdentComplWindow } [hafBackColor, hafForeColor],
{ ahaIdentComplWindowBorder } [hafForeColor],
{ ahaIdentComplWindowSelection } [hafBackColor, hafForeColor],
- { ahaIdentComplWindowHighlight } [hafForeColor]
+ { ahaIdentComplWindowHighlight } [hafForeColor],
+ { ahaFoldLevel1Color } [hafForeColor],
+ { ahaFoldLevel2Color } [hafForeColor],
+ { ahaFoldLevel3Color } [hafForeColor],
+ { ahaFoldLevel4Color } [hafForeColor],
+ { ahaFoldLevel5Color } [hafForeColor],
+ { ahaFoldLevel6Color } [hafForeColor],
+ { ahaFoldLevel7Color } [hafForeColor],
+ { ahaFoldLevel8Color } [hafForeColor],
+ { ahaFoldLevel9Color } [hafForeColor],
+ { ahaFoldLevel10Color } [hafForeColor]
);
@@ -2478,6 +2499,18 @@
AdditionalHighlightAttributes[ahaIdentComplWindowHighlight] := dlgAddHiAttrHighlightPrefix;
AdditionalHighlightGroupNames[agnIdentComplWindow] := dlgIdentifierCompletion;
+ AdditionalHighlightAttributes[ahaOutlineLevel1Color] := dlgAddHiAttrOutlineLevel1Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel2Color] := dlgAddHiAttrOutlineLevel2Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel3Color] := dlgAddHiAttrOutlineLevel3Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel4Color] := dlgAddHiAttrOutlineLevel4Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel5Color] := dlgAddHiAttrOutlineLevel5Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel6Color] := dlgAddHiAttrOutlineLevel6Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel7Color] := dlgAddHiAttrOutlineLevel7Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel8Color] := dlgAddHiAttrOutlineLevel8Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel9Color] := dlgAddHiAttrOutlineLevel9Color;
+ AdditionalHighlightAttributes[ahaOutlineLevel10Color] := dlgAddHiAttrOutlineLevel10Color;
+ AdditionalHighlightGroupNames[agnOutlineColors] := dlgAddHiAttrGroupOutlineColors;
+
AdditionalHighlightGroupNames[agnDefault] := dlgAddHiAttrGroupDefault;
AdditionalHighlightGroupNames[agnText] := dlgAddHiAttrGroupText;
AdditionalHighlightGroupNames[agnLine] := dlgAddHiAttrGroupLine;
@@ -6541,6 +6574,21 @@
SetMarkupColor(ahaSyncroEditSync, TSynPluginSyncroEdit(aSynEdit.Plugin[i]).MarkupInfoSync);
SetMarkupColor(ahaSyncroEditArea, TSynPluginSyncroEdit(aSynEdit.Plugin[i]).MarkupInfoArea);
end;
+ i := aSynEdit.MarkupCount - 1;
+ while (i >= 0) and not(aSynEdit.Markup[i] is TSynEditMarkupFoldColors) do
+ dec(i);
+ if i >= 0 then begin
+ SetMarkupColor(ahaOutlineLevel1Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[0]);
+ SetMarkupColor(ahaOutlineLevel2Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[1]);
+ SetMarkupColor(ahaOutlineLevel3Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[2]);
+ SetMarkupColor(ahaOutlineLevel4Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[3]);
+ SetMarkupColor(ahaOutlineLevel5Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[4]);
+ SetMarkupColor(ahaOutlineLevel6Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[5]);
+ SetMarkupColor(ahaOutlineLevel7Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[6]);
+ SetMarkupColor(ahaOutlineLevel8Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[7]);
+ SetMarkupColor(ahaOutlineLevel9Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[8]);
+ SetMarkupColor(ahaOutlineLevel10Color, TSynEditMarkupFoldColors(aSynEdit.Markup[i]).Color[9]);
+ end;
finally
ASynEdit.EndUpdate;
end;
Index: ide/editoroptions.res
===================================================================
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Index: ide/frames/editor_color_options.pas
===================================================================
--- ide/frames/editor_color_options.pas (revision 57176)
+++ ide/frames/editor_color_options.pas (working copy)
@@ -276,6 +276,19 @@
exit;
end;
+ // Special draw oultine color
+ if Attri.Group = agnOutlineColors then begin
+ c := Attri.Foreground;
+ if c <> clNone then begin
+ TheTree.Canvas.Pen.Color := c;
+ TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Top+2);
+ TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2), NodeRect.Bottom-2);
+ TheTree.Canvas.MoveTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Top+2);
+ TheTree.Canvas.LineTo(NodeRect.Left+(FullAbcWidth div 2)+1, NodeRect.Bottom-2);
+ end;
+ exit;
+ end;
+
// Draw preview Frame
TheTree.Canvas.Pen.Color := Attri.FrameColor;
if (hafFrameColor in Attri.Features) and (AttriIdx <> ord(ahaCodeFoldingTree)) and
Index: ide/lazarusidestrconsts.pas
===================================================================
--- ide/lazarusidestrconsts.pas (revision 57176)
+++ ide/lazarusidestrconsts.pas (working copy)
@@ -2104,6 +2104,16 @@
dlgAddHiAttrDefaultWindow = 'Default Text / Window';
dlgAddHiAttrWindowBorder = 'Window border';
dlgAddHiAttrHighlightPrefix = 'Highlight prefix';
+ dlgAddHiAttrOutlineLevel1Color = 'Level 1';
+ dlgAddHiAttrOutlineLevel2Color = 'Level 2';
+ dlgAddHiAttrOutlineLevel3Color = 'Level 3';
+ dlgAddHiAttrOutlineLevel4Color = 'Level 4';
+ dlgAddHiAttrOutlineLevel5Color = 'Level 5';
+ dlgAddHiAttrOutlineLevel6Color = 'Level 6';
+ dlgAddHiAttrOutlineLevel7Color = 'Level 7';
+ dlgAddHiAttrOutlineLevel8Color = 'Level 8';
+ dlgAddHiAttrOutlineLevel9Color = 'Level 9';
+ dlgAddHiAttrOutlineLevel10Color = 'Level 10';
dlgAddHiSpecialVisibleChars = 'Visualized Special Chars';
dlgTopInfoHint = 'Current Class/Proc Hint';
dlgIfDefBlockInactive = 'Inactive $IFDEF code';
@@ -2120,6 +2130,7 @@
dlgAddHiAttrGroupSyncroEdit = 'Syncron Edit';
dlgAddHiAttrGroupTemplateEdit = 'Template Edit';
dlgAddHiAttrGroupIfDef = 'IfDef';
+ dlgAddHiAttrGroupOutlineColors = 'Outline Colors';
dlgEditAccessCaptionLockedInView = 'Locked, if text in view';
dlgEditAccessCaptionUnLockedInSoftView = 'Unlocked, if text in centered view';
Index: ide/sourcemarks.pas
===================================================================
--- ide/sourcemarks.pas (revision 57176)
+++ ide/sourcemarks.pas (working copy)
@@ -64,12 +64,13 @@
ahaTopInfoHint,
ahaIfDefBlockInactive, ahaIfDefBlockActive, ahaIfDefBlockTmpActive,
ahaIfDefNodeInactive, ahaIfDefNodeActive, ahaIfDefNodeTmpActive,
- ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight
+ ahaIdentComplWindow, ahaIdentComplWindowBorder, ahaIdentComplWindowSelection, ahaIdentComplWindowHighlight,
+ ahaOutlineLevel1Color, ahaOutlineLevel2Color, ahaOutlineLevel3Color, ahaOutlineLevel4Color, ahaOutlineLevel5Color, ahaOutlineLevel6Color, ahaOutlineLevel7Color, ahaOutlineLevel8Color, ahaOutlineLevel9Color, ahaOutlineLevel10Color
);
TAhaGroupName = (
agnDefault, agnLanguage, agnText, agnLine, agnGutter, agnTemplateMode, agnSyncronMode,
- agnIfDef, agnIdentComplWindow
+ agnIfDef, agnIdentComplWindow, agnOutlineColors
);
TSourceEditorBase = class;
|
|
|
editoroptions.res (65,924 bytes)
�� �� / D ��
C O L O R S C H E M E D E F A U L T 0 <?xml version="1.0"?>
<CONFIG>
<Lazarus>
<ColorSchemes Version="6">
<Names Count="1">
<Item1 Value="Default"/>
</Names>
<Globals Version="6">
<SchemeDefault>
<ahaDefault Background="clWhite" Foreground="clBlack"/>
<ahaExecutionPoint Background="clGray" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaEnabledBreakpoint Background="clRed" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaDisabledBreakpoint Background="clGreen" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaInvalidBreakpoint Background="clOlive" Foreground="clGreen" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaUnknownBreakpoint Background="clRed" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaErrorLine Background="5284095" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaLineHighlight ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaWordGroup FrameColor="clRed" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaBracketMatch Style="fsBold" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaHighlightWord Background="15132390" FrameColor="clSilver" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaIncrementalSearch Background="3199088" Foreground="clWhite" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaHighlightAll Background="clYellow" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaTemplateEditCur FrameColor="clAqua" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditSync FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditOther FrameColor="clMaroon" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditCur FrameColor="clFuchsia" ForePriority="2000" BackPriority="2000" FramePriority="2000"/>
<ahaSyncroEditSync FrameColor="clRed" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditOther FrameColor="9744532" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditArea Background="clMoneyGreen" ForePriority="2000" BackPriority="2000" FramePriority="2000"/>
<ahaTextBlock Background="clNavy" Foreground="clWhite" ForePriority="7000" BackPriority="7000" FramePriority="7000"/>
<ahaMouseLink Foreground="clBlue" ForePriority="1500" BackPriority="2500" FramePriority="7500"/>
<ahaFoldedCode Background="clWhite" Foreground="clSilver" FrameColor="clSilver" ForePriority="8000" BackPriority="8000" FramePriority="8000"/>
<ahaSpecialVisibleChars ForePriority="8100" BackPriority="8100" FramePriority="8100"/>
<ahaTopInfoHint Background="clSkyBlue" Foreground="clBlack" FrameColor="clMaroon" FrameStyle="slsDashed" FrameEdges="sfeBottom" ForePriority="8500" BackPriority="8500" FramePriority="8500"/>
<ahaIfDefBlockInactive Foreground="clSilver" ForeAlpha="165" ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefBlockActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefBlockTmpActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefNodeActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefNodeInactive ForePriority="9150" BackPriority="9150" FramePriority="9150"/>
<ahaIfDefNodeTmpActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaModifiedLine Foreground="clGreen" FrameColor="59900"/>
<ahaCodeFoldingTree Background="clWhite" Foreground="clSilver"/>
<ahaGutterSeparator Background="clWhite" Foreground="clGray"/>
<ahaGutter Background="clBtnFace"/>
<ahaRightMargin Foreground="clSilver"/>
<ahaIdentComplWindowHighlight Foreground="187"/>
<ahaOutlineLevel1Color Foreground="clRed"/>
<ahaOutlineLevel2Color Foreground="39159"/>
<ahaOutlineLevel3Color Foreground="2280512"/>
<ahaOutlineLevel4Color Foreground="13421568"/>
<ahaOutlineLevel5Color Foreground="16738346"/>
<ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeDefault>
</Globals>
<LangObjectPascal Version="6">
<SchemeDefault>
<Assembler Foreground="clGreen"/>
<Comment Foreground="clBlue" Style="fsBold"/>
<Directive Foreground="clRed" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Reserved_word Style="fsBold"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
</SchemeDefault>
</LangObjectPascal>
<LangLazarus_Form_definition Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Key Style="fsBold"/>
<Number Foreground="clNavy"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
</SchemeDefault>
</LangLazarus_Form_definition>
<LangXML_document Version="6">
<SchemeDefault>
<Attribute_Name Foreground="clMaroon"/>
<Attribute_Value Foreground="clNavy" Style="fsBold"/>
<CDATA_Section Foreground="clOlive" Style="fsItalic"/>
<Comment Foreground="clBlue" Style="fsBold"/>
<DOCTYPE_Section Foreground="clBlue" Style="fsItalic"/>
<Element_Name Foreground="clMaroon" Style="fsBold"/>
<Entity_Reference Foreground="clBlue" Style="fsBold"/>
<Namespace_Attribute_Name Foreground="clRed"/>
<Namespace_Attribute_Value Foreground="clRed" Style="fsBold"/>
<Processing_Instruction Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
<Text Foreground="clBlack" Style="fsBold"/>
</SchemeDefault>
</LangXML_document>
<LangHTML_document Version="6">
<SchemeDefault>
<Asp Background="clYellow" Foreground="clBlack"/>
<Comment Foreground="clBlue" Style="fsBold"/>
<Escape_ampersand Foreground="clLime" Style="fsBold"/>
<Identifier Style="fsBold"/>
<Reserved_word Style="fsBold"/>
<Symbol Foreground="clRed"/>
<Unknown_word Foreground="clRed" Style="fsBold"/>
<Value Foreground="16744448"/>
</SchemeDefault>
</LangHTML_document>
<LangC__ Version="6">
<SchemeDefault>
<Assembler Foreground="clGreen"/>
<Comment Foreground="clBlue" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Preprocessor Foreground="clBlue" Style="fsBold"/>
<Reserved_word Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
</SchemeDefault>
</LangC__>
<LangPerl Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Pragma Style="fsBold"/>
<Reserved_word Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
<Variable Style="fsBold"/>
</SchemeDefault>
</LangPerl>
<LangJava Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Documentation Foreground="clBlue" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Reserved_word Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
</SchemeDefault>
</LangJava>
<LangUNIX_Shell_Script Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Reserved_word Style="fsBold"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
<Variable Foreground="clPurple"/>
</SchemeDefault>
</LangUNIX_Shell_Script>
<LangPython Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Documentation Foreground="clBlue" Style="fsBold"/>
<Float Foreground="clBlue"/>
<Hexadecimal Foreground="clBlue"/>
<Non_reserved_keyword Foreground="clNavy" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Octal Foreground="clBlue"/>
<Reserved_word Style="fsBold"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
<SyntaxError Foreground="clRed"/>
<System_functions_and_variables Style="fsBold"/>
</SchemeDefault>
</LangPython>
<LangPHP Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Reserved_word Style="fsBold"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
</SchemeDefault>
</LangPHP>
<LangSQL Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Data_type Style="fsBold"/>
<Default_packages Style="fsBold"/>
<Exception Style="fsItalic"/>
<Function Style="fsBold"/>
<Number Foreground="clNavy"/>
<Reserved_word Style="fsBold"/>
<Reserved_word__PL_SQL_ Style="fsBold"/>
<SQL_Plus_command Style="fsBold"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
</SchemeDefault>
</LangSQL>
<LangJavascript Version="6">
<SchemeDefault>
<Comment Foreground="clBlue" Style="fsBold"/>
<Number Foreground="clNavy"/>
<Reserved_word Style="fsBold"/>
<String Foreground="clBlue"/>
<Symbol Foreground="clRed"/>
</SchemeDefault>
</LangJavascript>
<LangDiff_File Version="6">
<SchemeDefault>
<Diff_Added_line Foreground="clGreen"/>
<Diff_Changed_Line Foreground="clPurple"/>
<Diff_Chunk_Line_Counts Foreground="clPurple" Style="fsBold"/>
<Diff_Chunk_Marker Style="fsBold"/>
<Diff_Chunk_New_Line_Count Foreground="clGreen" Style="fsBold"/>
<Diff_Chunk_Original_Line_Count Foreground="clRed" Style="fsBold"/>
<Diff_New_File Background="clGreen" Style="fsBold"/>
<Diff_Original_File Background="clRed" Style="fsBold"/>
<Diff_Removed_Line Foreground="clRed"/>
<Unknown_word Style="fsItalic"/>
</SchemeDefault>
</LangDiff_File>
<LangMS_DOS_batch_language Version="6">
<SchemeDefault>
<Key Style="fsBold"/>
<Number Foreground="clBlue"/>
<Comment Foreground="clNavy" Style="fsItalic"/>
<Variable Foreground="clGreen"/>
</SchemeDefault>
</LangMS_DOS_batch_language>
<LangINI_file Version="6">
<SchemeDefault>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Section Style="fsBold"/>
</SchemeDefault>
</LangINI_file>
<Langpo_language_files Version="8">
<SchemeDefault>
<Key Style="fsBold"/>
<Flags Foreground="clTeal"/>
<String Foreground="clFuchsia"/>
<Comment Style="fsItalic" Foreground="clGreen"/>
<Identifier Style="fsBold" Foreground="clGreen"/>
<Previous_value Style="fsItalic" Foreground="clOlive"/>
</SchemeDefault>
</Langpo_language_files>
</ColorSchemes>
</Lazarus>
</CONFIG>
�. @ ��
C O L O R S C H E M E D E L P H I 0 <?xml version="1.0"?>
<CONFIG>
<Lazarus>
<ColorSchemes Version="6">
<Names Count="1">
<Item1 Value="Delphi"/>
</Names>
<Globals Version="6">
<SchemeDelphi>
<ahaExecutionPoint Background="10066380" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaEnabledBreakpoint Background="16762823" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaDisabledBreakpoint Background="16762823" Foreground="clGray" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaInvalidBreakpoint Background="clGreen" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaUnknownBreakpoint Background="16762823" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaErrorLine Background="clRed" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaLineHighlight Background="15138810" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaWordGroup FrameColor="clRed" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaBracketMatch Background="clAqua" FrameColor="13421782" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaHighlightWord FrameColor="13421782" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaIncrementalSearch Background="clBlack" Foreground="16580045" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaHighlightAll Background="clYellow" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaTemplateEditCur FrameColor="clAqua" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditSync FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditOther FrameColor="clMaroon" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditCur FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditSync FrameColor="clRed" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditOther FrameColor="clBlue" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditArea Background="16449510" ForePriority="2000" BackPriority="2000" FramePriority="2000"/>
<ahaTextBlock Background="10841427" Foreground="clWhite" ForePriority="7000" BackPriority="7000" FramePriority="7000"/>
<ahaMouseLink Foreground="clBlue" ForePriority="1500" BackPriority="2500" FramePriority="7500"/>
<ahaFoldedCode Foreground="13408665" FrameColor="13408665" ForePriority="8000" BackPriority="8000" FramePriority="8000"/>
<ahaSpecialVisibleChars ForePriority="8100" BackPriority="8100" FramePriority="8100"/>
<ahaTopInfoHint Background="clSkyBlue" Foreground="clBlack" FrameColor="clMaroon" FrameStyle="slsDashed" FrameEdges="sfeBottom" ForePriority="8500" BackPriority="8500" FramePriority="8500"/>
<ahaIfDefBlockInactive Foreground="clSilver" ForeAlpha="165" ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefBlockActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefBlockTmpActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefNodeActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefNodeInactive ForePriority="9150" BackPriority="9150" FramePriority="9150"/>
<ahaIfDefNodeTmpActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaLineNumber Background="16053492" Foreground="13408665"/>
<ahaModifiedLine Background="16053492" Foreground="clLime" FrameColor="clYellow"/>
<ahaCodeFoldingTree Background="16053492" Foreground="13408665"/>
<ahaGutterSeparator Background="clWhite" Foreground="clGray"/>
<ahaGutter Background="clBtnFace"/>
<ahaRightMargin Foreground="clSilver"/>
<ahaIdentComplWindowHighlight Foreground="191"/>
<ahaOutlineLevel1Color Foreground="clRed"/>
<ahaOutlineLevel2Color Foreground="39159"/>
<ahaOutlineLevel3Color Foreground="2280512"/>
<ahaOutlineLevel4Color Foreground="13421568"/>
<ahaOutlineLevel5Color Foreground="16738346"/>
<ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeDelphi>
</Globals>
<LangObjectPascal Version="6">
<SchemeDelphi>
<Assembler Foreground="clBlack"/>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Directive Foreground="clTeal"/>
<Number Foreground="clBlue"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<String Foreground="clBlue"/>
</SchemeDelphi>
</LangObjectPascal>
<LangLazarus_Form_definition Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Key Style="fsBold"/>
<Number Foreground="clBlue"/>
<String Foreground="clBlue"/>
</SchemeDelphi>
</LangLazarus_Form_definition>
<LangXML_document Version="6">
<SchemeDelphi>
<Attribute_Name Foreground="clMaroon"/>
<Attribute_Value Foreground="clNavy" Style="fsBold"/>
<CDATA_Section Foreground="clOlive" Style="fsItalic"/>
<Comment Foreground="clGreen" Style="fsItalic"/>
<DOCTYPE_Section Foreground="clBlue" Style="fsItalic"/>
<Element_Name Foreground="clMaroon" Style="fsBold"/>
<Entity_Reference Foreground="clBlue" Style="fsBold"/>
<Namespace_Attribute_Name Foreground="clRed"/>
<Namespace_Attribute_Value Foreground="clRed" Style="fsBold"/>
<Processing_Instruction Foreground="clBlue"/>
<Text Foreground="clBlack" Style="fsBold"/>
</SchemeDelphi>
</LangXML_document>
<LangHTML_document Version="6">
<SchemeDelphi>
<Asp Background="clYellow" Foreground="clBlack"/>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Escape_ampersand Foreground="clLime" Style="fsBold"/>
<Identifier Style="fsBold"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<Unknown_word Foreground="clRed" Style="fsBold"/>
<Value Foreground="16744448"/>
</SchemeDelphi>
</LangHTML_document>
<LangC__ Version="6">
<SchemeDelphi>
<Assembler Foreground="clBlack"/>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Number Foreground="clBlue"/>
<Preprocessor Foreground="clGreen" Style="fsItalic"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clBlue"/>
</SchemeDelphi>
</LangC__>
<LangPerl Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Number Foreground="clBlue"/>
<Pragma Style="fsBold"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clBlue"/>
<Variable Style="fsBold"/>
</SchemeDelphi>
</LangPerl>
<LangJava Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Documentation Foreground="clGreen" Style="fsItalic"/>
<Number Foreground="clBlue"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clBlue"/>
</SchemeDelphi>
</LangJava>
<LangUNIX_Shell_Script Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Number Foreground="clBlue"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<String Foreground="clBlue"/>
<Variable Foreground="clPurple"/>
</SchemeDelphi>
</LangUNIX_Shell_Script>
<LangPython Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Documentation Foreground="clGreen" Style="fsItalic"/>
<Float Foreground="clBlue"/>
<Hexadecimal Foreground="clBlue"/>
<Non_reserved_keyword Foreground="clNavy" Style="fsBold"/>
<Number Foreground="clBlue"/>
<Octal Foreground="clBlue"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<String Foreground="clBlue"/>
<SyntaxError Foreground="clRed"/>
<System_functions_and_variables Style="fsBold"/>
</SchemeDelphi>
</LangPython>
<LangPHP Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Number Foreground="clBlue"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<String Foreground="clBlue"/>
</SchemeDelphi>
</LangPHP>
<LangSQL Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Data_type Style="fsBold"/>
<Default_packages Style="fsBold"/>
<Exception Style="fsItalic"/>
<Function Style="fsBold"/>
<Number Foreground="clBlue"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<Reserved_word__PL_SQL_ Style="fsBold"/>
<SQL_Plus_command Style="fsBold"/>
<String Foreground="clBlue"/>
</SchemeDelphi>
</LangSQL>
<LangJavascript Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Number Foreground="clBlue"/>
<Reserved_word Foreground="clNavy" Style="fsBold"/>
<String Foreground="clBlue"/>
</SchemeDelphi>
</LangJavascript>
<LangDiff_File Version="6">
<SchemeDelphi>
<Diff_Added_line Foreground="clGreen"/>
<Diff_Changed_Line Foreground="clPurple"/>
<Diff_Chunk_Line_Counts Foreground="clPurple" Style="fsBold"/>
<Diff_Chunk_Marker Style="fsBold"/>
<Diff_Chunk_New_Line_Count Foreground="clGreen" Style="fsBold"/>
<Diff_Chunk_Original_Line_Count Foreground="clRed" Style="fsBold"/>
<Diff_New_File Background="clGreen" Style="fsBold"/>
<Diff_Original_File Background="clRed" Style="fsBold"/>
<Diff_Removed_Line Foreground="clRed"/>
<Unknown_word Style="fsItalic"/>
</SchemeDelphi>
</LangDiff_File>
<LangMS_DOS_batch_language Version="6">
<SchemeDelphi>
<Key Style="fsBold"/>
<Number Foreground="clBlue"/>
<Comment Foreground="clNavy" Style="fsItalic"/>
<Variable Foreground="clGreen"/>
</SchemeDelphi>
</LangMS_DOS_batch_language>
<LangINI_file Version="6">
<SchemeDelphi>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Section Style="fsBold"/>
</SchemeDelphi>
</LangINI_file>
<Langpo_language_files Version="8">
<SchemeDelphi>
<Key Style="fsBold"/>
<Flags Foreground="clTeal"/>
<String Foreground="clFuchsia"/>
<Comment Style="fsItalic" Foreground="clGreen"/>
<Identifier Style="fsBold" Foreground="clGreen"/>
<Previous_value Style="fsItalic" Foreground="clOlive"/>
</SchemeDelphi>
</Langpo_language_files>
</ColorSchemes>
</Lazarus>
</CONFIG>
N/ @ ��
C O L O R S C H E M E O C E A N 0 <?xml version="1.0"?>
<CONFIG>
<Lazarus>
<ColorSchemes Version="6">
<Names Count="1">
<Item1 Value="Ocean"/>
</Names>
<Globals Version="6">
<SchemeOcean>
<ahaDefault Background="clNavy" Foreground="clYellow"/>
<ahaExecutionPoint Background="clBlue" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaEnabledBreakpoint Background="clRed" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaDisabledBreakpoint Background="clLime" Foreground="clRed" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaInvalidBreakpoint Background="clOlive" Foreground="clGreen" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaUnknownBreakpoint Background="clRed" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaErrorLine Background="5284095" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaLineHighlight ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaWordGroup FrameColor="clRed" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaBracketMatch Style="fsBold" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaHighlightWord FrameColor="clSilver" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaIncrementalSearch Background="3199088" Foreground="clWhite" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaHighlightAll Background="clYellow" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaTemplateEditCur FrameColor="clAqua" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditSync FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditOther FrameColor="clMaroon" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditCur FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditSync FrameColor="clRed" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditOther FrameColor="9744532" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditArea Background="clGray" ForePriority="2000" BackPriority="2000" FramePriority="2000"/>
<ahaTextBlock Background="clWhite" Foreground="clBlack" ForePriority="7000" BackPriority="7000" FramePriority="7000"/>
<ahaMouseLink Foreground="clAqua" ForePriority="1500" BackPriority="2500" FramePriority="7500"/>
<ahaFoldedCode Foreground="clSilver" FrameColor="clSilver" ForePriority="8000" BackPriority="8000" FramePriority="8000"/>
<ahaSpecialVisibleChars ForePriority="8100" BackPriority="8100" FramePriority="8100"/>
<ahaTopInfoHint Background="clPurple" Foreground="clYellow" FrameColor="clOlive" FrameStyle="slsDashed" ForePriority="8500" BackPriority="8500" FramePriority="8500"/>
<ahaIfDefBlockInactive Foreground="clBlack" ForeAlpha="150" ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefBlockActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefBlockTmpActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefNodeActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefNodeInactive ForePriority="9150" BackPriority="9150" FramePriority="9150"/>
<ahaIfDefNodeTmpActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaModifiedLine Foreground="clGreen" FrameColor="59900"/>
<ahaCodeFoldingTree Foreground="clSilver"/>
<ahaGutterSeparator Background="clWhite" Foreground="clGray"/>
<ahaGutter Background="clNavy"/>
<ahaRightMargin Foreground="clSilver"/>
<ahaIdentComplWindowHighlight Foreground="clAqua"/>
<ahaIdentComplWindow Background="8388649"/>
<ahaOutlineLevel1Color Foreground="clRed"/>
<ahaOutlineLevel2Color Foreground="39159"/>
<ahaOutlineLevel3Color Foreground="2280512"/>
<ahaOutlineLevel4Color Foreground="13421568"/>
<ahaOutlineLevel5Color Foreground="16738346"/>
<ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeOcean>
</Globals>
<LangObjectPascal Version="6">
<SchemeOcean>
<Assembler Foreground="clLime"/>
<Comment Foreground="clGray"/>
<Directive Foreground="clRed"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeOcean>
</LangObjectPascal>
<LangLazarus_Form_definition Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Key Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeOcean>
</LangLazarus_Form_definition>
<LangXML_document Version="6">
<SchemeOcean>
<Attribute_Name Foreground="clMaroon"/>
<Attribute_Value Foreground="clNavy" Style="fsBold"/>
<CDATA_Section Foreground="clOlive" Style="fsItalic"/>
<Comment Foreground="clGray"/>
<DOCTYPE_Section Foreground="clBlue" Style="fsItalic"/>
<Element_Name Foreground="clMaroon" Style="fsBold"/>
<Entity_Reference Foreground="clBlue" Style="fsBold"/>
<Namespace_Attribute_Name Foreground="clRed"/>
<Namespace_Attribute_Value Foreground="clRed" Style="fsBold"/>
<Processing_Instruction Foreground="clBlue"/>
<Symbol Foreground="clAqua"/>
<Text Foreground="clBlack" Style="fsBold"/>
</SchemeOcean>
</LangXML_document>
<LangHTML_document Version="6">
<SchemeOcean>
<Asp Background="clYellow" Foreground="clBlack"/>
<Comment Foreground="clGray"/>
<Escape_ampersand Foreground="clLime" Style="fsBold"/>
<Identifier Style="fsBold"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Symbol Foreground="clAqua"/>
<Unknown_word Foreground="clRed" Style="fsBold"/>
<Value Foreground="16744448"/>
</SchemeOcean>
</LangHTML_document>
<LangC__ Version="6">
<SchemeOcean>
<Assembler Foreground="clLime"/>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Preprocessor Foreground="clGray"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeOcean>
</LangC__>
<LangPerl Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Pragma Style="fsBold"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
<Variable Style="fsBold"/>
</SchemeOcean>
</LangPerl>
<LangJava Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Documentation Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeOcean>
</LangJava>
<LangUNIX_Shell_Script Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
<Variable Foreground="clPurple"/>
</SchemeOcean>
</LangUNIX_Shell_Script>
<LangPython Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Documentation Foreground="clGray"/>
<Float Foreground="clBlue"/>
<Hexadecimal Foreground="clBlue"/>
<Non_reserved_keyword Foreground="clNavy" Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<Octal Foreground="clBlue"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
<SyntaxError Foreground="clRed"/>
<System_functions_and_variables Style="fsBold"/>
</SchemeOcean>
</LangPython>
<LangPHP Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeOcean>
</LangPHP>
<LangSQL Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Data_type Style="fsBold"/>
<Default_packages Style="fsBold"/>
<Exception Style="fsItalic"/>
<Function Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Reserved_word__PL_SQL_ Style="fsBold"/>
<SQL_Plus_command Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeOcean>
</LangSQL>
<LangJavascript Version="6">
<SchemeOcean>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeOcean>
</LangJavascript>
<LangDiff_File Version="6">
<SchemeOcean>
<Diff_Added_line Foreground="clGreen"/>
<Diff_Changed_Line Foreground="clPurple"/>
<Diff_Chunk_Line_Counts Foreground="clPurple" Style="fsBold"/>
<Diff_Chunk_Marker Style="fsBold"/>
<Diff_Chunk_New_Line_Count Foreground="clGreen" Style="fsBold"/>
<Diff_Chunk_Original_Line_Count Foreground="clRed" Style="fsBold"/>
<Diff_New_File Background="clGreen" Style="fsBold"/>
<Diff_Original_File Background="clRed" Style="fsBold"/>
<Diff_Removed_Line Foreground="clRed"/>
<Unknown_word Style="fsItalic"/>
</SchemeOcean>
</LangDiff_File>
<LangMS_DOS_batch_language Version="6">
<SchemeOcean>
<Key Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<Comment Foreground="clNavy" Style="fsItalic"/>
<Variable Foreground="clGreen"/>
</SchemeOcean>
</LangMS_DOS_batch_language>
<LangINI_file Version="6">
<SchemeOcean>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Section Style="fsBold"/>
<Number Foreground="clFuchsia"/>
</SchemeOcean>
</LangINI_file>
<Langpo_language_files Version="8">
<SchemeOcean>
<Key Style="fsBold"/>
<Flags Foreground="clTeal"/>
<String Foreground="clFuchsia"/>
<Comment Style="fsItalic" Foreground="clGreen"/>
<Identifier Style="fsBold" Foreground="clGreen"/>
<Previous_value Style="fsItalic" Foreground="clOlive"/>
</SchemeOcean>
</Langpo_language_files>
</ColorSchemes>
</Lazarus>
</CONFIG>
�/ P ��
C O L O R S C H E M E P A S C A L C L A S S I C 0 <?xml version="1.0"?>
<CONFIG>
<Lazarus>
<ColorSchemes Version="6">
<Names Count="1">
<Item1 Value="Pascal_Classic"/>
</Names>
<Globals Version="6">
<SchemePascal_Classic>
<ahaDefault Background="clNavy" Foreground="clYellow"/>
<ahaExecutionPoint Background="clAqua" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaEnabledBreakpoint Background="clRed" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaDisabledBreakpoint Background="clLime" Foreground="clRed" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaInvalidBreakpoint Background="clOlive" Foreground="clLime" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaErrorLine Background="clMaroon" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaLineHighlight ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaWordGroup FrameColor="clRed" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaBracketMatch Style="fsBold" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaHighlightWord FrameColor="clSilver" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaIncrementalSearch Background="3199088" Foreground="clWhite" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaHighlightAll Background="clYellow" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaTemplateEditCur FrameColor="clAqua" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditSync FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditOther FrameColor="clMaroon" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditCur FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditSync FrameColor="clRed" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditOther FrameColor="9744532" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditArea Background="clGray" ForePriority="2000" BackPriority="2000" FramePriority="2000"/>
<ahaTextBlock Background="clBlue" Foreground="clWhite" ForePriority="7000" BackPriority="7000" FramePriority="7000"/>
<ahaMouseLink Foreground="clWhite" ForePriority="1500" BackPriority="2500" FramePriority="7500"/>
<ahaFoldedCode Foreground="clSilver" FrameColor="clSilver" ForePriority="8000" BackPriority="8000" FramePriority="8000"/>
<ahaSpecialVisibleChars ForePriority="8100" BackPriority="8100" FramePriority="8100"/>
<ahaTopInfoHint Background="clPurple" Foreground="clYellow" FrameColor="clOlive" FrameStyle="slsDashed" ForePriority="8500" BackPriority="8500" FramePriority="8500"/>
<ahaIfDefBlockInactive Foreground="clBlack" ForeAlpha="150" ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefBlockActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefBlockTmpActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefNodeActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefNodeInactive ForePriority="9150" BackPriority="9150" FramePriority="9150"/>
<ahaIfDefNodeTmpActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaModifiedLine Foreground="clGreen" FrameColor="59900"/>
<ahaRightMargin Foreground="clSilver"/>
<ahaCodeFoldingTree Foreground="clSilver"/>
<ahaGutterSeparator Background="clWhite" Foreground="clGray"/>
<ahaGutter Background="clNavy"/>
<ahaIdentComplWindowHighlight Foreground="clAqua"/>
<ahaIdentComplWindow Background="10420276"/>
<ahaOutlineLevel1Color Foreground="clRed"/>
<ahaOutlineLevel2Color Foreground="39159"/>
<ahaOutlineLevel3Color Foreground="2280512"/>
<ahaOutlineLevel4Color Foreground="13421568"/>
<ahaOutlineLevel5Color Foreground="16738346"/>
<ahaOutlineLevel6Color Foreground="13566148"/>
</SchemePascal_Classic>
</Globals>
<LangObjectPascal Version="6">
<SchemePascal_Classic>
<Assembler Foreground="clLime"/>
<Comment Foreground="clSilver"/>
<Directive Foreground="clSilver"/>
<Number Foreground="clYellow"/>
<Reserved_word Foreground="clWhite"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
</SchemePascal_Classic>
</LangObjectPascal>
<LangLazarus_Form_definition Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Key Style="fsBold"/>
<Number Foreground="clYellow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
</SchemePascal_Classic>
</LangLazarus_Form_definition>
<LangXML_document Version="6">
<SchemePascal_Classic>
<Attribute_Name Foreground="clMaroon"/>
<Attribute_Value Foreground="clNavy" Style="fsBold"/>
<CDATA_Section Foreground="clOlive" Style="fsItalic"/>
<Comment Foreground="clSilver"/>
<DOCTYPE_Section Foreground="clBlue" Style="fsItalic"/>
<Element_Name Foreground="clMaroon" Style="fsBold"/>
<Entity_Reference Foreground="clBlue" Style="fsBold"/>
<Namespace_Attribute_Name Foreground="clRed"/>
<Namespace_Attribute_Value Foreground="clRed" Style="fsBold"/>
<Processing_Instruction Foreground="clBlue"/>
<Symbol Foreground="clYellow"/>
<Text Foreground="clBlack" Style="fsBold"/>
</SchemePascal_Classic>
</LangXML_document>
<LangHTML_document Version="6">
<SchemePascal_Classic>
<Asp Background="clYellow" Foreground="clBlack"/>
<Comment Foreground="clSilver"/>
<Escape_ampersand Foreground="clLime" Style="fsBold"/>
<Identifier Style="fsBold"/>
<Reserved_word Foreground="clWhite"/>
<Symbol Foreground="clYellow"/>
<Unknown_word Foreground="clRed" Style="fsBold"/>
<Value Foreground="16744448"/>
</SchemePascal_Classic>
</LangHTML_document>
<LangC__ Version="6">
<SchemePascal_Classic>
<Assembler Foreground="clLime"/>
<Comment Foreground="clSilver"/>
<Number Foreground="clYellow"/>
<Preprocessor Foreground="clSilver"/>
<Reserved_word Foreground="clWhite"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
</SchemePascal_Classic>
</LangC__>
<LangPerl Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Number Foreground="clYellow"/>
<Pragma Style="fsBold"/>
<Reserved_word Foreground="clWhite"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
<Variable Style="fsBold"/>
</SchemePascal_Classic>
</LangPerl>
<LangJava Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Documentation Foreground="clSilver"/>
<Number Foreground="clYellow"/>
<Reserved_word Foreground="clWhite"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
</SchemePascal_Classic>
</LangJava>
<LangUNIX_Shell_Script Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Number Foreground="clYellow"/>
<Reserved_word Foreground="clWhite"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
<Variable Foreground="clPurple"/>
</SchemePascal_Classic>
</LangUNIX_Shell_Script>
<LangPython Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Documentation Foreground="clSilver"/>
<Float Foreground="clBlue"/>
<Hexadecimal Foreground="clBlue"/>
<Non_reserved_keyword Foreground="clNavy" Style="fsBold"/>
<Number Foreground="clYellow"/>
<Octal Foreground="clBlue"/>
<Reserved_word Foreground="clWhite"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
<SyntaxError Foreground="clRed"/>
<System_functions_and_variables Style="fsBold"/>
</SchemePascal_Classic>
</LangPython>
<LangPHP Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Number Foreground="clYellow"/>
<Reserved_word Foreground="clWhite"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
</SchemePascal_Classic>
</LangPHP>
<LangSQL Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Data_type Style="fsBold"/>
<Default_packages Style="fsBold"/>
<Exception Style="fsItalic"/>
<Function Style="fsBold"/>
<Number Foreground="clYellow"/>
<Reserved_word Foreground="clWhite"/>
<Reserved_word__PL_SQL_ Style="fsBold"/>
<SQL_Plus_command Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
</SchemePascal_Classic>
</LangSQL>
<LangJavascript Version="6">
<SchemePascal_Classic>
<Comment Foreground="clSilver"/>
<Number Foreground="clYellow"/>
<Reserved_word Foreground="clWhite"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clYellow"/>
</SchemePascal_Classic>
</LangJavascript>
<LangDiff_File Version="6">
<SchemePascal_Classic>
<Diff_Added_line Foreground="clGreen"/>
<Diff_Changed_Line Foreground="clPurple"/>
<Diff_Chunk_Line_Counts Foreground="clPurple" Style="fsBold"/>
<Diff_Chunk_Marker Style="fsBold"/>
<Diff_Chunk_New_Line_Count Foreground="clGreen" Style="fsBold"/>
<Diff_Chunk_Original_Line_Count Foreground="clRed" Style="fsBold"/>
<Diff_New_File Background="clGreen" Style="fsBold"/>
<Diff_Original_File Background="clRed" Style="fsBold"/>
<Diff_Removed_Line Foreground="clRed"/>
<Unknown_word Style="fsItalic"/>
</SchemePascal_Classic>
</LangDiff_File>
<LangMS_DOS_batch_language Version="6">
<SchemePascal_Classic>
<Key Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<Comment Foreground="clNavy" Style="fsItalic"/>
<Variable Foreground="clGreen"/>
</SchemePascal_Classic>
</LangMS_DOS_batch_language>
<LangINI_file Version="6">
<SchemePascal_Classic>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Number Foreground="clFuchsia"/>
<Section Style="fsBold"/>
</SchemePascal_Classic>
</LangINI_file>
<Langpo_language_files Version="8">
<SchemePascal_Classic>
<Key Style="fsBold"/>
<Flags Foreground="clTeal"/>
<String Foreground="clFuchsia"/>
<Comment Style="fsItalic" Foreground="clGreen"/>
<Identifier Style="fsBold" Foreground="clGreen"/>
<Previous_value Style="fsItalic" Foreground="clOlive"/>
</SchemePascal_Classic>
</Langpo_language_files>
</ColorSchemes>
</Lazarus>
</CONFIG>
0 D ��
C O L O R S C H E M E T W I L I G H T 0 <?xml version="1.0"?>
<CONFIG>
<Lazarus>
<ColorSchemes Version="6">
<Names Count="1">
<Item1 Value="Twilight"/>
</Names>
<Globals Version="6">
<SchemeTwilight>
<ahaDefault Background="clBlack" Foreground="clWhite"/>
<ahaExecutionPoint Background="clBlue" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaEnabledBreakpoint Background="clRed" Foreground="clWhite" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaDisabledBreakpoint Background="clLime" Foreground="clRed" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaInvalidBreakpoint Background="clOlive" Foreground="clGreen" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaUnknownBreakpoint Background="clRed" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaErrorLine Background="5284095" Foreground="clBlack" ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaLineHighlight ForePriority="500" BackPriority="500" FramePriority="500"/>
<ahaWordGroup FrameColor="clRed" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaBracketMatch Style="fsBold" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaHighlightWord Background="3158064" FrameColor="clSilver" ForePriority="3000" BackPriority="3000" FramePriority="3000"/>
<ahaIncrementalSearch Background="3199088" Foreground="clWhite" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaHighlightAll Background="clYellow" ForePriority="4000" BackPriority="4000" FramePriority="4000"/>
<ahaTemplateEditCur FrameColor="clAqua" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditSync FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaTemplateEditOther FrameColor="clMaroon" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditCur FrameColor="clFuchsia" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditSync FrameColor="clRed" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditOther FrameColor="9744532" ForePriority="6000" BackPriority="6000" FramePriority="6000"/>
<ahaSyncroEditArea Background="clGray" ForePriority="2000" BackPriority="2000" FramePriority="2000"/>
<ahaTextBlock Background="clWhite" Foreground="clBlack" ForePriority="7000" BackPriority="7000" FramePriority="7000"/>
<ahaMouseLink Foreground="clAqua" ForePriority="1500" BackPriority="2500" FramePriority="7500"/>
<ahaFoldedCode Foreground="clSilver" FrameColor="clSilver" ForePriority="8000" BackPriority="8000" FramePriority="8000"/>
<ahaSpecialVisibleChars ForePriority="8100" BackPriority="8100" FramePriority="8100"/>
<ahaTopInfoHint Background="clPurple" Foreground="clYellow" FrameColor="clOlive" FrameStyle="slsDashed" ForePriority="8500" BackPriority="8500" FramePriority="8500"/>
<ahaIfDefBlockInactive Foreground="clBlack" ForeAlpha="150" ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefBlockActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefBlockTmpActive ForePriority="9000" BackPriority="9000" FramePriority="9000"/>
<ahaIfDefNodeActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaIfDefNodeInactive ForePriority="9150" BackPriority="9150" FramePriority="9150"/>
<ahaIfDefNodeTmpActive ForePriority="9050" BackPriority="9050" FramePriority="9050"/>
<ahaModifiedLine Foreground="clGreen" FrameColor="59900"/>
<ahaCodeFoldingTree Foreground="clSilver"/>
<ahaGutterSeparator Background="clWhite" Foreground="clGray"/>
<ahaGutter Background="clBlack"/>
<ahaRightMargin Foreground="clSilver"/>
<ahaIdentComplWindow Background="3552822"/>
<ahaIdentComplWindowBorder Foreground="7039851"/>
<ahaIdentComplWindowHighlight Foreground="clLime"/>
<ahaOutlineLevel1Color Foreground="clRed"/>
<ahaOutlineLevel2Color Foreground="39159"/>
<ahaOutlineLevel3Color Foreground="2280512"/>
<ahaOutlineLevel4Color Foreground="13421568"/>
<ahaOutlineLevel5Color Foreground="16738346"/>
<ahaOutlineLevel6Color Foreground="13566148"/>
</SchemeTwilight>
</Globals>
<LangObjectPascal Version="6">
<SchemeTwilight>
<Assembler Foreground="clLime"/>
<Comment Foreground="clGray"/>
<Directive Foreground="clRed"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeTwilight>
</LangObjectPascal>
<LangLazarus_Form_definition Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Key Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeTwilight>
</LangLazarus_Form_definition>
<LangXML_document Version="6">
<SchemeTwilight>
<Attribute_Name Foreground="clMaroon"/>
<Attribute_Value Foreground="clNavy" Style="fsBold"/>
<CDATA_Section Foreground="clOlive" Style="fsItalic"/>
<Comment Foreground="clGray"/>
<DOCTYPE_Section Foreground="clBlue" Style="fsItalic"/>
<Element_Name Foreground="clMaroon" Style="fsBold"/>
<Entity_Reference Foreground="clBlue" Style="fsBold"/>
<Namespace_Attribute_Name Foreground="clRed"/>
<Namespace_Attribute_Value Foreground="clRed" Style="fsBold"/>
<Processing_Instruction Foreground="clBlue"/>
<Symbol Foreground="clAqua"/>
<Text Foreground="clBlack" Style="fsBold"/>
</SchemeTwilight>
</LangXML_document>
<LangHTML_document Version="6">
<SchemeTwilight>
<Asp Background="clYellow" Foreground="clBlack"/>
<Comment Foreground="clGray"/>
<Escape_ampersand Foreground="clLime" Style="fsBold"/>
<Identifier Style="fsBold"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Symbol Foreground="clAqua"/>
<Unknown_word Foreground="clRed" Style="fsBold"/>
<Value Foreground="16744448"/>
</SchemeTwilight>
</LangHTML_document>
<LangC__ Version="6">
<SchemeTwilight>
<Assembler Foreground="clLime"/>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Preprocessor Foreground="clGray"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeTwilight>
</LangC__>
<LangPerl Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Pragma Style="fsBold"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
<Variable Style="fsBold"/>
</SchemeTwilight>
</LangPerl>
<LangJava Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Documentation Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Space Foreground="clWindow"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeTwilight>
</LangJava>
<LangUNIX_Shell_Script Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
<Variable Foreground="clPurple"/>
</SchemeTwilight>
</LangUNIX_Shell_Script>
<LangPython Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Documentation Foreground="clGray"/>
<Float Foreground="clBlue"/>
<Hexadecimal Foreground="clBlue"/>
<Non_reserved_keyword Foreground="clNavy" Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<Octal Foreground="clBlue"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
<SyntaxError Foreground="clRed"/>
<System_functions_and_variables Style="fsBold"/>
</SchemeTwilight>
</LangPython>
<LangPHP Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeTwilight>
</LangPHP>
<LangSQL Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Data_type Style="fsBold"/>
<Default_packages Style="fsBold"/>
<Exception Style="fsItalic"/>
<Function Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<Reserved_word__PL_SQL_ Style="fsBold"/>
<SQL_Plus_command Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeTwilight>
</LangSQL>
<LangJavascript Version="6">
<SchemeTwilight>
<Comment Foreground="clGray"/>
<Number Foreground="clFuchsia"/>
<Reserved_word Foreground="clAqua" Style="fsBold"/>
<String Foreground="clYellow"/>
<Symbol Foreground="clAqua"/>
</SchemeTwilight>
</LangJavascript>
<LangDiff_File Version="6">
<SchemeTwilight>
<Diff_Added_line Foreground="clGreen"/>
<Diff_Changed_Line Foreground="clPurple"/>
<Diff_Chunk_Line_Counts Foreground="clPurple" Style="fsBold"/>
<Diff_Chunk_Marker Style="fsBold"/>
<Diff_Chunk_New_Line_Count Foreground="clGreen" Style="fsBold"/>
<Diff_Chunk_Original_Line_Count Foreground="clRed" Style="fsBold"/>
<Diff_New_File Background="clGreen" Style="fsBold"/>
<Diff_Original_File Background="clRed" Style="fsBold"/>
<Diff_Removed_Line Foreground="clRed"/>
<Unknown_word Style="fsItalic"/>
</SchemeTwilight>
</LangDiff_File>
<LangMS_DOS_batch_language Version="6">
<SchemeTwilight>
<Key Style="fsBold"/>
<Number Foreground="clFuchsia"/>
<Comment Foreground="clNavy" Style="fsItalic"/>
<Variable Foreground="clGreen"/>
</SchemeTwilight>
</LangMS_DOS_batch_language>
<LangINI_file Version="6">
<SchemeTwilight>
<Comment Foreground="clGreen" Style="fsItalic"/>
<Section Style="fsBold"/>
<Number Foreground="clFuchsia"/>
</SchemeTwilight>
</LangINI_file>
<Langpo_language_files Version="8">
<SchemeTwilight>
<Key Style="fsBold"/>
<Flags Foreground="clTeal"/>
<String Foreground="clFuchsia"/>
<Comment Style="fsItalic" Foreground="clGreen"/>
<Identifier Style="fsBold" Foreground="clGreen"/>
<Previous_value Style="fsItalic" Foreground="clOlive"/>
</SchemeTwilight>
</Langpo_language_files>
</ColorSchemes>
</Lazarus>
</CONFIG>
� @ ��
L A Z A R U S _ D C I _ F I L E 0 [arrayd | array declaration (var)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
$Param(VariableName): array[0..$Param(HighNumber)] of $Param(Type);
|
[arrayc | array declaration (const)]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
array[$param(0)..$param(1)] of $param(Type) = (|);
[cases | case statement]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
case $param(var) of
: |;
: ;
end$AddSemicolon()
[be | begin end else begin end]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
begin
|
end else
begin
end$AddSemicolon()
[casee | case statement (with else)]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
case $param(var) of
: |;
: ;
else ;
end$AddSemicolon()
[classf | class declaration (all parts)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
$Param(ClassName) = class($Param(InheritedClass))
private
public
|
constructor Create;
destructor Destroy; override;
end;
[classd | class declaration (no parts)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
$Param(ClassName) = class($Param(InheritedClass))
|
end;
[classc | class declaration (with Create/Destroy overrides)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
$Param(ClassName) = class($Param(InheritedClass))
private
protected
public
|
constructor Create; override;
destructor Destroy; override;
published
end;
[d | debugln]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
debugln(['$ProcedureName() '|])$AddSemicolon()
[fors | for (no begin/end)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
for $Param(CounterVar) := $Param(0) to Pred($Param(Count)) do
|
[forb | for statement]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
for $Param(CounterVar) := $Param(0) to Pred($Param(Count)) do
begin
|
end$AddSemicolon()
[function | function declaration]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
function $param(Name)($param( )): $param(Type);
begin
|
end;
[hexc | HexStr(Cardinal(),8)]
HexStr(PtrUInt(|),8)
[ifs | if (no begin/end)]
if $Param(Conditional) then
|
[ifb | if statement]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
if $Param(Conditional) then
begin
|
end$AddSemicolon()
[ife | if then (no begin/end) else (no begin/end)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
if $Param(Conditional) then
|
else
[ifeb | if then else]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
if $Param(Conditional) then
begin
|
end
else begin
end$AddSemicolon()
[procedure | procedure declaration]
procedure $Param(ProcName)|($Param());
begin
|
end;
[ofall | case of all enums]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
of
|$OfAll()end;
[trye | try except]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
try
|
except
end$AddSemicolon()
[tryf | try finally]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
try
|
finally
$Param(FreeStatement,default)
end$AddSemicolon()
[trycf | try finally (with Create/Free)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
$Param(VarName) := $Param(TMyClassName).Create;
try
|
finally
$Param(VarName,Sync=1).Free;
end;
[whileb | while statement]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
while $Param(LoopCondition) do
begin
|
end$AddSemicolon()
[whiles | while (no begin)]
while $Param(LoopCondition) do
|
[withb | with statement]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
with $Param(Object) do
begin
|
end$AddSemicolon()
[b | begin end]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
begin
|
end$AddSemicolon()
[withs | with (no begin)]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
with $Param(Object) do
|
[withc | with for components]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
with $Param(Object) do
begin
Name:='$Param(NameText)';
Parent:=Self;
Left:=$Param(0);
Top:=$Param(0);
Width:=$Param(0);
Height:=$Param(0);
Caption:='$Param(CaptionText)';
end;
|
[fpc | Conditional FPC Mode]
$(AttributesStart)
RemoveChar=true
$(AttributesEnd)
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
|
[todo | ToDo item creator]
$(AttributesStart)
EnableMakros=true
RemoveChar=true
$(AttributesEnd)
{ TODO -o$Param(Author) : $Param(Note) } |
[w | writeln]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
writeln('$ProcedureName() '|)$AddSemicolon()
|
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2018-01-02 16:37 | Vojtech Cihak | New Issue | |
| 2018-01-02 20:47 | Martin Friebe | Assigned To | => Martin Friebe |
| 2018-01-02 20:47 | Martin Friebe | Status | new => assigned |
| 2018-01-20 07:39 | Pascal Riekenberg | File Added: color_options_for_outline_coloring.patch | |
| 2018-01-20 07:40 | Pascal Riekenberg | Note Added: 0105949 | |
| 2018-01-20 18:59 | Vojtech Cihak | Note Added: 0105959 | |
| 2018-01-20 21:52 | Pascal Riekenberg | Note Added: 0105964 | |
| 2018-01-20 21:59 | Pascal Riekenberg | Note Edited: 0105964 | View Revisions |
| 2018-01-21 07:42 | Pascal Riekenberg | Note Added: 0105974 | |
| 2018-01-21 08:21 | Pascal Riekenberg | Note Added: 0105975 | |
| 2018-01-21 14:41 | Vojtech Cihak | Note Added: 0105984 | |
| 2018-01-21 14:42 | Vojtech Cihak | Note Edited: 0105984 | View Revisions |
| 2018-01-21 16:59 | Vojtech Cihak | Note Added: 0105987 | |
| 2018-01-22 08:08 | Pascal Riekenberg | Note Added: 0105999 | |
| 2018-01-22 11:27 | Pascal Riekenberg | File Added: color_options_for_outline_coloring_V2.patch | |
| 2018-01-22 11:31 | Pascal Riekenberg | Note Added: 0106002 | |
| 2018-01-22 14:13 | Vojtech Cihak | Note Added: 0106004 | |
| 2018-01-22 14:48 | Pascal Riekenberg | Note Added: 0106007 | |
| 2018-01-22 15:18 | Vojtech Cihak | Note Added: 0106008 | |
| 2018-01-22 15:18 | Vojtech Cihak | File Added: color_outlines.png | |
| 2018-01-22 15:19 | Vojtech Cihak | Note Edited: 0106008 | View Revisions |
| 2018-01-22 15:25 | Pascal Riekenberg | Note Added: 0106009 | |
| 2018-01-22 15:31 | Pascal Riekenberg | Note Edited: 0106009 | View Revisions |
| 2018-01-22 15:55 | Vojtech Cihak | Note Added: 0106010 | |
| 2018-01-22 16:00 | Pascal Riekenberg | Note Added: 0106012 | |
| 2018-01-29 10:16 | Pascal Riekenberg | File Added: color_options_for_outline_coloring_V3.patch | |
| 2018-01-29 10:16 | Pascal Riekenberg | File Added: editoroptions.res | |
| 2018-01-29 22:04 | Martin Friebe | Fixed in Revision | => 57182 |
| 2018-01-29 22:04 | Martin Friebe | LazTarget | => - |
| 2018-01-29 22:04 | Martin Friebe | Status | assigned => resolved |
| 2018-01-29 22:04 | Martin Friebe | Fixed in Version | => 1.8.2 |
| 2018-01-29 22:04 | Martin Friebe | Resolution | open => fixed |
| 2018-01-29 22:04 | Martin Friebe | Target Version | => 1.8.2 |
