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

IDE: less hints

Browse Source 
git-svn-id: trunk@54040 -
This commit is contained in:
mattias 2017-01-31 09:53:55 +00:00
parent e9ced20496
commit 16c9d3da82
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
debugger/debugger.pp
View File

@ -684,7 +684,7 @@ type
procedure SetSnapShot(const AValue: TIdeWatchValue);
protected
procedure RequestData; override;
procedure DoDataValidityChanged(AnOldValidity: TDebuggerDataState); override;
procedure DoDataValidityChanged({%H-}AnOldValidity: TDebuggerDataState); override;
public
property SnapShot: TIdeWatchValue read FSnapShot write SetSnapShot;
end;
@ -821,7 +821,7 @@ type
APath: string);
public
constructor CreateFromXMLConfig(const AConfig: TXMLConfig; APath: string);
procedure SetDataValidity(AValidity: TDebuggerDataState); override;
procedure SetDataValidity({%H-}AValidity: TDebuggerDataState); override;
end;
{ TCurrentLocals }
@ -974,7 +974,7 @@ type
TIDERegisterValue = class(TRegisterValue)
protected
procedure DoDataValidityChanged(AnOldValidity: TDebuggerDataState); override;
procedure DoDisplayFormatChanged(AnOldFormat: TRegisterDisplayFormat); override;
procedure DoDisplayFormatChanged({%H-}AnOldFormat: TRegisterDisplayFormat); override;
end;
{ TIDERegisters }
@ -1147,10 +1147,10 @@ type
public
procedure DoEntriesCreated; override;
procedure DoEntriesUpdated; override;
procedure SetCountValidity(AValidity: TDebuggerDataState); override;
procedure SetHasAtLeastCountInfo(AValidity: TDebuggerDataState; AMinCount: Integer = - 1);
procedure SetCountValidity({%H-}AValidity: TDebuggerDataState); override;
procedure SetHasAtLeastCountInfo({%H-}AValidity: TDebuggerDataState; {%H-}AMinCount: Integer = - 1);
override;
procedure SetCurrentValidity(AValidity: TDebuggerDataState); override;
procedure SetCurrentValidity({%H-}AValidity: TDebuggerDataState); override;
public
constructor Create;
function CreateCopy: TCallStackBase; override;
@ -1399,7 +1399,7 @@ type
const AThreadId: Integer; const AThreadName: String;
const AThreadState: String;
AState: TDebuggerDataState = ddsValid): TThreadEntry; override;
procedure SetValidity(AValidity: TDebuggerDataState); override;
procedure SetValidity({%H-}AValidity: TDebuggerDataState); override;
property Entries[const AnIndex: Integer]: TIdeThreadEntry read GetEntry; default;
property EntryById[const AnID: Integer]: TIdeThreadEntry read GetEntryById;
end;