mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-08 16:38:17 +02:00
* patch #8301 (modified) from Flávio Etrusco:Make 'enable' and 'delete' commands act on muliple selection
git-svn-id: trunk@10752 -
This commit is contained in:
marc
parent
b5df97096a
commit
08595e6a3b
@ -1,17 +1,19 @@
|
||||
object BreakpointsDlg: TBreakpointsDlg
|
||||
Caption = 'Breakpoint list'
|
||||
ClientHeight = 205
|
||||
ClientWidth = 560
|
||||
OnCreate = BreakpointsDlgCREATE
|
||||
Visible = True
|
||||
HorzScrollBar.Page = 561
|
||||
VertScrollBar.Page = 206
|
||||
Left = 340
|
||||
inherited BreakpointsDlg: TBreakpointsDlg
|
||||
Left = 344
|
||||
Height = 205
|
||||
Top = 117
|
||||
Top = 153
|
||||
Width = 560
|
||||
HelpType = htKeyword
|
||||
HorzScrollBar.Page = 559
|
||||
VertScrollBar.Page = 204
|
||||
ActiveControl = lvBreakPoints
|
||||
Caption = 'Breakpoint list'
|
||||
OnCreate = BreakpointsDlgCREATE
|
||||
Visible = True
|
||||
object lvBreakPoints: TListView
|
||||
Height = 205
|
||||
Width = 560
|
||||
HelpType = htKeyword
|
||||
Align = alClient
|
||||
Columns = <
|
||||
item
|
||||
@ -38,17 +40,19 @@ object BreakpointsDlg: TBreakpointsDlg
|
||||
end
|
||||
item
|
||||
Caption = 'Group'
|
||||
Width = 0
|
||||
Width = 5
|
||||
end>
|
||||
MultiSelect = True
|
||||
PopupMenu = mnuPopup
|
||||
ReadOnly = True
|
||||
RowSelect = True
|
||||
SortColumn = 1
|
||||
SortType = stText
|
||||
TabOrder = 0
|
||||
ViewStyle = vsReport
|
||||
OnClick = lvBreakPointsClick
|
||||
OnColumnClick = lvBreakPointsColumnClick
|
||||
OnDblClick = lvBreakPointsDBLCLICK
|
||||
OnSelectItem = lvBreakPointsSelectItem
|
||||
Height = 205
|
||||
Width = 560
|
||||
HelpType = htKeyword
|
||||
end
|
||||
object mnuPopup: TPopupMenu
|
||||
OnPopup = mnuPopupPopup
|
||||
@ -79,11 +83,13 @@ object BreakpointsDlg: TBreakpointsDlg
|
||||
end
|
||||
object popEnabled: TMenuItem
|
||||
Caption = '&Enabled'
|
||||
ShortCut = 16462
|
||||
ShowAlwaysCheckable = True
|
||||
OnClick = popEnabledClick
|
||||
end
|
||||
object popDelete: TMenuItem
|
||||
Caption = '&Delete'
|
||||
ShortCut = 46
|
||||
OnClick = popDeleteClick
|
||||
end
|
||||
object N2: TMenuItem
|
||||
|
||||
@ -1,35 +1,39 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TBreakpointsDlg','FORMDATA',[
|
||||
'TPF0'#15'TBreakpointsDlg'#14'BreakpointsDlg'#7'Caption'#6#15'Breakpoint list'
|
||||
+#12'ClientHeight'#3#205#0#11'ClientWidth'#3'0'#2#8'OnCreate'#7#20'Breakpoint'
|
||||
+'sDlgCREATE'#7'Visible'#9#18'HorzScrollBar.Page'#3'1'#2#18'VertScrollBar.Pag'
|
||||
+'e'#3#206#0#4'Left'#3'T'#1#6'Height'#3#205#0#3'Top'#2'u'#5'Width'#3'0'#2#8'H'
|
||||
+'elpType'#7#9'htKeyword'#0#9'TListView'#13'lvBreakPoints'#5'Align'#7#8'alCli'
|
||||
+'ent'#7'Columns'#14#1#7'Caption'#6#5'State'#0#1#7'Caption'#6#16'Filename/Add'
|
||||
+'ress'#5'Width'#3#150#0#0#1#7'Caption'#6#11'Line/Length'#5'Width'#2'd'#0#1#7
|
||||
+'Caption'#6#9'Condition'#5'Width'#2'K'#0#1#7'Caption'#6#6'Action'#0#1#7'Capt'
|
||||
+'ion'#6#10'Pass Count'#5'Width'#2'd'#0#1#7'Caption'#6#5'Group'#5'Width'#2#0#0
|
||||
+#0#11'MultiSelect'#9#9'PopupMenu'#7#8'mnuPopup'#9'ViewStyle'#7#8'vsReport'#7
|
||||
+'OnClick'#7#18'lvBreakPointsClick'#10'OnDblClick'#7#21'lvBreakPointsDBLCLICK'
|
||||
+#12'OnSelectItem'#7#23'lvBreakPointsSelectItem'#6'Height'#3#205#0#5'Width'#3
|
||||
+'0'#2#8'HelpType'#7#9'htKeyword'#0#0#10'TPopupMenu'#8'mnuPopup'#7'OnPopup'#7
|
||||
+#13'mnuPopupPopup'#4'left'#2#24#3'top'#2#8#0#9'TMenuItem'#7'popShow'#7'Capti'
|
||||
+'on'#6#4'Show'#7'Default'#9#7'OnClick'#7#12'popShowClick'#0#0#9'TMenuItem'#2
|
||||
+'N0'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'popAdd'#7'Caption'#6#6'Add...'#0#9
|
||||
+'TMenuItem'#14'popAddSourceBP'#7'Caption'#6#18'&Source breakpoint'#7'Enabled'
|
||||
+#8#7'OnClick'#7#19'popAddSourceBPClick'#0#0#0#9'TMenuItem'#2'N1'#7'Caption'#6
|
||||
+#1'-'#0#0#9'TMenuItem'#13'popProperties'#7'Caption'#6#11'&Properties'#7'OnCl'
|
||||
+'ick'#7#18'popPropertiesClick'#0#0#9'TMenuItem'#10'popEnabled'#7'Caption'#6#8
|
||||
+'&Enabled'#19'ShowAlwaysCheckable'#9#7'OnClick'#7#15'popEnabledClick'#0#0#9
|
||||
+'TMenuItem'#9'popDelete'#7'Caption'#6#7'&Delete'#7'OnClick'#7#14'popDeleteCl'
|
||||
+'ick'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'popDisabl'
|
||||
+'eAll'#7'Caption'#6#12'D&isable All'#7'OnClick'#7#18'popDisableAllClick'#0#0
|
||||
+#9'TMenuItem'#12'popEnableAll'#7'Caption'#6#11'&Enable All'#7'OnClick'#7#17
|
||||
+'popEnableAllClick'#0#0#9'TMenuItem'#12'popDeleteAll'#7'Caption'#6#11'&Delet'
|
||||
+'e All'#7'OnClick'#7#17'popDeleteAllClick'#0#0#9'TMenuItem'#2'N3'#7'Caption'
|
||||
+#6#1'-'#0#0#9'TMenuItem'#23'popDisableAllSameSource'#7'Caption'#6#26'Disable'
|
||||
+' All in same source'#7'OnClick'#7#28'popDisableAllSameSourceCLICK'#0#0#9'TM'
|
||||
+'enuItem'#22'popEnableAllSameSource'#7'Caption'#6#25'Enable All in same sour'
|
||||
+'ce'#7'OnClick'#7#27'popEnableAllSameSourceCLICK'#0#0#9'TMenuItem'#22'popDel'
|
||||
+'eteAllSameSource'#7'Caption'#6#25'Delete All in same source'#7'OnClick'#7#27
|
||||
+'popDeleteAllSameSourceCLICK'#0#0#0#0
|
||||
'TPF0'#241#15'TBreakpointsDlg'#14'BreakpointsDlg'#4'Left'#3'X'#1#6'Height'#3
|
||||
+#205#0#3'Top'#3#153#0#5'Width'#3'0'#2#8'HelpType'#7#9'htKeyword'#18'HorzScro'
|
||||
+'llBar.Page'#3'/'#2#18'VertScrollBar.Page'#3#204#0#13'ActiveControl'#7#13'lv'
|
||||
+'BreakPoints'#7'Caption'#6#15'Breakpoint list'#8'OnCreate'#7#20'BreakpointsD'
|
||||
+'lgCREATE'#7'Visible'#9#0#9'TListView'#13'lvBreakPoints'#6'Height'#3#205#0#5
|
||||
+'Width'#3'0'#2#8'HelpType'#7#9'htKeyword'#5'Align'#7#8'alClient'#7'Columns'
|
||||
+#14#1#7'Caption'#6#5'State'#0#1#7'Caption'#6#16'Filename/Address'#5'Width'#3
|
||||
+#150#0#0#1#7'Caption'#6#11'Line/Length'#5'Width'#2'd'#0#1#7'Caption'#6#9'Con'
|
||||
+'dition'#5'Width'#2'K'#0#1#7'Caption'#6#6'Action'#0#1#7'Caption'#6#10'Pass C'
|
||||
+'ount'#5'Width'#2'd'#0#1#7'Caption'#6#5'Group'#5'Width'#2#5#0#0#11'MultiSele'
|
||||
+'ct'#9#9'PopupMenu'#7#8'mnuPopup'#8'ReadOnly'#9#9'RowSelect'#9#10'SortColumn'
|
||||
+#2#1#8'SortType'#7#6'stText'#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#13'O'
|
||||
+'nColumnClick'#7#24'lvBreakPointsColumnClick'#10'OnDblClick'#7#21'lvBreakPoi'
|
||||
+'ntsDBLCLICK'#12'OnSelectItem'#7#23'lvBreakPointsSelectItem'#0#0#10'TPopupMe'
|
||||
+'nu'#8'mnuPopup'#7'OnPopup'#7#13'mnuPopupPopup'#4'left'#2#24#3'top'#2#8#0#9
|
||||
+'TMenuItem'#7'popShow'#7'Caption'#6#4'Show'#7'Default'#9#7'OnClick'#7#12'pop'
|
||||
+'ShowClick'#0#0#9'TMenuItem'#2'N0'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'popA'
|
||||
+'dd'#7'Caption'#6#6'Add...'#0#9'TMenuItem'#14'popAddSourceBP'#7'Caption'#6#18
|
||||
+'&Source breakpoint'#7'Enabled'#8#7'OnClick'#7#19'popAddSourceBPClick'#0#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'#8'ShortCut'#3'N@'#19'ShowAlways'
|
||||
+'Checkable'#9#7'OnClick'#7#15'popEnabledClick'#0#0#9'TMenuItem'#9'popDelete'
|
||||
+#7'Caption'#6#7'&Delete'#8'ShortCut'#2'.'#7'OnClick'#7#14'popDeleteClick'#0#0
|
||||
+#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'popDisableAll'#7'C'
|
||||
+'aption'#6#12'D&isable All'#7'OnClick'#7#18'popDisableAllClick'#0#0#9'TMenuI'
|
||||
+'tem'#12'popEnableAll'#7'Caption'#6#11'&Enable All'#7'OnClick'#7#17'popEnabl'
|
||||
+'eAllClick'#0#0#9'TMenuItem'#12'popDeleteAll'#7'Caption'#6#11'&Delete All'#7
|
||||
+'OnClick'#7#17'popDeleteAllClick'#0#0#9'TMenuItem'#2'N3'#7'Caption'#6#1'-'#0
|
||||
+#0#9'TMenuItem'#23'popDisableAllSameSource'#7'Caption'#6#26'Disable All in s'
|
||||
+'ame source'#7'OnClick'#7#28'popDisableAllSameSourceCLICK'#0#0#9'TMenuItem'
|
||||
+#22'popEnableAllSameSource'#7'Caption'#6#25'Enable All in same source'#7'OnC'
|
||||
+'lick'#7#27'popEnableAllSameSourceCLICK'#0#0#9'TMenuItem'#22'popDeleteAllSam'
|
||||
+'eSource'#7'Caption'#6#25'Delete All in same source'#7'OnClick'#7#27'popDele'
|
||||
+'teAllSameSourceCLICK'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
{ $Id$ }
|
||||
{ ----------------------------------------------
|
||||
breakpointsdlg.pp - Overview of breeakponts
|
||||
breakpointsdlg.pp - Overview of breakpoints
|
||||
----------------------------------------------
|
||||
|
||||
@created(Fri Dec 14st WET 2001)
|
||||
@ -47,6 +47,8 @@ type
|
||||
);
|
||||
TBreakPointsDlgStates = set of TBreakPointsDlgState;
|
||||
|
||||
{ TBreakPointsDlg }
|
||||
|
||||
TBreakPointsDlg = class(TDebuggerDlg)
|
||||
lvBreakPoints: TListView;
|
||||
N0: TMenuItem;
|
||||
@ -67,7 +69,7 @@ type
|
||||
popEnableAllSameSource: TMenuItem;
|
||||
popDeleteAllSameSource: TMenuItem;
|
||||
procedure BreakpointsDlgCREATE(Sender: TObject);
|
||||
procedure lvBreakPointsClick(Sender: TObject);
|
||||
procedure lvBreakPointsColumnClick(Sender: TObject; Column: TListColumn);
|
||||
procedure lvBreakPointsDBLCLICK(Sender: TObject);
|
||||
procedure lvBreakPointsSelectItem(Sender: TObject; AItem: TListItem;
|
||||
Selected: Boolean);
|
||||
@ -260,8 +262,10 @@ begin
|
||||
DoJumpToCodePos(CurBreakPoint.Source,CurBreakPoint.Line,0);
|
||||
end;
|
||||
|
||||
procedure TBreakPointsDlg.lvBreakPointsClick(Sender: TObject);
|
||||
procedure TBreakPointsDlg.lvBreakPointsColumnClick(Sender: TObject;
|
||||
Column: TListColumn);
|
||||
begin
|
||||
lvBreakPoints.SortColumn := Column.Index;
|
||||
end;
|
||||
|
||||
procedure TBreakPointsDlg.BreakpointsDlgCREATE(Sender: TObject);
|
||||
@ -385,8 +389,13 @@ begin
|
||||
'Delete all breakpoints?',
|
||||
mtConfirmation,[mbYes,mbCancel],0)<>mrYes
|
||||
then exit;
|
||||
for n := lvBreakPoints.Items.Count - 1 downto 0 do
|
||||
TIDEBreakPoint(lvBreakPoints.Items[n].Data).Free;
|
||||
lvBreakPoints.BeginUpdate;
|
||||
try
|
||||
for n := lvBreakPoints.Items.Count - 1 downto 0 do
|
||||
TIDEBreakPoint(lvBreakPoints.Items[n].Data).Free;
|
||||
finally
|
||||
lvBreakPoints.EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBreakPointsDlg.popShowClick(Sender: TObject);
|
||||
@ -395,19 +404,52 @@ begin
|
||||
end;
|
||||
|
||||
procedure TBreakPointsDlg.popDeleteClick(Sender: TObject);
|
||||
//todo: make rsDeleteBreakpointConfirmation translatable
|
||||
const
|
||||
rsDeleteBreakpointConfirmation = 'Delete breakpoint at'#13'''"%s" line %d?';
|
||||
rsDeleteSelectedBreakpointConfirmation = 'Delete all selected breakpoints?';
|
||||
var
|
||||
CurItem: TListItem;
|
||||
Item: TListItem;
|
||||
CurBreakPoint: TIDEBreakPoint;
|
||||
Msg: String;
|
||||
List: TList;
|
||||
n: Integer;
|
||||
begin
|
||||
CurItem:=lvBreakPoints.Selected;
|
||||
if CurItem=nil then exit;
|
||||
CurBreakPoint:=TIDEBreakPoint(CurItem.Data);
|
||||
if MessageDlg('Delete breakpoint?',
|
||||
'Delete breakpoint at'#13
|
||||
+'"'+CurBreakPoint.Source+'" line '+IntToStr(CurBreakPoint.Line)+'?',
|
||||
mtConfirmation,[mbYes,mbCancel],0)<>mrYes
|
||||
then exit;
|
||||
CurBreakPoint.Free;
|
||||
Item:=lvBreakPoints.Selected;
|
||||
if Item = nil then exit;
|
||||
|
||||
if lvBreakPoints.SelCount = 1 then
|
||||
begin
|
||||
CurBreakPoint:=TIDEBreakPoint(Item.Data);
|
||||
Msg := Format(rsDeleteBreakpointConfirmation, [CurBreakPoint.Source,
|
||||
CurBreakPoint.Line]);
|
||||
end
|
||||
else
|
||||
Msg := rsDeleteSelectedBreakpointConfirmation;
|
||||
if MessageDlg(Msg, mtConfirmation, [mbYes,mbCancel],0) <> mrYes then exit;
|
||||
|
||||
if lvBreakPoints.SelCount = 1
|
||||
then begin
|
||||
TObject(Item.Data).Free;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
List := TList.Create;
|
||||
for n := 0 to lvBreakPoints.Items.Count - 1 do
|
||||
begin
|
||||
Item := lvBreakPoints.Items[n];
|
||||
if Item.Selected
|
||||
then List.Add(Item);
|
||||
end;
|
||||
|
||||
lvBreakPoints.BeginUpdate;
|
||||
try
|
||||
for n := 0 to List.Count - 1 do
|
||||
TObject(List[n]).Free;
|
||||
finally
|
||||
lvBreakPoints.EndUpdate;
|
||||
end;
|
||||
List.Free;
|
||||
end;
|
||||
|
||||
procedure TBreakPointsDlg.popDisableAllClick(Sender: TObject);
|
||||
@ -438,15 +480,32 @@ end;
|
||||
|
||||
procedure TBreakPointsDlg.popEnabledClick(Sender: TObject);
|
||||
var
|
||||
CurItem: TListItem;
|
||||
n: Integer;
|
||||
Item: TListItem;
|
||||
Enable: Boolean;
|
||||
begin
|
||||
CurItem:=lvBreakPoints.Selected;
|
||||
if (CurItem=nil) then exit;
|
||||
TIDEBreakPoint(CurItem.Data).Enabled:=not TIDEBreakPoint(CurItem.Data).Enabled;
|
||||
Item:=lvBreakPoints.Selected;
|
||||
if (Item=nil) then exit;
|
||||
|
||||
Enable := not TIDEBreakPoint(Item.Data).Enabled;
|
||||
|
||||
if lvBreakPoints.SelCount > 1
|
||||
then begin
|
||||
for n := 0 to lvBreakPoints.Items.Count -1 do
|
||||
begin
|
||||
Item := lvBreakPoints.Items[n];
|
||||
if Item.Selected then
|
||||
TIDEBreakPoint(Item.Data).Enabled := Enable;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
TIDEBreakPoint(Item.Data).Enabled:= Enable;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBreakPointsDlg.popPropertiesClick(Sender: TObject);
|
||||
begin
|
||||
begin
|
||||
ShowMessage('Not implemented yet.');
|
||||
end;
|
||||
|
||||
procedure TBreakPointsDlg.DoEndUpdate;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user