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

EditoEditorOptions: Preview Colors in list, fixed default color for line number gutter

Browse Source 
git-svn-id: trunk@21173 -
This commit is contained in:
martin 2009-08-11 18:41:36 +00:00
parent 593ac3c798
commit ea63b8ecb3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_color_options.pas
View File

@ -245,7 +245,7 @@ begin
//(ahaSupportedFeatures[TAdditionalHilightAttribute(AttriIdx)].BG) ) // if no BG, then FG was used
then begin
c := Attri.Foreground;
if (c = clDefault) or (c = clNone) then
if ((c = clDefault) or (c = clNone)) and not (AttriIdx = ord(ahaLineNumber)) then
c := Scheme.Default.FG;
if (c = clNone) or (c = clDefault) then
c := ColorPreview.Font.Color;