paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:59:13 +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; FReference: TWSFontReference;
procedure FreeReference; procedure FreeReference;
function GetCanUTF8: boolean; function GetCanUTF8: boolean;
function GetHandle: HFONT; function GetHandle: HFONT;
procedure GetData(var FontData: TFontData); procedure GetData(var FontData: TFontData);
function GetIsMonoSpace: boolean; function GetIsMonoSpace: boolean;
function GetReference: TWSFontReference; function GetReference: TWSFontReference;
@ -500,13 +500,13 @@ type
procedure SetHandle(const Value: HFONT); procedure SetHandle(const Value: HFONT);
procedure ReferenceNeeded; procedure ReferenceNeeded;
protected protected
function GetCharSet: TFontCharSet; function GetCharSet: TFontCharSet;
function GetHeight: Integer; function GetHeight: Integer;
function GetName: string; function GetName: string;
function GetOrientation: Integer; function GetOrientation: Integer;
function GetPitch: TFontPitch; function GetPitch: TFontPitch;
function GetSize: Integer; function GetSize: Integer;
function GetStyle: TFontStyles; function GetStyle: TFontStyles;
procedure Changed; override; procedure Changed; override;
procedure DoAllocateResources; override; procedure DoAllocateResources; override;
procedure DoCopyProps(From: TFPCanvasHelper); override; procedure DoCopyProps(From: TFPCanvasHelper); override;

4
lcl/include/font.inc
View File

@ -837,11 +837,11 @@ 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
FHeight:=Value; FHeight := Value;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------