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

IDE, Watches: Allow dragging expressions from source edit. Issue #023368

Browse Source 
git-svn-id: trunk@58524 -
This commit is contained in:
martin 2018-07-14 21:37:01 +00:00
parent 81b75932ab
commit 5e5ba12237
2 changed files with 44 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
debugger/watchesdlg.lfm
View File

@ -1,4 +1,4 @@
inherited WatchesDlg: TWatchesDlg
object WatchesDlg: TWatchesDlg
Left = 321
Height = 200
Top = 437
@ -14,7 +14,8 @@ inherited WatchesDlg: TWatchesDlg
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnShow = FormShow
object lvWatches: TListView[0]
LCLVersion = '1.9.0.0'
object lvWatches: TListView
Left = 0
Height = 174
Top = 26
@ -38,9 +39,11 @@ inherited WatchesDlg: TWatchesDlg
TabOrder = 0
ViewStyle = vsReport
OnDblClick = lvWatchesDblClick
OnDragDrop = lvWatchesDragDrop
OnDragOver = lvWatchesDragOver
OnSelectItem = lvWatchesSelectItem
end
object ToolBar1: TToolBar[1]
object ToolBar1: TToolBar
Left = 0
Height = 26
Top = 0
@ -58,8 +61,8 @@ inherited WatchesDlg: TWatchesDlg
end
object ToolButton2: TToolButton
Left = 24
Height = 22
Top = 2
Width = 5
Caption = 'ToolButton2'
Style = tbsDivider
end
@ -80,8 +83,8 @@ inherited WatchesDlg: TWatchesDlg
end
object ToolButton6: TToolButton
Left = 121
Height = 22
Top = 2
Width = 5
Caption = 'ToolButton6'
Style = tbsDivider
end
@ -102,8 +105,8 @@ inherited WatchesDlg: TWatchesDlg
end
object ToolButton10: TToolButton
Left = 195
Height = 22
Top = 2
Width = 5
Caption = 'ToolButton10'
Style = tbsDivider
end
@ -124,7 +127,7 @@ inherited WatchesDlg: TWatchesDlg
Style = tbsCheck
end
end
object InspectSplitter: TSplitter[2]
object InspectSplitter: TSplitter
Left = 295
Height = 174
Top = 26
@ -133,7 +136,7 @@ inherited WatchesDlg: TWatchesDlg
ResizeAnchor = akRight
Visible = False
end
object nbInspect: TNotebook[3]
object nbInspect: TNotebook
Left = 300
Height = 174
Top = 26
@ -165,7 +168,7 @@ inherited WatchesDlg: TWatchesDlg
end
end
end
object mnuPopup: TPopupMenu[4]
object mnuPopup: TPopupMenu
left = 100
top = 96
object popAdd: TMenuItem
@ -217,7 +220,7 @@ inherited WatchesDlg: TWatchesDlg
Action = actCopyValue
end
end
object ActionList1: TActionList[5]
object ActionList1: TActionList
left = 184
top = 88
object actPower: TAction

34
debugger/watchesdlg.pp
View File

@ -39,9 +39,10 @@ interface
uses
Classes, Forms, Controls, math, sysutils, LazLoggerBase, Clipbrd,
IDEWindowIntf, Menus, ComCtrls, ActnList, ExtCtrls, StdCtrls, LCLType, IDEImagesIntf,
LazarusIDEStrConsts, DebuggerStrConst, Debugger, DebuggerDlg,
DbgIntfBaseTypes, DbgIntfDebuggerBase, DbgIntfMiscClasses, BaseDebugManager;
IDEWindowIntf, Menus, ComCtrls, ActnList, ExtCtrls, StdCtrls, LCLType,
IDEImagesIntf, LazarusIDEStrConsts, DebuggerStrConst, Debugger, DebuggerDlg,
DbgIntfBaseTypes, DbgIntfDebuggerBase, DbgIntfMiscClasses, SynEdit,
BaseDebugManager;
type
@ -121,6 +122,9 @@ type
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure lvWatchesDblClick(Sender: TObject);
procedure lvWatchesDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure lvWatchesDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure lvWatchesSelectItem(Sender: TObject; {%H-}AItem: TListItem; {%H-}Selected: Boolean);
procedure popAddClick(Sender: TObject);
procedure popPropertiesClick(Sender: TObject);
@ -413,6 +417,30 @@ begin
popAddClick(Sender);
end;
procedure TWatchesDlg.lvWatchesDragDrop(Sender, Source: TObject; X, Y: Integer);
var
s: String;
NewWatch: TCurrentWatch;
begin
s := '';
if (Source is TSynEdit) then s := TSynEdit(Source).SelText;
if (Source is TCustomEdit) then s := TCustomEdit(Source).SelText;
if s <> '' then begin
NewWatch := DebugBoss.Watches.CurrentWatches.Add(s);
NewWatch.DisplayFormat := wdfDefault;
NewWatch.EvaluateFlags := [defClassAutoCast];
NewWatch.Enabled := True;
end;
end;
procedure TWatchesDlg.lvWatchesDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := ( (Source is TSynEdit) and (TSynEdit(Source).SelAvail) ) or
( (Source is TCustomEdit) and (TCustomEdit(Source).SelText <> '') );
end;
procedure TWatchesDlg.FormDestroy(Sender: TObject);
begin
//DebugLn('TWatchesDlg.FormDestroy ',DbgSName(Self));