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