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/'; fPhobosDocRoot := 'https://dlang.org/phobos/';
fFont := TFont.Create; fFont := TFont.Create;
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
fFont.Name := 'Courier New'; fFont.Name := 'Consolas';
{$ELSE} {$ELSE}
fFont.Name := 'DejaVu Sans Mono'; fFont.Name := 'DejaVu Sans Mono';
{$ENDIF} {$ENDIF}

View File

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