From db9a7563f1db5f1b1b1bc7612d153b814ed77488 Mon Sep 17 00:00:00 2001
From: brian-ch <brian-ch@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 17 May 2015 14:49:32 +0000
Subject: [PATCH] FPChess: fix in the move validation.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4137 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpchess/chessgame.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/applications/fpchess/chessgame.pas b/applications/fpchess/chessgame.pas
index 9aecaf238..c68772238 100644
--- a/applications/fpchess/chessgame.pas
+++ b/applications/fpchess/chessgame.pas
@@ -851,8 +851,7 @@ end;
 function TChessGame.QueenHasValidMove(ASquare: TPoint): boolean;
 begin
   Result:=false;
-  if (RookHasValidMove(ASquare) and BishopHasValidMove(ASquare)) then exit(true);
-  result:=false;
+  if (RookHasValidMove(ASquare) or BishopHasValidMove(ASquare)) then exit(true);
 end;
 
 function TChessGame.KingHasValidMove(ASquare: TPoint): boolean;