Permalink
Browse files

Issue #8: convert system colors on SynEditors into their theme color …

…by code
  • Loading branch information...
ansgarbecker committed Oct 27, 2018
1 parent 3759611 commit 39fbdc7deabcd98e58b5b93ec20bb670bba414e3
Showing with 4 additions and 0 deletions.
  1. +4 −0 source/main.pas
@@ -11001,8 +11001,12 @@ procedure TMainform.SetupSynEditors;
for i:=0 to Editors.Count-1 do begin
Editor := Editors[i] as TSynMemo;
LogSQL('Setting up TSynMemo "'+Editor.Name+'"', lcDebug);
Editor.Color := GetThemeColor(clWindow);
Editor.ScrollHintColor := GetThemeColor(clInfoBk);
Editor.Font.Name := AppSettings.ReadString(asFontName);
Editor.Font.Size := AppSettings.ReadInt(asFontSize);
Editor.Gutter.BorderColor := GetThemeColor(clWindow);
Editor.Gutter.Color := GetThemeColor(clBtnFace);
Editor.Gutter.Font.Name := Editor.Font.Name;
Editor.Gutter.Font.Size := Editor.Font.Size;
Editor.Gutter.Font.Color := BaseEditor.Gutter.Font.Color;

0 comments on commit 39fbdc7

Please sign in to comment.