Permalink
Browse files

Log.Msg의 ErCondition 이 True일 경우 Error 가 아니라 Red Msg가 찍히도록 수정

  • Loading branch information...
1 parent 55908b3 commit ff8676fc3ecf5ba2d56b3174869631cfb93c2fa2 @gomsun2 committed Feb 14, 2014
Showing with 2 additions and 1 deletion.
  1. +2 −1 source/utils/mLog.CodeSite.pas
@@ -90,6 +90,7 @@ implementation
cmsSuccess = csmYellow;
csmSnd = csmViolet;
csmRcv = csmGreen;
+ csmMsgError = csmRed;
procedure TLogCodeSite.BeginUpdate;
begin
@@ -183,7 +184,7 @@ procedure TLogCodeSite.Msg(const AErCondition: Boolean; const AMsg: String);
if AErCondition then
CodeSite.SendMsg(cmsSuccess, AMsg)
else
- Error(AMsg);
+ CodeSite.SendMsg(csmMsgError, AMsg);
end;
procedure TLogCodeSite.Msg(const AErCondition: Boolean; const AMsg: String;

0 comments on commit ff8676f

Please sign in to comment.