paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:41:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: formatting

Browse Source 
git-svn-id: trunk@20008 -
This commit is contained in:
paul 2009-05-17 13:33:55 +00:00
parent fd3a03f494
commit fd36716c15
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/font.inc
View File

@ -837,7 +837,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TFont.SetHeight(Value: Integer); procedure TFont.SetHeight(Value: Integer);
begin begin
if FHeight = Value then exit; if FHeight = Value then Exit;
// set Size first. This will set FHeight to a rounded equivalent // set Size first. This will set FHeight to a rounded equivalent
Size := -MulDiv(Value, 72, FPixelsPerInch); Size := -MulDiv(Value, 72, FPixelsPerInch);
// store the real FHeight // store the real FHeight