paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:59:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@58265 -
This commit is contained in:
ondrej 2018-06-14 10:43:03 +00:00
parent eb3384c70e
commit 47c60bcd9e
5 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/evaluatedlg.pp
View File

@ -108,7 +108,6 @@ var
const const
RESULTSEPARATOR='-----------'; RESULTSEPARATOR='-----------';
RESULTEVAL='>>>> '; RESULTEVAL='>>>> ';
RESULTMOD='<<>> ';
{ TEvaluateDlg } { TEvaluateDlg }

4
debugger/inspectdlg.pas
View File

@ -83,14 +83,14 @@ type
FGridData: TStringGrid; FGridData: TStringGrid;
FGridMethods: TStringGrid; FGridMethods: TStringGrid;
FUpdateLock, FUpdateNeeded: Boolean; FUpdateLock, FUpdateNeeded: Boolean;
FTestUpdateLock, FTestUpdateNeeded: Boolean; FTestUpdateLock: Boolean;
FRowClicked: Integer; FRowClicked: Integer;
FHistory: TStringList; FHistory: TStringList;
FHistoryIndex: Integer; FHistoryIndex: Integer;
procedure EvaluateCallback(Sender: TObject; ASuccess: Boolean; procedure EvaluateCallback(Sender: TObject; ASuccess: Boolean;
ResultText: String; ResultDBGType: TDBGType); ResultText: String; ResultDBGType: TDBGType);
procedure EvaluateTestCallback(Sender: TObject; ASuccess: Boolean; procedure EvaluateTestCallback(Sender: TObject; ASuccess: Boolean;
ResultText: String; ResultDBGType: TDBGType); {%H-}ResultText: String; ResultDBGType: TDBGType);
procedure Localize; procedure Localize;
function ShortenedExpression: String; function ShortenedExpression: String;
procedure ContextChanged(Sender: TObject); procedure ContextChanged(Sender: TObject);

3
debugger/processdebugger.pp
View File

@ -54,7 +54,8 @@ type
function ProcessStop: Boolean; function ProcessStop: Boolean;
protected protected
function GetSupportedCommands: TDBGCommands; override; function GetSupportedCommands: TDBGCommands; override;
function RequestCommand(const ACommand: TDBGCommand; const AParams: array of const; const ACallback: TMethod): Boolean; override; function RequestCommand(const ACommand: TDBGCommand; const AParams: array of const;
const {%H-}ACallback: TMethod): Boolean; override;
public public
class function Caption: String; override; class function Caption: String; override;
class function NeedsExePath: boolean; override; class function NeedsExePath: boolean; override;

2
ide/ideguicmdline.pas
View File

@ -62,7 +62,7 @@ var
function SetupMainIDEInstance: boolean; // false if this is a secondary instance function SetupMainIDEInstance: boolean; // false if this is a secondary instance
function GetPidFile: string; function GetPidFile: string;
function IsLazarusPIDRunning(aPID: int64): boolean; function IsLazarusPIDRunning({%H-}aPID: int64): boolean;
function GetRemoteControlFilename: string; function GetRemoteControlFilename: string;
procedure CleanUpPIDFile; procedure CleanUpPIDFile;

4
ide/main.pp
View File

@ -11112,10 +11112,8 @@ procedure TMainIDE.SrcNotebookShowHintForSource(SrcEdit: TSourceEditor;
var var
ActiveUnitInfo: TUnitInfo; ActiveUnitInfo: TUnitInfo;
BaseURL, SmartHintStr, Expression, DebugEval, DebugEvalDerefer: String; BaseURL, SmartHintStr, Expression: String;
DBGType,DBGTypeDerefer: TDBGType;
HasHint: Boolean; HasHint: Boolean;
p: SizeInt;
Opts: TDBGEvaluateFlags; Opts: TDBGEvaluateFlags;
AtomStartPos, AtomEndPos: integer; AtomStartPos, AtomEndPos: integer;
AtomRect: TRect; AtomRect: TRect;