paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 00:37:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed msg window hint count

Browse Source 
git-svn-id: trunk@45129 -
This commit is contained in:
mattias 2014-05-21 10:39:00 +00:00
parent 964b5dbd68
commit 2102263e10
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/ideexterntoolintf.pas
View File

@ -1524,8 +1524,6 @@ var
begin
if (SrcLines=nil) or (SrcLines=Self) or (SrcLines.Count=0) then exit;
SrcLines.FSortedForSrcPos.Clear;
for u:=low(TMessageLineUrgency) to high(TMessageLineUrgency) do
UrgencyCounts[u]:=0;
for i:=0 to SrcLines.Count-1 do begin
MsgLine:=SrcLines[i];
//debugln(['TMessageLines.FetchAll ',MsgLine.Msg]);
@ -1536,6 +1534,8 @@ begin
LineChanged(MsgLine);
end;
SrcLines.fItems.Clear;
for u:=low(TMessageLineUrgency) to high(TMessageLineUrgency) do
SrcLines.UrgencyCounts[u]:=0;
IncreaseChangeStamp;
end;

3
ide/etmessageframe.pas
View File

@ -391,7 +391,6 @@ type
SearchNextSpeedButton: TSpeedButton;
SearchPanel: TPanel;
SearchPrevSpeedButton: TSpeedButton;
ShowIDMenuItem: TMenuItem;
procedure AboutToolMenuItemClick(Sender: TObject);
procedure AddFilterMenuItemClick(Sender: TObject);
procedure ClearHideMsgTypesMenuItemClick(Sender: TObject);
@ -3166,7 +3165,7 @@ end;
procedure TMessagesFrame.ShowIDMenuItemClick(Sender: TObject);
begin
if ShowIDMenuItem.Checked then
if MsgShowIDMenuItem.Checked then
MessagesCtrl.Options:=MessagesCtrl.Options+[mcoShowMessageID]
else
MessagesCtrl.Options:=MessagesCtrl.Options-[mcoShowMessageID];