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

IDE: assembler window: disabled form scrollbars

Browse Source 
git-svn-id: trunk@38492 -
This commit is contained in:
mattias 2012-09-02 17:11:36 +00:00
parent 6910980cfa
commit c07d86fd39
2 changed files with 19 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
debugger/assemblerdlg.lfm
View File

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

2
debugger/assemblerdlg.pp
View File

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