paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +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
RESULTSEPARATOR='-----------';
RESULTEVAL='>>>> ';
RESULTMOD='<<>> ';
{ TEvaluateDlg }

4
debugger/inspectdlg.pas
View File

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

3
debugger/processdebugger.pp
View File

@ -54,7 +54,8 @@ type
function ProcessStop: Boolean;
protected
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
class function Caption: String; 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 GetPidFile: string;
function IsLazarusPIDRunning(aPID: int64): boolean;
function IsLazarusPIDRunning({%H-}aPID: int64): boolean;
function GetRemoteControlFilename: string;
procedure CleanUpPIDFile;

4
ide/main.pp
View File

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