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

Merged revision(s) 51316 #ea7d1b855d from trunk:

Browse Source 
debugger: check GetTextMetrics result in TAssemblerDlg.DoEditorOptsChanged. Issue #29429
........

git-svn-id: branches/fixes_1_6@51332 -
This commit is contained in:
maxim 2016-01-18 23:11:29 +00:00
parent aafe5f17a7
commit 922118423c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/assemblerdlg.pp
View File

@ -849,12 +849,13 @@ begin
else
pbAsm.Font.Quality := fqDefault;
GetTextMetrics(pbAsm.Canvas.Handle, TM{%H-});
FCharWidth := TM.tmMaxCharWidth; // EditorOpts.ExtraCharSpacing +
sbHorizontal.SmallChange := FCHarWidth;
FLineHeight := Max(6,EditorOpts.ExtraLineSpacing + TM.tmHeight);
SetLineCount(pbAsm.Height div FLineHeight);
if GetTextMetrics(pbAsm.Canvas.Handle, TM{%H-}) then
begin
FCharWidth := TM.tmMaxCharWidth; // EditorOpts.ExtraCharSpacing +
sbHorizontal.SmallChange := FCharWidth;
FLineHeight := Max(6,EditorOpts.ExtraLineSpacing + TM.tmHeight);
SetLineCount(pbAsm.Height div FLineHeight);
end;
end;
procedure TAssemblerDlg.SetLocation(ADebugger: TDebuggerIntf; const AAddr: TDBGPtr;