fine tweaks for first run on Windows

This commit is contained in:
Basile Burg 2017-07-14 04:42:34 +02:00
parent b481e14fbe
commit 06b28abc23
2 changed files with 6 additions and 2 deletions

View File

@ -194,7 +194,7 @@ begin
fPhobosDocRoot := 'https://dlang.org/phobos/';
fFont := TFont.Create;
{$IFDEF WINDOWS}
fFont.Name := 'Courier New';
fFont.Name := 'Consolas';
{$ELSE}
fFont.Name := 'DejaVu Sans Mono';
{$ENDIF}

View File

@ -256,7 +256,11 @@ constructor TCEMessagesOptions.Create(AOwner: TComponent);
begin
inherited;
fFont := TFont.Create;
fAutoSelect:=true;
fFont.Style := [fsBold];
{$IFDEF WINDOWS}
fFont.name := 'Consolas';
{$ENDIF}
fAutoSelect :=true;
fMaxCount := 1000;
fMsgColors[amkBub] := $FCE7D2;
fMsgColors[amkWarn]:= $B3FFFF;