Re: [Lazarus] [patch] Debugger: CPU registers: resetting display formats on every restart of the application

[Bernd]

and to make it complete here is another trivial patch to enable a
popup menu in the registersdlg to be able to also set the display
format with the right mouse button, this makes it more user friendly
imho.

Bernd

Index: debugger/registersdlg.lfm
===================================================================
--- debugger/registersdlg.lfm	(Revision 34256)
+++ debugger/registersdlg.lfm	(Arbeitskopie)
@@ -27,6 +27,7 @@
     SmallImages = ImageList1
     TabOrder = 0
     ViewStyle = vsReport
+    OnMouseUp = lvRegistersMouseUp
     OnSelectItem = lvRegistersSelectItem
   end
   object ToolBar1: TToolBar[1]
Index: debugger/registersdlg.pp
===================================================================
--- debugger/registersdlg.pp	(Revision 34256)
+++ debugger/registersdlg.pp	(Arbeitskopie)
@@ -63,6 +63,7 @@
     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 +192,13 @@
   lvRegistersSelectItem(nil, nil, True);
 end;
 
+procedure TRegistersDlg.lvRegistersMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbRight then begin
+    PopupDispType.PopUp;
+  end;
+end;
+
 procedure TRegistersDlg.lvRegistersSelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);
 var

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus