paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 17:37:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

grid: fixes cell font properties if it was changed in OnPrepareCanvas

Browse Source 
git-svn-id: trunk@9700 -
This commit is contained in:
jesus 2006-08-04 05:37:48 +00:00
parent e573a70ddb
commit e2fb8b2131
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -2634,7 +2634,9 @@ end;
procedure TCustomGrid.SetCanvasFont(aFont: TFont);
begin
if aFont<>FLastFont then begin
if (aFont<>FLastFont) or
not Canvas.Font.IsEqual(aFont) then
begin
Canvas.Font := aFont;
FLastFont := AFont;
end;