paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 09:05:58 +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 GetValue(const AThreadId: Integer; const AStackFrame: Integer): TIdeWatchValue;
function GetAnyValidParentWatchValue(AThreadId: Integer; AStackFrame: Integer): TIdeWatchValue; function GetAnyValidParentWatchValue(AThreadId: Integer; AStackFrame: Integer): TIdeWatchValue;
function GetWatchDisplayName: String; function GetWatchDisplayName: String;
procedure SetDisplayName(AValue: String); reintroduce;
protected protected
procedure InitChildWatches; procedure InitChildWatches;
function CreateChildWatches: TIdeWatches; virtual; function CreateChildWatches: TIdeWatches; virtual;
@ -628,7 +629,7 @@ type
function HasAllValidParents(AThreadId: Integer; AStackFrame: Integer): boolean; function HasAllValidParents(AThreadId: Integer; AStackFrame: Integer): boolean;
property ParentWatch: TIdeWatch read FParentWatch; property ParentWatch: TIdeWatch read FParentWatch;
property TopParentWatch: TIdeWatch read GetTopParentWatch; property TopParentWatch: TIdeWatch read GetTopParentWatch;
property DisplayName: String read GetWatchDisplayName write FDisplayName; property DisplayName: String read GetWatchDisplayName write SetDisplayName;
public public
property Values[const AThreadId: Integer; const AStackFrame: Integer]: TIdeWatchValue property Values[const AThreadId: Integer; const AStackFrame: Integer]: TIdeWatchValue
read GetValue; read GetValue;
@ -6483,6 +6484,13 @@ begin
Result := FExpression; Result := FExpression;
end; end;
procedure TIdeWatch.SetDisplayName(AValue: String);
begin
FDisplayName := AValue;
Changed;
DoModified;
end;
procedure TIdeWatch.SetParentWatch(AValue: TIdeWatch); procedure TIdeWatch.SetParentWatch(AValue: TIdeWatch);
begin begin
if FParentWatch = AValue then Exit; if FParentWatch = AValue then Exit;