paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 08:19:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

adding a watch item from the sourceeditor enables the items directly from Darius

Browse Source 
git-svn-id: trunk@8773 -
This commit is contained in:
mattias 2006-02-18 15:23:10 +00:00
parent 9fce6cebd5
commit f96d5431af
3 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/watchesdlg.lfm
View File

@ -7,7 +7,7 @@ object WatchesDlg: TWatchesDlg
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 112
PixelsPerInch = 96
HorzScrollBar.Page = 499
VertScrollBar.Page = 199
Left = 321
@ -28,6 +28,7 @@ object WatchesDlg: TWatchesDlg
MultiSelect = True
PopupMenu = mnuPopup
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnDblClick = lvWatchesDblClick
OnMouseDown = lvWatchesMouseDown

30
debugger/watchesdlg.lrs
View File

@ -4,23 +4,23 @@ LazarusResources.Add('TWatchesDlg','FORMDATA',[
'TPF0'#11'TWatchesDlg'#10'WatchesDlg'#13'ActiveControl'#7#9'lvWatches'#7'Capt'
+'ion'#6#10'Watch list'#12'ClientHeight'#3#200#0#11'ClientWidth'#3#244#1#7'On'
+'Close'#7#9'FormClose'#12'OnCloseQuery'#7#14'FormCloseQuery'#8'OnCreate'#7#10
+'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#13'PixelsPerInch'#2'p'#18'HorzSc'
+'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#13'PixelsPerInch'#2'`'#18'HorzSc'
+'rollBar.Page'#3#243#1#18'VertScrollBar.Page'#3#199#0#4'Left'#3'A'#1#6'Heigh'
+'t'#3#200#0#3'Top'#3#181#1#5'Width'#3#244#1#0#9'TListView'#9'lvWatches'#5'Al'
+'ign'#7#8'alClient'#7'Columns'#14#1#7'Caption'#6#10'Expression'#5'Width'#2#10
+#0#1#7'Caption'#6#5'Value'#5'Width'#2#10#0#0#11'MultiSelect'#9#9'PopupMenu'#7
+#8'mnuPopup'#9'RowSelect'#9#9'ViewStyle'#7#8'vsReport'#10'OnDblClick'#7#17'l'
+'vWatchesDblClick'#11'OnMouseDown'#7#18'lvWatchesMouseDown'#9'OnKeyDown'#7#16
+'lvWatchesKeyDown'#12'OnSelectItem'#7#19'lvWatchesSelectItem'#6'Height'#3#200
+#0#5'Width'#3#244#1#0#0#10'TPopupMenu'#8'mnuPopup'#4'left'#2'd'#3'top'#2'`'#0
+#9'TMenuItem'#6'popAdd'#7'Caption'#6#4'&Add'#7'OnClick'#7#11'popAddClick'#0#0
+#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'popProperties'#7'C'
+'aption'#6#11'&Properties'#7'OnClick'#7#18'popPropertiesClick'#0#0#9'TMenuIt'
+'em'#10'popEnabled'#7'Caption'#6#8'&Enabled'#7'OnClick'#7#15'popEnabledClick'
+#0#0#9'TMenuItem'#9'popDelete'#7'Caption'#6#7'&Delete'#7'OnClick'#7#14'popDe'
+'leteClick'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'pop'
+'DisableAll'#7'Caption'#6#12'D&isable All'#7'OnClick'#7#18'popDisableAllClic'
+'k'#0#0#9'TMenuItem'#12'popEnableAll'#7'Caption'#6#11'E&nable All'#7'OnClick'
+#7#17'popEnableAllClick'#0#0#9'TMenuItem'#12'popDeleteAll'#7'Caption'#6#11'D'
+'e&lete All'#7'OnClick'#7#17'popDeleteAllClick'#0#0#0#0
+#8'mnuPopup'#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#10'On'
+'DblClick'#7#17'lvWatchesDblClick'#11'OnMouseDown'#7#18'lvWatchesMouseDown'#9
+'OnKeyDown'#7#16'lvWatchesKeyDown'#12'OnSelectItem'#7#19'lvWatchesSelectItem'
+#6'Height'#3#200#0#5'Width'#3#244#1#0#0#10'TPopupMenu'#8'mnuPopup'#4'left'#2
+'d'#3'top'#2'`'#0#9'TMenuItem'#6'popAdd'#7'Caption'#6#4'&Add'#7'OnClick'#7#11
+'popAddClick'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'p'
+'opProperties'#7'Caption'#6#11'&Properties'#7'OnClick'#7#18'popPropertiesCli'
+'ck'#0#0#9'TMenuItem'#10'popEnabled'#7'Caption'#6#8'&Enabled'#7'OnClick'#7#15
+'popEnabledClick'#0#0#9'TMenuItem'#9'popDelete'#7'Caption'#6#7'&Delete'#7'On'
+'Click'#7#14'popDeleteClick'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9
+'TMenuItem'#13'popDisableAll'#7'Caption'#6#12'D&isable All'#7'OnClick'#7#18
+'popDisableAllClick'#0#0#9'TMenuItem'#12'popEnableAll'#7'Caption'#6#11'E&nab'
+'le All'#7'OnClick'#7#17'popEnableAllClick'#0#0#9'TMenuItem'#12'popDeleteAll'
+#7'Caption'#6#11'De&lete All'#7'OnClick'#7#17'popDeleteAllClick'#0#0#0#0
]);

5
debugger/watchesdlg.pp
View File

@ -294,6 +294,7 @@ end;
procedure TWatchesDlg.WatchAdd(const ASender: TIDEWatches; const AWatch: TIDEWatch);
var
Item: TListItem;
Watch: TIDEWatch;
begin
Item := lvWatches.Items.FindData(AWatch);
if Item = nil
@ -301,7 +302,11 @@ begin
Item := lvWatches.Items.Add;
Item.Data := AWatch;
Item.SubItems.Add('');
Item.Selected := True;
end;
Watch := GetSelected;
if Watch <> nil then Watch.Enabled := True;
UpdateItem(Item, AWatch);
end;