From f81cdec6d97bca26697e46408dcf40f751031009 Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 4 Jan 2020 19:33:39 +0000
Subject: [PATCH] Sudoku: refine sulution of r7233.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7234 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/sudoku/sudokumain.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/applications/sudoku/sudokumain.pas b/applications/sudoku/sudokumain.pas
index c5f0b201e..6b0b13c68 100644
--- a/applications/sudoku/sudokumain.pas
+++ b/applications/sudoku/sudokumain.pas
@@ -161,6 +161,7 @@ var
   NeedsColor: Boolean;
   GridTextStyle: TTextStyle;
 begin
+  GridTextStyle := (Sender as TStringGrid).Canvas.TextStyle;
   GridTextStyle.Alignment := taCenter;
   GridTextStyle.Layout := tlCenter;
   (Sender as TStringGrid).Canvas.TextStyle := GridTextStyle;