procedure TJigsawGameMainForm.dgGameDrawCell(Sender: TObject; aCol,
aRow: Integer; aRect: TRect; aState: TGridDrawState);
var i: Integer;
begin
i := Game.DrawGameCell(ACol, ARow, aRect, aState);
if (i > -1) then
Game.PieceImages.Draw(Frame1_1.dgGame.Canvas,
ACol*(Frame1_1.dgGame.DefaultColWidth),
ARow*(Frame1_1.dgGame.DefaultRowHeight),i,True)
else
with Frame1_1.dgGame.Canvas do
begin
Brush.Color := clWindow;
FillRect(aRect);
end;
end;