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

* base lineheight on TextMetric instead of font height

Browse Source 
git-svn-id: trunk@22538 -
This commit is contained in:
marc 2009-11-11 23:32:30 +00:00
parent 4b3af617a2
commit 03d44b6c7a
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
debugger/assemblerdlg.pp
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, StdCtrls, Grids, ExtCtrls, LclType, DebuggerDlg, Debugger,
ComCtrls, StdCtrls, Grids, ExtCtrls, LclType, LCLIntf, DebuggerDlg, Debugger,
EditorOptions, Maps, Math;
type
@ -87,14 +87,13 @@ end;
constructor TAssemblerDlg.Create(AOwner: TComponent);
begin
FLineHeight := Abs(EditorOpts.EditorFontHeight) + EditorOpts.ExtraLineSpacing;
FGutterWidth := 32;
inherited Create(AOwner);
// DoubleBuffered := True;
pbAsm.Font.Name := EditorOpts.EditorFont;
pbAsm.Font.Height := EditorOpts.EditorFontHeight;
pbAsm.Font.Name := EditorOpts.EditorFont;
Caption := lisMenuViewAssembler;
end;
@ -145,18 +144,28 @@ begin
sbHorizontal.PageSize := R.Right;
sbHorizontal.LargeChange := R.Right div 3;
FLineCount := R.Bottom div FLineHeight;
UpdateLineData(FTopLine + FLineCount);
if FLineHeight <> 0
then begin
FLineCount := R.Bottom div FLineHeight;
UpdateLineData(FTopLine + FLineCount);
end;
pbAsm.SetBounds(0, 0, R.Right, R.Bottom);
end;
procedure TAssemblerDlg.InitializeWnd;
var
TM: TTextMetric;
begin
inherited InitializeWnd;
FCharWidth := EditorOpts.ExtraCharSpacing + pbAsm.Canvas.TextExtent('X').cx;
GetTextMetrics(pbAsm.Canvas.Handle, TM);
FCharWidth := EditorOpts.ExtraCharSpacing + TM.tmMaxCharWidth;
sbHorizontal.SmallChange := FCHarWidth;
FLineHeight := EditorOpts.ExtraLineSpacing + TM.tmHeight;
FLineCount := pbAsm.Height div FLineHeight;
UpdateLineData(FTopLine + FLineCount);
end;
procedure TAssemblerDlg.pbAsmMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);