paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:29:37 +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 protected
procedure SendCommandDataToGDB(AQueue: TGDBInstructionQueue); override; procedure SendCommandDataToGDB(AQueue: TGDBInstructionQueue); override;
function ProcessInputFromGdb(const AData: String): Boolean; override; function ProcessInputFromGdb(const AData: String): Boolean; override;
procedure HandleError(AnError: TGDBInstructionErrorFlag; AMarkAsFailed: Boolean = True);
override;
function DebugText: String; function DebugText: String;
public public
constructor Create(AQueue: TGDBInstructionQueue; AFrame: Integer); constructor Create(AQueue: TGDBInstructionQueue; AFrame: Integer);
procedure HandleError(AnError: TGDBInstructionErrorFlag; AMarkAsFailed: Boolean = True);
override;
end; end;
{ TGDBInstructionQueue } { TGDBInstructionQueue }

3
ide/comppagespopup.pas
View File

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