pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: A better way to save/restore the font in VpcanvasUtils.DrawRotatedText?

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4892 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-02 09:20:00 +00:00
parent 998f2aa164
commit c4646eacb5
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/source/vpcanvasutils.pas
View File

@ -721,7 +721,7 @@ var
OldFont: TFont;
RealPoint: TPoint;
OldBrushStyle: TBrushStyle;
savedFontHeight: Integer;
// savedFontHeight: Integer;
begin
if not Assigned(FCanvas) then
raise EVpCanvasError.Create(RSNoCanvas);
@ -758,8 +758,10 @@ begin
// Create new font to use
OldFont := FCanvas.Font;
OldFont := TFont.Create;
try
savedFontHeight := FCanvas.Font.Height;
OldFont.Assign(FCanvas.Font);
// savedFontHeight := FCanvas.Font.Height;
FCanvas.Font.Handle:= CreateFontIndirect(LF);
// Output the text
@ -775,8 +777,9 @@ begin
FCanvas.Brush.Style := OldBrushStyle;
end;
finally
FCanvas.Font := OldFont;
FCanvas.Font.Height := savedFontHeight;
FCanvas.Font.Assign(OldFont);
// FCanvas.Font := OldFont;
// FCanvas.Font.Height := savedFontHeight;
end;
end;