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