paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE Options: allow to set colors for messages in message window by urgency. / apply without restart

Browse Source 
git-svn-id: trunk@48792 -
This commit is contained in:
martin 2015-04-20 22:19:59 +00:00
parent 4a53660e71
commit 6e096446a7
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/etmessageframe.pas
View File

@ -2441,6 +2441,19 @@ var
end;
begin
UrgencyStyles[mluNone].Color := EnvironmentOptions.MsgColors[mluNone];
UrgencyStyles[mluProgress].Color := EnvironmentOptions.MsgColors[mluProgress];
UrgencyStyles[mluDebug].Color := EnvironmentOptions.MsgColors[mluDebug];
UrgencyStyles[mluVerbose3].Color := EnvironmentOptions.MsgColors[mluVerbose3];
UrgencyStyles[mluVerbose2].Color := EnvironmentOptions.MsgColors[mluVerbose2];
UrgencyStyles[mluVerbose].Color := EnvironmentOptions.MsgColors[mluVerbose];
UrgencyStyles[mluHint].Color := EnvironmentOptions.MsgColors[mluHint];
UrgencyStyles[mluNote].Color := EnvironmentOptions.MsgColors[mluNote];
UrgencyStyles[mluWarning].Color := EnvironmentOptions.MsgColors[mluWarning];
UrgencyStyles[mluImportant].Color := EnvironmentOptions.MsgColors[mluImportant];
UrgencyStyles[mluError].Color := EnvironmentOptions.MsgColors[mluError];
UrgencyStyles[mluFatal].Color := EnvironmentOptions.MsgColors[mluFatal];
UrgencyStyles[mluPanic].Color := EnvironmentOptions.MsgColors[mluPanic];
BackgroundColor:=EnvironmentOptions.MsgViewColors[mwBackground];
AutoHeaderBackground:=EnvironmentOptions.MsgViewColors[mwAutoHeader];
HeaderBackground[lmvtsRunning]:=EnvironmentOptions.MsgViewColors[mwRunning];