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

Debugger: Watches-dialog, fixed DisplayName after drag and drop

Browse Source
This commit is contained in:
Martin 2023-03-17 21:24:56 +01:00
parent 42fd1bf230
commit f0a22e1596
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/packages/idedebugger/debugger.pp
View File

@ -600,6 +600,7 @@ type
function GetValue(const AThreadId: Integer; const AStackFrame: Integer): TIdeWatchValue;
function GetAnyValidParentWatchValue(AThreadId: Integer; AStackFrame: Integer): TIdeWatchValue;
function GetWatchDisplayName: String;
procedure SetDisplayName(AValue: String); reintroduce;
protected
procedure InitChildWatches;
function CreateChildWatches: TIdeWatches; virtual;
@ -628,7 +629,7 @@ type
function HasAllValidParents(AThreadId: Integer; AStackFrame: Integer): boolean;
property ParentWatch: TIdeWatch read FParentWatch;
property TopParentWatch: TIdeWatch read GetTopParentWatch;
property DisplayName: String read GetWatchDisplayName write FDisplayName;
property DisplayName: String read GetWatchDisplayName write SetDisplayName;
public
property Values[const AThreadId: Integer; const AStackFrame: Integer]: TIdeWatchValue
read GetValue;
@ -6483,6 +6484,13 @@ begin
Result := FExpression;
end;
procedure TIdeWatch.SetDisplayName(AValue: String);
begin
FDisplayName := AValue;
Changed;
DoModified;
end;
procedure TIdeWatch.SetParentWatch(AValue: TIdeWatch);
begin
if FParentWatch = AValue then Exit;