diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-19 00:58:10 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-19 09:02:21 +0000 |
commit | 58fbaf95ad23b3b3393d172cbee6cc0eea5611d9 (patch) | |
tree | 8ee648b2067d2406e6f95900dc2553bf558547b8 | |
parent | b4672388778f4c89a5cd05d87bb8818fa6d31592 (diff) | |
download | fpGUI-58fbaf95ad23b3b3393d172cbee6cc0eea5611d9.tar.xz |
Minor optimisation to CanvasBase.SetFont()
-rw-r--r-- | src/corelib/fpg_base.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 365ca20a..4c107e93 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -1847,6 +1847,8 @@ procedure TfpgCanvasBase.SetFont(AFont: TfpgFontBase); begin if AFont = nil then exit; + if FFont = AFont then + exit; FFont := AFont; DoSetFontRes(AFont.FFontRes); end; |