first exec, colorize the messages

This commit is contained in:
Basile Burg 2016-10-06 15:43:26 +02:00
parent 496d9cdf19
commit 87fe011b4b
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 10 additions and 5 deletions

View File

@ -192,6 +192,11 @@ begin
fFont := TFont.Create;
fAutoSelect:=true;
fMaxCount := 1000;
fMsgColors[amkBub] := $FCE7D2;
fMsgColors[amkWarn]:= $B3FFFF;
fMsgColors[amkErr] := $BDBDFF;
fMsgColors[amkInf] := $FFD0A8;
fMsgColors[amkHint]:= $C2FFC2;
end;
destructor TCEMessagesOptions.destroy;
@ -290,11 +295,11 @@ begin
//
inherited;
//
fMsgColors[amkBub] := clDefault;
fMsgColors[amkHint] := clDefault;
fMsgColors[amkInf] := clDefault;
fMsgColors[amkErr] := clDefault;
fMsgColors[amkWarn] := clDefault;
fMsgColors[amkBub] := $FCE7D2;
fMsgColors[amkWarn] := $B3FFFF;
fMsgColors[amkErr] := $BDBDFF;
fMsgColors[amkInf] := $FFD0A8;
fMsgColors[amkHint] := $C2FFC2;
//
updaterByLoopInterval := 12;
fOptions := TCEMessagesOptions.Create(Self);