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

IDE: Eliminate a warning about hiding inherited "Update" in MessageView. Formatting.

Browse Source
This commit is contained in:
Juha 2023-06-24 17:45:56 +03:00
parent 640eca41e2
commit fd12aa4370
1 changed files with 6 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/etmessageframe.pas
View File

@ -214,7 +214,6 @@ type
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure OnFilterChanged(Sender: TObject);
function GetPageScroll: integer;
function Updating: boolean;
protected
FViews: TFPList;// list of TMessagesViewMap
FStates: TMsgCtrlStates;
@ -762,24 +761,21 @@ var
MsgLine: TMessageLine;
s: string;
begin
Result:='';
if Assigned(Self) then
begin
Result := '';
if Self=nil then Exit;
MsgLine := nil;
if aHintLastLine<0 then
Result := Control.GetHeaderText(Self)
else if aHintLastLine<Self.Lines.Count then
else if aHintLastLine < Lines.Count then
MsgLine := Lines[aHintLastLine]
else
MsgLine := ProgressLine;
if MsgLine<>nil then begin
Result := Control.GetLineText(MsgLine);
s:= ExternalToolList.GetMsgHint(MsgLine.SubTool, MsgLine.MsgID);
s := ExternalToolList.GetMsgHint(MsgLine.SubTool, MsgLine.MsgID);
if s<>'' then
Result += LineEnding+LineEnding + s;
end;
end;
end;
procedure TLMsgWndView.QueueAsyncOnChanged;
@ -827,8 +823,7 @@ begin
Result:=GetShownLineCount(true,true)>0;
end;
function TLMsgWndView.GetShownLineCount(WithHeader, WithProgressLine: boolean
): integer;
function TLMsgWndView.GetShownLineCount(WithHeader, WithProgressLine: boolean): integer;
begin
Result:=Lines.Count;
// the header is only shown if there SummaryMsg<>'' or ProgressLine.Msg<>'' or Lines.Count>0
@ -1478,11 +1473,6 @@ begin
{$ENDIF}
end;
function TMessagesCtrl.Updating: boolean;
begin
Result := fUpdateLock > 0;
end;
function TMessagesCtrl.GetSelectedLine: integer;
// Return the first selected line number.
begin
@ -2784,7 +2774,7 @@ end;
procedure TMessagesCtrl.MsgCtrlShowHint(Sender: TObject; HintInfo: PHintInfo);
begin
if Updating then
if fUpdateLock > 0 then
exit;
{ No selected 'view' or not specified line }
if not Assigned(FHintLastView) or (FHintLastLine = cNotALineHint) then begin