paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 12:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

added pascal classic colors from Christian

Browse Source 
git-svn-id: trunk@5527 -
This commit is contained in:
mattias 2004-05-29 17:29:39 +00:00
parent c1f1aa5d22
commit ad34327635
2 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/Contributors.txt
View File

@ -4,6 +4,7 @@ Andreas Hausladen
Andrew Haines
Andrew Johnson
Bob Wingard
Christian Iversen
Cliff Baeseman
Colin Western
Curtis White

54
ide/editoroptions.pp
View File

@ -1480,6 +1480,59 @@ begin
DefFGCol:=clBlack;
end;
end
else if lowercase(SynColorScheme)='pascal classic' then begin
// defaults for pascal classic color scheme
DefBGCol:=clNavy;
DefFGCol:=clYellow;
if AttriName='Assembler' then begin
DefBGCol:=clNone;
DefFGCol:=clLime;
end else if AttriName='Comment' then begin
DefBGCol:=clNone;
DefFGCol:=clSilver;
end else if AttriName='Directive' then begin
DefBGCol:=clNone;
DefFGCol:=clSilver;
end else if AttriName='Reserved word' then begin
DefBGCol:=clNone;
DefFGCol:=clWhite;
end else if AttriName='Number' then begin
DefBGCol:=clNone;
DefFGCol:=clYellow;
end else if AttriName='String' then begin
DefBGCol:=clNone;
DefFGCol:=clYellow;
end else if AttriName='Symbol' then begin
DefBGCol:=clNone;
DefFGCol:=clYellow;
end else if AttriName=AdditionalHighlightAttributes[ahaTextBlock] then begin
DefBGCol:=clBlue;
DefFGCol:=clWhite
end else if AttriName=AdditionalHighlightAttributes[ahaExecutionPoint]
then begin
DefBGCol:=clAqua;
DefFGCol:=clBlack;
end else if AttriName=AdditionalHighlightAttributes[ahaEnabledBreakpoint]
then begin
DefBGCol:=clRed;
DefFGCol:=clWhite;
end else if AttriName=AdditionalHighlightAttributes[ahaDisabledBreakpoint]
then begin
DefBGCol:=clLime;
DefFGCol:=clRed;
end else if AttriName=AdditionalHighlightAttributes[ahaInvalidBreakpoint]
then begin
DefBGCol:=clOlive;
DefFGCol:=clLime;
end else if AttriName=AdditionalHighlightAttributes[ahaUnknownBreakpoint]
then begin
DefBGCol:=clNone;
DefFGCol:=clNone;
end else if AttriName=AdditionalHighlightAttributes[ahaErrorLine] then begin
DefBGCol:=clMaroon;
DefFGCol:=clWhite;
end;
end
else if lowercase(SynColorScheme)='ocean' then begin
// default for ocean color scheme
DefBGCol:=clNavy;
@ -4405,6 +4458,7 @@ begin
BeginUpdate;
// ToDo: fill also with custom color schemes
Add(DefaultColorScheme);
Add('Pascal Classic');
Add('Twilight');
Add('Ocean');
EndUpdate;