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

IDE: less hints

Browse Source 
git-svn-id: trunk@42606 -
This commit is contained in:
mattias 2013-09-05 10:09:30 +00:00
parent 69ec5e3d47
commit 68f770207b
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebuginstructions.pp
View File

@ -167,11 +167,11 @@ type
protected
procedure SendCommandDataToGDB(AQueue: TGDBInstructionQueue); override;
function ProcessInputFromGdb(const AData: String): Boolean; override;
procedure HandleError(AnError: TGDBInstructionErrorFlag; AMarkAsFailed: Boolean = True);
override;
function DebugText: String;
public
constructor Create(AQueue: TGDBInstructionQueue; AFrame: Integer);
procedure HandleError(AnError: TGDBInstructionErrorFlag; AMarkAsFailed: Boolean = True);
override;
end;
{ TGDBInstructionQueue }

3
ide/comppagespopup.pas
View File

@ -156,13 +156,12 @@ end;
procedure TDlgCompPagesPopup.BuildList;
var
i: integer;
Node: TTreeNode;
begin
TreeView1.Items.Clear;
TreeView1.BeginUpdate;
if MainIDEBar.ComponentPageControl=nil then
begin
Node:=TreeView1.Items.AddChild(nil,'Sorry, NO Pages');
TreeView1.Items.AddChild(nil,'Sorry, NO Pages');
Exit;
end;
fGroups := TStringList.Create;