paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +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

16
lcl/graphics.pp
View File

@ -490,7 +490,7 @@ type
FReference: TWSFontReference;
procedure FreeReference;
function GetCanUTF8: boolean;
function GetHandle: HFONT;
function GetHandle: HFONT;
procedure GetData(var FontData: TFontData);
function GetIsMonoSpace: boolean;
function GetReference: TWSFontReference;
@ -500,13 +500,13 @@ type
procedure SetHandle(const Value: HFONT);
procedure ReferenceNeeded;
protected
function GetCharSet: TFontCharSet;
function GetHeight: Integer;
function GetName: string;
function GetOrientation: Integer;
function GetPitch: TFontPitch;
function GetSize: Integer;
function GetStyle: TFontStyles;
function GetCharSet: TFontCharSet;
function GetHeight: Integer;
function GetName: string;
function GetOrientation: Integer;
function GetPitch: TFontPitch;
function GetSize: Integer;
function GetStyle: TFontStyles;
procedure Changed; override;
procedure DoAllocateResources; override;
procedure DoCopyProps(From: TFPCanvasHelper); override;

4
lcl/include/font.inc
View File

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