mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-27 15:25:07 +02:00
debugger: make callstack dialog use common ide imagelist
git-svn-id: trunk@18936 -
This commit is contained in:
paul
parent
b91d29452c
commit
83f556cdd7
@ -50,7 +50,6 @@ inherited CallStackDlg: TCallStackDlg
|
||||
ButtonWidth = 50
|
||||
Caption = 'tbButtons'
|
||||
EdgeBorders = []
|
||||
Images = ImageList1
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButtonShow: TToolButton
|
||||
@ -231,8 +230,4 @@ inherited CallStackDlg: TCallStackDlg
|
||||
OnClick = popCountClick
|
||||
end
|
||||
end
|
||||
object ImageList1: TImageList[5]
|
||||
left = 232
|
||||
top = 112
|
||||
end
|
||||
end
|
||||
|
||||
@ -12,53 +12,52 @@ LazarusResources.Add('TCallStackDlg','FORMDATA',[
|
||||
+'nly'#9#9'RowSelect'#9#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#10'OnDblCl'
|
||||
+'ick'#7#19'lvCallStackDBLCLICK'#0#0#242#2#1#8'TToolBar'#8'ToolBar1'#4'Left'#2
|
||||
+#0#6'Height'#2'*'#3'Top'#2#0#5'Width'#3'2'#2#12'ButtonHeight'#2'('#11'Button'
|
||||
+'Width'#2'2'#7'Caption'#6#9'tbButtons'#11'EdgeBorders'#11#0#6'Images'#7#10'I'
|
||||
+'mageList1'#12'ShowCaptions'#9#8'TabOrder'#2#1#0#11'TToolButton'#14'ToolButt'
|
||||
+'onShow'#4'Left'#2#1#3'Top'#2#0#6'Action'#7#7'actShow'#10'ImageIndex'#2#0#0#0
|
||||
+#11'TToolButton'#17'ToolButtonCurrent'#4'Left'#2'3'#3'Top'#2#0#6'Action'#7#13
|
||||
+'actSetCurrent'#0#0#11'TToolButton'#11'ToolButton4'#4'Left'#2'e'#3'Top'#2#0#5
|
||||
+'Width'#2#3#7'Caption'#6#11'ToolButton4'#5'Style'#7#12'tbsSeparator'#0#0#11
|
||||
+'TToolButton'#14'ToolButtonMore'#4'Left'#3#159#0#3'Top'#2#0#6'Action'#7#11'a'
|
||||
+'ctViewMore'#10'ImageIndex'#2#1#0#0#11'TToolButton'#13'ToolButtonMax'#4'Left'
|
||||
+#2'h'#3'Top'#2#0#6'Action'#7#12'actViewLimit'#7'Caption'#6#6'Max 10'#12'Drop'
|
||||
+'downMenu'#7#8'mnuLimit'#5'Style'#7#11'tbsDropDown'#0#0#11'TToolButton'#14'T'
|
||||
+'oolButtonGoto'#4'Left'#3'j'#1#3'Top'#2#0#6'Action'#7#11'actViewGoto'#10'Ima'
|
||||
+'geIndex'#2#4#0#0#11'TToolButton'#17'ToolButtonCopyAll'#4'Left'#3#159#1#3'To'
|
||||
+'p'#2#0#6'Action'#7#10'actCopyAll'#10'ImageIndex'#2#5#0#0#11'TToolButton'#11
|
||||
+'ToolButton8'#4'Left'#3#156#1#3'Top'#2#0#5'Width'#2#3#7'Caption'#6#11'ToolBu'
|
||||
+'tton8'#5'Style'#7#12'tbsSeparator'#0#0#11'TToolButton'#11'ToolButton9'#4'Le'
|
||||
+'ft'#3#209#0#3'Top'#2#0#5'Width'#2#3#7'Caption'#6#11'ToolButton9'#5'Style'#7
|
||||
+#12'tbsSeparator'#0#0#11'TToolButton'#13'ToolButtonTop'#4'Left'#3#212#0#3'To'
|
||||
+'p'#2#0#6'Action'#7#10'actViewTop'#10'ImageIndex'#2#2#0#0#11'TToolButton'#16
|
||||
+'ToolButtonBottom'#4'Left'#3#6#1#3'Top'#2#0#6'Action'#7#13'actViewBottom'#10
|
||||
+'ImageIndex'#2#3#0#0#6'TPanel'#6'Panel1'#4'Left'#3'8'#1#6'Height'#2'('#3'Top'
|
||||
+#2#0#5'Width'#2'2'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'('#11'Clien'
|
||||
+'tWidth'#2'2'#8'TabOrder'#2#0#0#5'TEdit'#7'txtGoto'#4'Left'#2#2#6'Height'#2
|
||||
+#22#3'Top'#2#8#5'Width'#2'.'#10'OnKeyPress'#7#15'txtGotoKeyPress'#8'TabOrder'
|
||||
+#2#0#4'Text'#6#1'0'#0#0#0#0#242#2#2#10'TPopupMenu'#8'mnuPopup'#4'left'#2'B'#3
|
||||
+'top'#2'X'#0#9'TMenuItem'#7'popShow'#6'Action'#7#7'actShow'#7'Default'#9#7'O'
|
||||
+'nClick'#7#12'actShowClick'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'T'
|
||||
+'MenuItem'#15'popSetAsCurrent'#6'Action'#7#13'actSetCurrent'#7'OnClick'#7#20
|
||||
+'actSetAsCurrentClick'#0#0#9'TMenuItem'#10'popCopyAll'#6'Action'#7#10'actCop'
|
||||
+'yAll'#7'OnClick'#7#15'actCopyAllClick'#0#0#0#242#2#3#11'TActionList'#10'acl'
|
||||
+'Actions'#4'left'#3#128#0#3'top'#2'h'#0#7'TAction'#7'actShow'#7'Caption'#6#4
|
||||
+'Show'#18'DisableIfNoHandler'#9#9'OnExecute'#7#12'actShowClick'#0#0#7'TActio'
|
||||
+'n'#13'actSetCurrent'#7'Caption'#6#7'Current'#18'DisableIfNoHandler'#9#9'OnE'
|
||||
+'xecute'#7#20'actSetAsCurrentClick'#0#0#7'TAction'#10'actCopyAll'#7'Caption'
|
||||
+#6#8'Copy All'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'actCopyAllClick'#0
|
||||
+#0#7'TAction'#11'actViewMore'#8'Category'#6#4'View'#7'Caption'#6#4'More'#18
|
||||
+'DisableIfNoHandler'#9#9'OnExecute'#7#18'actViewMoreExecute'#0#0#7'TAction'
|
||||
+#11'actViewGoto'#8'Category'#6#4'View'#7'Caption'#6#4'Goto'#18'DisableIfNoHa'
|
||||
+'ndler'#9#9'OnExecute'#7#18'actViewGotoExecute'#0#0#7'TAction'#12'actViewLim'
|
||||
+'it'#8'Category'#6#4'View'#7'Caption'#6#2'10'#18'DisableIfNoHandler'#9#9'OnE'
|
||||
+'xecute'#7#19'actViewLimitExecute'#0#0#7'TAction'#10'actViewTop'#8'Category'
|
||||
+#6#4'View'#7'Caption'#6#3'Top'#18'DisableIfNoHandler'#9#9'OnExecute'#7#17'ac'
|
||||
+'tViewTopExecute'#0#0#7'TAction'#13'actViewBottom'#8'Category'#6#4'View'#7'C'
|
||||
+'aption'#6#6'Bottom'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'actViewBotto'
|
||||
+'mExecute'#0#0#0#242#2#4#10'TPopupMenu'#8'mnuLimit'#4'left'#3#192#0#3'top'#2
|
||||
+'p'#0#9'TMenuItem'#10'popLimit10'#3'Tag'#2#10#7'Caption'#6#6'Max 10'#7'OnCli'
|
||||
+'ck'#7#13'popCountClick'#0#0#9'TMenuItem'#10'popLimit25'#3'Tag'#2#25#7'Capti'
|
||||
+'on'#6#6'Max 25'#7'OnClick'#7#13'popCountClick'#0#0#9'TMenuItem'#10'popLimit'
|
||||
+'50'#3'Tag'#2'2'#7'Caption'#6#6'Max 50'#7'OnClick'#7#13'popCountClick'#0#0#0
|
||||
+#242#2#5#10'TImageList'#10'ImageList1'#4'left'#3#232#0#3'top'#2'p'#0#0#0
|
||||
+'Width'#2'2'#7'Caption'#6#9'tbButtons'#11'EdgeBorders'#11#0#12'ShowCaptions'
|
||||
+#9#8'TabOrder'#2#1#0#11'TToolButton'#14'ToolButtonShow'#4'Left'#2#1#3'Top'#2
|
||||
+#0#6'Action'#7#7'actShow'#10'ImageIndex'#2#0#0#0#11'TToolButton'#17'ToolButt'
|
||||
+'onCurrent'#4'Left'#2'3'#3'Top'#2#0#6'Action'#7#13'actSetCurrent'#0#0#11'TTo'
|
||||
+'olButton'#11'ToolButton4'#4'Left'#2'e'#3'Top'#2#0#5'Width'#2#3#7'Caption'#6
|
||||
+#11'ToolButton4'#5'Style'#7#12'tbsSeparator'#0#0#11'TToolButton'#14'ToolButt'
|
||||
+'onMore'#4'Left'#3#159#0#3'Top'#2#0#6'Action'#7#11'actViewMore'#10'ImageInde'
|
||||
+'x'#2#1#0#0#11'TToolButton'#13'ToolButtonMax'#4'Left'#2'h'#3'Top'#2#0#6'Acti'
|
||||
+'on'#7#12'actViewLimit'#7'Caption'#6#6'Max 10'#12'DropdownMenu'#7#8'mnuLimit'
|
||||
+#5'Style'#7#11'tbsDropDown'#0#0#11'TToolButton'#14'ToolButtonGoto'#4'Left'#3
|
||||
+'j'#1#3'Top'#2#0#6'Action'#7#11'actViewGoto'#10'ImageIndex'#2#4#0#0#11'TTool'
|
||||
+'Button'#17'ToolButtonCopyAll'#4'Left'#3#159#1#3'Top'#2#0#6'Action'#7#10'act'
|
||||
+'CopyAll'#10'ImageIndex'#2#5#0#0#11'TToolButton'#11'ToolButton8'#4'Left'#3
|
||||
+#156#1#3'Top'#2#0#5'Width'#2#3#7'Caption'#6#11'ToolButton8'#5'Style'#7#12'tb'
|
||||
+'sSeparator'#0#0#11'TToolButton'#11'ToolButton9'#4'Left'#3#209#0#3'Top'#2#0#5
|
||||
+'Width'#2#3#7'Caption'#6#11'ToolButton9'#5'Style'#7#12'tbsSeparator'#0#0#11
|
||||
+'TToolButton'#13'ToolButtonTop'#4'Left'#3#212#0#3'Top'#2#0#6'Action'#7#10'ac'
|
||||
+'tViewTop'#10'ImageIndex'#2#2#0#0#11'TToolButton'#16'ToolButtonBottom'#4'Lef'
|
||||
+'t'#3#6#1#3'Top'#2#0#6'Action'#7#13'actViewBottom'#10'ImageIndex'#2#3#0#0#6
|
||||
+'TPanel'#6'Panel1'#4'Left'#3'8'#1#6'Height'#2'('#3'Top'#2#0#5'Width'#2'2'#10
|
||||
+'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'('#11'ClientWidth'#2'2'#8'TabOrd'
|
||||
+'er'#2#0#0#5'TEdit'#7'txtGoto'#4'Left'#2#2#6'Height'#2#22#3'Top'#2#8#5'Width'
|
||||
+#2'.'#10'OnKeyPress'#7#15'txtGotoKeyPress'#8'TabOrder'#2#0#4'Text'#6#1'0'#0#0
|
||||
+#0#0#242#2#2#10'TPopupMenu'#8'mnuPopup'#4'left'#2'B'#3'top'#2'X'#0#9'TMenuIt'
|
||||
+'em'#7'popShow'#6'Action'#7#7'actShow'#7'Default'#9#7'OnClick'#7#12'actShowC'
|
||||
+'lick'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#15'popSetAs'
|
||||
+'Current'#6'Action'#7#13'actSetCurrent'#7'OnClick'#7#20'actSetAsCurrentClick'
|
||||
+#0#0#9'TMenuItem'#10'popCopyAll'#6'Action'#7#10'actCopyAll'#7'OnClick'#7#15
|
||||
+'actCopyAllClick'#0#0#0#242#2#3#11'TActionList'#10'aclActions'#4'left'#3#128
|
||||
+#0#3'top'#2'h'#0#7'TAction'#7'actShow'#7'Caption'#6#4'Show'#18'DisableIfNoHa'
|
||||
+'ndler'#9#9'OnExecute'#7#12'actShowClick'#0#0#7'TAction'#13'actSetCurrent'#7
|
||||
+'Caption'#6#7'Current'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'actSetAsCu'
|
||||
+'rrentClick'#0#0#7'TAction'#10'actCopyAll'#7'Caption'#6#8'Copy All'#18'Disab'
|
||||
+'leIfNoHandler'#9#9'OnExecute'#7#15'actCopyAllClick'#0#0#7'TAction'#11'actVi'
|
||||
+'ewMore'#8'Category'#6#4'View'#7'Caption'#6#4'More'#18'DisableIfNoHandler'#9
|
||||
+#9'OnExecute'#7#18'actViewMoreExecute'#0#0#7'TAction'#11'actViewGoto'#8'Cate'
|
||||
+'gory'#6#4'View'#7'Caption'#6#4'Goto'#18'DisableIfNoHandler'#9#9'OnExecute'#7
|
||||
+#18'actViewGotoExecute'#0#0#7'TAction'#12'actViewLimit'#8'Category'#6#4'View'
|
||||
+#7'Caption'#6#2'10'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'actViewLimitE'
|
||||
+'xecute'#0#0#7'TAction'#10'actViewTop'#8'Category'#6#4'View'#7'Caption'#6#3
|
||||
+'Top'#18'DisableIfNoHandler'#9#9'OnExecute'#7#17'actViewTopExecute'#0#0#7'TA'
|
||||
+'ction'#13'actViewBottom'#8'Category'#6#4'View'#7'Caption'#6#6'Bottom'#18'Di'
|
||||
+'sableIfNoHandler'#9#9'OnExecute'#7#20'actViewBottomExecute'#0#0#0#242#2#4#10
|
||||
+'TPopupMenu'#8'mnuLimit'#4'left'#3#192#0#3'top'#2'p'#0#9'TMenuItem'#10'popLi'
|
||||
+'mit10'#3'Tag'#2#10#7'Caption'#6#6'Max 10'#7'OnClick'#7#13'popCountClick'#0#0
|
||||
+#9'TMenuItem'#10'popLimit25'#3'Tag'#2#25#7'Caption'#6#6'Max 25'#7'OnClick'#7
|
||||
+#13'popCountClick'#0#0#9'TMenuItem'#10'popLimit50'#3'Tag'#2'2'#7'Caption'#6#6
|
||||
+'Max 50'#7'OnClick'#7#13'popCountClick'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -38,7 +38,7 @@ interface
|
||||
uses
|
||||
LResources, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
ComCtrls, Debugger, DebuggerDlg, Menus, ClipBrd, ExtCtrls, StdCtrls, Spin,
|
||||
ActnList, MainBase;
|
||||
ActnList, MainBase, IDEImagesIntf;
|
||||
|
||||
type
|
||||
|
||||
@ -54,7 +54,6 @@ type
|
||||
actViewMore: TAction;
|
||||
actSetCurrent: TAction;
|
||||
actShow: TAction;
|
||||
ImageList1: TImageList;
|
||||
ToolButtonTop: TToolButton;
|
||||
ToolButtonBottom: TToolButton;
|
||||
ToolButtonCopyAll: TToolButton;
|
||||
@ -97,7 +96,6 @@ type
|
||||
FViewCount: Integer;
|
||||
FViewLimit: Integer;
|
||||
FViewStart: Integer;
|
||||
procedure InitImageList;
|
||||
procedure SetViewLimit(const AValue: Integer);
|
||||
procedure SetViewStart(AStart: Integer);
|
||||
procedure SetViewMax;
|
||||
@ -333,16 +331,6 @@ begin
|
||||
JumpToSource;
|
||||
end;
|
||||
|
||||
procedure TCallStackDlg.InitImageList;
|
||||
begin
|
||||
Imagelist1.AddLazarusResource('callstack_show');
|
||||
Imagelist1.AddLazarusResource('callstack_more');
|
||||
Imagelist1.AddLazarusResource('callstack_top');
|
||||
Imagelist1.AddLazarusResource('callstack_bottom');
|
||||
Imagelist1.AddLazarusResource('callstack_goto');
|
||||
Imagelist1.AddLazarusResource('laz_copy');
|
||||
end;
|
||||
|
||||
procedure TCallStackDlg.actViewBottomExecute(Sender: TObject);
|
||||
begin
|
||||
if CallStack <> nil
|
||||
@ -383,7 +371,15 @@ begin
|
||||
lvCallStack.Columns[2].Caption:= lisCEOModeSource;
|
||||
lvCallStack.Columns[3].Caption:= lisToDoLLine;
|
||||
lvCallStack.Columns[4].Caption:= lisFunction;
|
||||
InitImageList;
|
||||
|
||||
ToolBar1.Images := IDEImages.Images_16;
|
||||
ToolButtonShow.ImageIndex := IDEImages.LoadImage(16, 'callstack_show');
|
||||
ToolButtonMore.ImageIndex := IDEImages.LoadImage(16, 'callstack_more');
|
||||
ToolButtonTop.ImageIndex := IDEImages.LoadImage(16, 'callstack_top');
|
||||
ToolButtonBottom.ImageIndex := IDEImages.LoadImage(16, 'callstack_bottom');
|
||||
ToolButtonGoto.ImageIndex := IDEImages.LoadImage(16, 'callstack_goto');
|
||||
ToolButtonGoto.ImageIndex := IDEImages.LoadImage(16, 'callstack_goto');
|
||||
ToolButtonCopyAll.ImageIndex := IDEImages.LoadImage(16, 'laz_copy');
|
||||
end;
|
||||
|
||||
procedure TCallStackDlg.actViewLimitExecute(Sender: TObject);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user