mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-04 12:00:18 +02:00
clean up
git-svn-id: trunk@17756 -
This commit is contained in:
parent
5f7325271c
commit
b2b7dbe035
@ -130,7 +130,6 @@ end;
|
|||||||
procedure TAssemblerDlg.FormResize(Sender: TObject);
|
procedure TAssemblerDlg.FormResize(Sender: TObject);
|
||||||
var
|
var
|
||||||
R: TRect;
|
R: TRect;
|
||||||
n: Integer;
|
|
||||||
begin
|
begin
|
||||||
R := ClientRect;
|
R := ClientRect;
|
||||||
Dec(R.Right, sbVertical.Width);
|
Dec(R.Right, sbVertical.Width);
|
||||||
@ -176,8 +175,6 @@ var
|
|||||||
R: TRect;
|
R: TRect;
|
||||||
n, X, Y, Line, idx: Integer;
|
n, X, Y, Line, idx: Integer;
|
||||||
S: String;
|
S: String;
|
||||||
Addr: TDbgPtr;
|
|
||||||
State: TAsmDlgLineMapState;
|
|
||||||
begin
|
begin
|
||||||
|
|
||||||
R := pbAsm.ClientRect;
|
R := pbAsm.ClientRect;
|
||||||
|
Loading…
Reference in New Issue
Block a user