diff options
Diffstat (limited to 'src/corelib/fpg_base.pas')
-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; |