From 36975bdaef88670c54c7ce3b43377e35e2d669f6 Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 4 Jan 2020 15:09:59 +0000
Subject: [PATCH] Sudoku: make grid en cell sizes larger, add gridlines, remove
 unised label.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7222 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/sudoku/sudokumain.lfm | 38 ++++++++++++------------------
 applications/sudoku/sudokumain.pas |  1 -
 2 files changed, 15 insertions(+), 24 deletions(-)

diff --git a/applications/sudoku/sudokumain.lfm b/applications/sudoku/sudokumain.lfm
index 723a92c6e..3b7477f78 100644
--- a/applications/sudoku/sudokumain.lfm
+++ b/applications/sudoku/sudokumain.lfm
@@ -1,33 +1,25 @@
 object Form1: TForm1
-  Left = 571
-  Height = 281
-  Top = 355
-  Width = 272
+  Left = 566
+  Height = 359
+  Top = 203
+  Width = 333
   HorzScrollBar.Page = 271
   VertScrollBar.Page = 280
   ActiveControl = ButtonFill
   Caption = 'Form1'
-  ClientHeight = 281
-  ClientWidth = 272
+  ClientHeight = 359
+  ClientWidth = 333
   LCLVersion = '2.1.0.0'
-  object Label1: TLabel
-    Left = 44
-    Height = 15
-    Top = 8
-    Width = 34
-    Caption = 'Label1'
-    ParentColor = False
-  end
   object StringGrid1: TStringGrid
-    Left = 44
-    Height = 182
-    Top = 40
-    Width = 182
+    Left = 16
+    Height = 280
+    Top = 16
+    Width = 292
     ColCount = 9
-    DefaultColWidth = 20
+    DefaultColWidth = 30
+    DefaultRowHeight = 30
     FixedCols = 0
     FixedRows = 0
-    GridLineWidth = 0
     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
     RowCount = 9
     TabOrder = 2
@@ -35,9 +27,9 @@ object Form1: TForm1
     OnSetEditText = StringGrid1SetEditText
   end
   object ButtonFill: TButton
-    Left = 44
+    Left = 16
     Height = 25
-    Top = 228
+    Top = 312
     Width = 75
     BorderSpacing.InnerBorder = 2
     Caption = 'Fill'
@@ -47,7 +39,7 @@ object Form1: TForm1
   object ButtonSolve: TButton
     Left = 151
     Height = 25
-    Top = 228
+    Top = 312
     Width = 75
     BorderSpacing.InnerBorder = 2
     Caption = 'Solve'
diff --git a/applications/sudoku/sudokumain.pas b/applications/sudoku/sudokumain.pas
index 12eeb8ae7..e3436b266 100644
--- a/applications/sudoku/sudokumain.pas
+++ b/applications/sudoku/sudokumain.pas
@@ -37,7 +37,6 @@ type
   TForm1 = class(TForm)
     ButtonSolve: TButton;
     ButtonFill: TButton;
-    Label1: TLabel;
     StringGrid1: TStringGrid;
     procedure ButtonFillClick(Sender: TObject);
     procedure ButtonSolveClick(Sender: TObject);