paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 07:08:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: assembler window: fixed showing while docked

Browse Source 
git-svn-id: trunk@46949 -
This commit is contained in:
mattias 2014-11-22 00:04:14 +00:00
parent f4feff3146
commit 62c23192e8
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
debugger/assemblerdlg.pp
View File

@ -146,9 +146,9 @@ type
procedure DoEditorOptsChanged(Sender: TObject; Restore: boolean);
protected
function GetSourceCodeLine(SrcFileName: string; SrcLineNumber: Integer): string;
procedure VisibleChanged; override;
procedure DoBeginUpdate; override;
procedure DoEndUpdate; override;
procedure UpdateShowing; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -241,6 +241,7 @@ begin
FCurrentLocation := 0;
FLocation := 0;
FLineCount := 0;
FLineHeight := 10;
SetLength(FLineMap, FLineCount + 1);
FGutterWidth := 32;
FDisassemblerNotification := TIDEDisassemblerNotification.Create;
@ -258,8 +259,6 @@ begin
Caption := lisDisAssAssembler;
EditorOpts.AddHandlerAfterWrite(@DoEditorOptsChanged);
pbAsm.Font.Size := EditorOpts.EditorFontSize;
pbAsm.Font.Name := EditorOpts.EditorFont;
Caption := lisMenuViewAssembler;
CopyToClipboard.Caption := lisDbgAsmCopyToClipboard;
@ -538,20 +537,6 @@ begin
end;
end;
procedure TAssemblerDlg.VisibleChanged;
begin
inherited VisibleChanged;
if IsVisible then begin
if IsUpdating then begin
FVisibleChanged := True
end else begin
DoEditorOptsChanged(nil, False);
if FCurrentLocation <> 0 then
UpdateLocation(FCurrentLocation);
end;
end;
end;
procedure TAssemblerDlg.DoBeginUpdate;
begin
FVisibleChanged := False;
@ -569,6 +554,20 @@ begin
FVisibleChanged := False;
end;
procedure TAssemblerDlg.UpdateShowing;
begin
inherited UpdateShowing;
if IsVisible then begin
if IsUpdating then begin
FVisibleChanged := True
end else begin
DoEditorOptsChanged(nil, False);
if FCurrentLocation <> 0 then
UpdateLocation(FCurrentLocation);
end;
end;
end;
procedure TAssemblerDlg.pbAsmMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button <> mbLeft then exit;
@ -851,7 +850,7 @@ begin
FCharWidth := TM.tmMaxCharWidth; // EditorOpts.ExtraCharSpacing +
sbHorizontal.SmallChange := FCHarWidth;
FLineHeight := EditorOpts.ExtraLineSpacing + TM.tmHeight;
FLineHeight := Max(6,EditorOpts.ExtraLineSpacing + TM.tmHeight);
SetLineCount(pbAsm.Height div FLineHeight);
end;