IDE: assembler window: disabled form scrollbars

git-svn-id: trunk@38492 -

debugger/assemblerdlg.lfm

@@ -1,16 +1,12 @@
 inherited AssemblerDlg: TAssemblerDlg
-  Left = 488
-  Height = 301
-  Top = 143
-  Width = 721
-  HorzScrollBar.Page = 399
-  HorzScrollBar.Range = 399
-  VertScrollBar.Page = 300
-  VertScrollBar.Range = 300
+  Left = 268
+  Height = 232
+  Top = 122
+  Width = 689
   BorderStyle = bsSizeToolWin
   Caption = 'Assembler'
-  ClientHeight = 301
-  ClientWidth = 721
+  ClientHeight = 232
+  ClientWidth = 689
   KeyPreview = True
   OnKeyDown = FormKeyDown
   OnResize = FormResize
@@ -21,9 +17,9 @@ inherited AssemblerDlg: TAssemblerDlg
     AnchorSideRight.Control = sbVertical
     AnchorSideBottom.Control = sbHorizontal
     Left = 0
-    Height = 260
+    Height = 191
     Top = 26
-    Width = 706
+    Width = 674
     Anchors = [akTop, akLeft, akRight, akBottom]
     PopupMenu = PopupMenu1
     OnClick = pbAsmClick
@@ -40,10 +36,9 @@ inherited AssemblerDlg: TAssemblerDlg
     AnchorSideBottom.Side = asrBottom
     Left = 0
     Height = 15
-    Top = 286
-    Width = 706
+    Top = 217
+    Width = 674
     Anchors = [akLeft, akRight, akBottom]
-    Max = 1000
     PageSize = 200
     TabOrder = 0
     OnChange = sbHorizontalChange
@@ -54,16 +49,14 @@ inherited AssemblerDlg: TAssemblerDlg
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = sbHorizontal
-    Left = 706
-    Height = 260
+    Left = 674
+    Height = 191
     Top = 26
     Width = 15
     Anchors = [akTop, akRight, akBottom]
     Kind = sbVertical
     LargeChange = 10
-    Max = 1000
-    PageSize = 50
-    Position = 475
+    PageSize = 200
     TabOrder = 1
     OnChange = sbVerticalChange
     OnScroll = sbVerticalScroll
@@ -72,7 +65,7 @@ inherited AssemblerDlg: TAssemblerDlg
     Left = 0
     Height = 26
     Top = 0
-    Width = 721
+    Width = 689
     Caption = 'ToolBar1'
     ParentShowHint = False
     ShowHint = True
@@ -117,7 +110,7 @@ inherited AssemblerDlg: TAssemblerDlg
     end
     object pnlToolAddr: TPanel
       Left = 113
-      Height = 23
+      Height = 22
       Top = 2
       Width = 80
       AutoSize = True
@@ -127,12 +120,12 @@ inherited AssemblerDlg: TAssemblerDlg
       ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 23
+      ClientHeight = 22
       ClientWidth = 80
       TabOrder = 0
       object EditGotoAddr: TEdit
         Left = 0
-        Height = 23
+        Height = 22
         Top = 0
         Width = 80
         OnChange = EditGotoAddrChange

debugger/assemblerdlg.pp

@@ -36,6 +36,7 @@ type
   end;
   TAsmDlgLineEntries = Array of TAsmDlgLineEntry;
 
+
   TAssemblerDlg = class(TDebuggerDlg)
     actCurrentInstr: TAction;
     actGotoAddr: TAction;
@@ -507,6 +508,7 @@ var
   Ctrl: Boolean;
 begin
   P := pbAsm.ScreenToClient(Mouse.CursorPos);
+  debugln(['TAssemblerDlg.pbAsmClick ',dbgs(p)]);
   if P.x > FGutterWidth then exit;
   Line := P.Y div FLineHeight;