"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/proc_colors.pas" between
CudaText-1.92.0.tar.gz and CudaText-1.93.0.tar.gz

About: CudaText is a cross-platform text editor (written in Lazarus).

proc_colors.pas  (CudaText-1.92.0):proc_colors.pas  (CudaText-1.93.0)
skipping to change at line 32 skipping to change at line 32
proc_globdata, proc_globdata,
proc_lexer_styles; proc_lexer_styles;
type type
TAppColor = record TAppColor = record
color: TColor; color: TColor;
name, desc: string; name, desc: string;
end; end;
TAppTheme = record TAppTheme = record
Colors: array of TAppColor; Colors: array of TAppColor;
Styles: TList; Styles: TFPList;
end; end;
var var
AppTheme: TAppTheme; AppTheme: TAppTheme;
AppStyleBrackets: TecSyntaxFormat = nil; AppStyleBrackets: TecSyntaxFormat = nil;
AppStyleSymbols: TecSyntaxFormat = nil; AppStyleSymbols: TecSyntaxFormat = nil;
AppStyleId2: TecSyntaxFormat = nil; AppStyleId2: TecSyntaxFormat = nil;
AppStyleError: TecSyntaxFormat = nil; AppStyleError: TecSyntaxFormat = nil;
type type
skipping to change at line 171 skipping to change at line 171
nColorBorder = $b0b0b0; nColorBorder = $b0b0b0;
nColorListBack = $c4b8b8; nColorListBack = $c4b8b8;
nColorListSelBack = $d0d0d0; nColorListSelBack = $d0d0d0;
nColorListSelBack2 = $f4f4f4; nColorListSelBack2 = $f4f4f4;
begin begin
SetLength(D.Colors, 0); SetLength(D.Colors, 0);
if Assigned(D.Styles) then if Assigned(D.Styles) then
D.Styles.Clear D.Styles.Clear
else else
D.Styles:= TList.Create; D.Styles:= TFPList.Create;
//add colors //add colors
Add(nColorText, 'EdTextFont', 'editor, font'); Add(nColorText, 'EdTextFont', 'editor, font');
Add(nColorBack, 'EdTextBg', 'editor, BG'); Add(nColorBack, 'EdTextBg', 'editor, BG');
Add($e0e0e0, 'EdSelFont', 'editor, selection, font'); Add($e0e0e0, 'EdSelFont', 'editor, selection, font');
Add($b0a0a0, 'EdSelBg', 'editor, selection, BG'); Add($b0a0a0, 'EdSelBg', 'editor, selection, BG');
Add(clGray, 'EdDisableFont', 'editor, disabled state, font'); Add(clGray, 'EdDisableFont', 'editor, disabled state, font');
Add(nColorGutterBack, 'EdDisableBg', 'editor, disabled state, BG'); Add(nColorGutterBack, 'EdDisableBg', 'editor, disabled state, BG');
Add($c05050, 'EdLinks', 'editor, links'); Add($c05050, 'EdLinks', 'editor, links');
Add(nColorGutterBack, 'EdLockedBg', 'editor, locked state, BG'); Add(nColorGutterBack, 'EdLockedBg', 'editor, locked state, BG');
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)