diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-09 11:15:43 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-09 11:15:43 +0200 |
commit | 343b19d57a072a503ea9f63e8c2a427e33e9072d (patch) | |
tree | 28990cda198e6ebc6da1ae79c87961258c8193f4 | |
parent | 2458fb383625e2fdd8362111804da0a53b56c648 (diff) | |
download | fpGUI-343b19d57a072a503ea9f63e8c2a427e33e9072d.tar.xz |
docview: renamed local variables to reduce future confusion.
We don't want to confuse properties and local variables, so the latter gets
a different style: normally prefixed with the letter 'l'.
-rw-r--r-- | docview/components/richtext/CanvasFontManager.pas | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/docview/components/richtext/CanvasFontManager.pas b/docview/components/richtext/CanvasFontManager.pas index de81570d..38f87cd1 100644 --- a/docview/components/richtext/CanvasFontManager.pas +++ b/docview/components/richtext/CanvasFontManager.pas @@ -177,6 +177,8 @@ begin PointSize := 10; Attributes := []; FixedWidth := False; + UseFaceName := ''; + FaceName := ''; end; // frees allocated memory, if any. @@ -558,8 +560,8 @@ end; destructor TCanvasFontManager.Destroy; var i: integer; - Font: TLogicalFont; - face: TFontFace; + lFont: TLogicalFont; + lface: TFontFace; begin // select default font so none of our logical fonts are in use FCanvas.Font := fpgApplication.DefaultFont; @@ -567,8 +569,8 @@ begin // delete each logical font and our record of it for i := 0 to FLogicalFonts.Count - 1 do begin - Font := TLogicalFont(FLogicalFonts[ i ]); - Font.Free; + lFont := TLogicalFont(FLogicalFonts[ i ]); + lFont.Free; end; FLogicalFonts.Clear; FLogicalFonts.Free; @@ -576,8 +578,8 @@ begin // TCanvasFontManager asked for FontFaces to be created, so lets take responsibility to destroy it. for i := 0 to FontFaces.Count-1 do begin - face := TFontFace(Fontfaces[i]); - face.Free; + lface := TFontFace(Fontfaces[i]); + lface.Free; end; FontFaces.Clear; FontFaces.Free; |