paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 15:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: popup for display formats for register.

Browse Source 
git-svn-id: trunk@34324 -
This commit is contained in:
martin 2011-12-20 13:46:43 +00:00
parent 96d5e480cc
commit ff9fced537
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/registersdlg.lfm
View File

@ -23,11 +23,11 @@ inherited RegistersDlg: TRegistersDlg
Caption = 'Value'
end>
MultiSelect = True
PopupMenu = PopupDispType
RowSelect = True
SmallImages = ImageList1
TabOrder = 0
ViewStyle = vsReport
OnMouseUp = lvRegistersMouseUp
OnSelectItem = lvRegistersSelectItem
end
object ToolBar1: TToolBar[1]

9
debugger/registersdlg.pp
View File

@ -63,6 +63,8 @@ type
ToolButtonPower: TToolButton;
procedure actPowerExecute(Sender: TObject);
procedure DispDefaultClick(Sender: TObject);
procedure lvRegistersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
procedure lvRegistersSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure ToolButtonDispTypeClick(Sender: TObject);
private
@ -191,6 +193,13 @@ begin
lvRegistersSelectItem(nil, nil, True);
end;
procedure TRegistersDlg.lvRegistersMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
PopupDispType.PopUp;
end;
procedure TRegistersDlg.lvRegistersSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var