1 {
2 Copyright (C) Alexey Torgashin, uvviewsoft.com
3 License: MPL 2.0 or LGPL
4 }
5 unit ATSynEdit_Colors;
6 
7 {$mode objfpc}{$H+}
8 
9 interface
10 
11 uses
12   Classes, SysUtils, Graphics;
13 
14 type
15   TATEditorColors = class(TPersistent)
16   private
17     FTextFont,
18     FTextBG,
19     FTextDisabledFont,
20     FTextDisabledBG,
21     FTextSelFont,
22     FTextSelBG,
23     FCaret,
24     FMarkers,
25     FGutterFont,
26     FGutterBG,
27     FGutterCaretFont,
28     FGutterCaretBG,
29     FGutterFoldLine,
30     FGutterFoldLine2,
31     FGutterFoldBG,
32     FGutterSeparatorBG,
33     FCurrentLineBG,
34     FMarginRight,
35     FMarginCaret,
36     FMarginUser,
37     FIndentVertLines,
38     FBookmarkBG,
39     FRulerFont,
40     FRulerBG,
41     FCollapseLine,
42     FCollapseMarkFont,
43     FCollapseMarkBG,
44     FCollapseMarkBorder,
45     FUnprintedFont,
46     FUnprintedBG,
47     FUnprintedHexFont,
48     FMinimapBorder,
49     FMinimapSelBG,
50     FMinimapTooltipBG,
51     FMinimapTooltipBorder,
52     FStateChanged,
53     FStateAdded,
54     FStateSaved,
55     FTextHintFont,
56     FBlockStaple,
57     FBlockStapleForCaret,
58     FBlockSepLine,
59     FLinks,
60     FLockedBG,
61     FMarkedLinesBG,
62     FBorderLine,
63     FBorderLineFocused,
64     FBorderParentBG,
65     FComboboxArrow,
66     FComboboxArrowBG: TColor;
67   published
68     property TextFont: TColor read FTextFont write FTextFont;
69     property TextBG: TColor read FTextBG write FTextBG;
70     property TextDisabledFont: TColor read FTextDisabledFont write FTextDisabledFont;
71     property TextDisabledBG: TColor read FTextDisabledBG write FTextDisabledBG;
72     property TextSelFont: TColor read FTextSelFont write FTextSelFont;
73     property TextSelBG: TColor read FTextSelBG write FTextSelBG;
74     property Caret: TColor read FCaret write FCaret;
75     property Markers: TColor read FMarkers write FMarkers;
76     property GutterFont: TColor read FGutterFont write FGutterFont;
77     property GutterBG: TColor read FGutterBG write FGutterBG;
78     property GutterCaretFont: TColor read FGutterCaretFont write FGutterCaretFont;
79     property GutterCaretBG: TColor read FGutterCaretBG write FGutterCaretBG;
80     property GutterFoldLine: TColor read FGutterFoldLine write FGutterFoldLine;
81     property GutterFoldLine2: TColor read FGutterFoldLine2 write FGutterFoldLine2;
82     property GutterFoldBG: TColor read FGutterFoldBG write FGutterFoldBG;
83     property GutterSeparatorBG: TColor read FGutterSeparatorBG write FGutterSeparatorBG;
84     property CurrentLineBG: TColor read FCurrentLineBG write FCurrentLineBG;
85     property MarginRight: TColor read FMarginRight write FMarginRight;
86     property MarginCaret: TColor read FMarginCaret write FMarginCaret;
87     property MarginUser: TColor read FMarginUser write FMarginUser;
88     property IndentVertLines: TColor read FIndentVertLines write FIndentVertLines;
89     property BookmarkBG: TColor read FBookmarkBG write FBookmarkBG;
90     property RulerFont: TColor read FRulerFont write FRulerFont;
91     property RulerBG: TColor read FRulerBG write FRulerBG;
92     property CollapseLine: TColor read FCollapseLine write FCollapseLine;
93     property CollapseMarkFont: TColor read FCollapseMarkFont write FCollapseMarkFont;
94     property CollapseMarkBG: TColor read FCollapseMarkBG write FCollapseMarkBG;
95     property CollapseMarkBorder: TColor read FCollapseMarkBorder write FCollapseMarkBorder;
96     property UnprintedFont: TColor read FUnprintedFont write FUnprintedFont;
97     property UnprintedBG: TColor read FUnprintedBG write FUnprintedBG;
98     property UnprintedHexFont: TColor read FUnprintedHexFont write FUnprintedHexFont;
99     property MinimapBorder: TColor read FMinimapBorder write FMinimapBorder;
100     property MinimapSelBG: TColor read FMinimapSelBG write FMinimapSelBG;
101     property MinimapTooltipBG: TColor read FMinimapTooltipBG write FMinimapTooltipBG;
102     property MinimapTooltipBorder: TColor read FMinimapTooltipBorder write FMinimapTooltipBorder;
103     property StateChanged: TColor read FStateChanged write FStateChanged;
104     property StateAdded: TColor read FStateAdded write FStateAdded;
105     property StateSaved: TColor read FStateSaved write FStateSaved;
106     property BlockStaple: TColor read FBlockStaple write FBlockStaple;
107     property BlockStapleForCaret: TColor read FBlockStapleForCaret write FBlockStapleForCaret;
108     property BlockSepLine: TColor read FBlockSepLine write FBlockSepLine;
109     property Links: TColor read FLinks write FLinks;
110     property LockedBG: TColor read FLockedBG write FLockedBG;
111     property TextHintFont: TColor read FTextHintFont write FTextHintFont;
112     property MarkedLinesBG: TColor read FMarkedLinesBG write FMarkedLinesBG;
113     property BorderLine: TColor read FBorderLine write FBorderLine;
114     property BorderLineFocused: TColor read FBorderLineFocused write FBorderLineFocused;
115     property BorderParentBG: TColor read FBorderParentBG write FBorderParentBG;
116     property ComboboxArrow: TColor read FComboboxArrow write FComboboxArrow;
117     property ComboboxArrowBG: TColor read FComboboxArrowBG write FComboboxArrowBG;
118   end;
119 
120 procedure InitDefaultColors(C: TATEditorColors);
121 
122 
123 implementation
124 
125 procedure InitDefaultColors(C: TATEditorColors);
126 begin
127   C.TextFont:= clBlack;
128   C.TextBG:= clWhite;
129   C.TextSelFont:= clHighlightText;
130   C.TextSelBG:= clHighlight;
131   C.TextDisabledFont:= clGray;
132   C.TextDisabledBG:= $f0f0f0;
133   C.Caret:= clBlack;
134   C.Markers:= $0000c0;
135   C.GutterFont:= clGray;
136   C.GutterBG:= $e0e0e0;
137   C.GutterCaretFont:= clGray;
138   C.GutterCaretBG:= $c8c8c8;
139   C.GutterFoldLine:= clGray;
140   C.GutterFoldLine2:= $904040;
141   C.GutterFoldBG:= $c8c8c8;
142   C.GutterSeparatorBG:= clBlack;
143   C.CurrentLineBG:= $d0f0d0;
144   C.BookmarkBG:= clMoneyGreen;
145   C.RulerBG:= C.GutterBG;
146   C.RulerFont:= clGray;
147   C.CollapseLine:= $a06060;
148   C.CollapseMarkFont:= $e08080;
149   C.CollapseMarkBG:= clCream;
150   C.CollapseMarkBorder:= $e08080;
151   C.MarginRight:= clLtGray;
152   C.MarginCaret:= clLime;
153   C.MarginUser:= clYellow;
154   C.IndentVertLines:= clMedGray;
155   C.UnprintedFont:= $5050f0;
156   C.UnprintedBG:= $e0e0e0;
157   C.UnprintedHexFont:= clMedGray;
158   C.MinimapBorder:= clLtGray;
159   C.MinimapSelBG:= $eeeeee;
160   C.MinimapTooltipBG:= clMoneyGreen;
161   C.MinimapTooltipBorder:= clGray;
162   C.StateChanged:= $00f0f0;
163   C.StateAdded:= $20c020;
164   C.StateSaved:= clMedGray;
165   C.TextHintFont:= clGray;
166   C.BlockStaple:= clMedGray;
167   C.BlockStapleForCaret:= clNone;
168   C.BlockSepLine:= clMedGray;
169   C.Links:= clBlue;
170   C.LockedBG:= $e0e0e0;
171   C.MarkedLinesBG:= $f0e0b0;
172   C.BorderLine:= clMedGray;
173   C.BorderLineFocused:= clNavy;
174   C.BorderParentBG:= clWindow;
175   C.ComboboxArrow:= clGray;
176   C.ComboboxArrowBG:= $f0f0f0;
177 end;
178 
179 end.
180 
181