From 73811c895f2bfc2ac1f89f1cb73b154f27215142 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 6 Sep 2011 11:12:55 +0000
Subject: [PATCH] fpchess: Fixes login name

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1905 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpchess/chessgame.pas | 1 +
 applications/fpchess/mainform.pas  | 1 +
 applications/fpchess/mod_fics.pas  | 2 +-
 3 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/applications/fpchess/chessgame.pas b/applications/fpchess/chessgame.pas
index ee128e2b9..dc9d6b006 100644
--- a/applications/fpchess/chessgame.pas
+++ b/applications/fpchess/chessgame.pas
@@ -91,6 +91,7 @@ type
   public
     Board: TChessBoard;
     msg : String;
+    PlayerName: string;
     FirstPlayerIsWhite, IsWhitePlayerTurn: Boolean;
     Dragging: Boolean;
     DragStart, MouseMovePos: TPoint;
diff --git a/applications/fpchess/mainform.pas b/applications/fpchess/mainform.pas
index 6e3aea4e5..e493223c1 100644
--- a/applications/fpchess/mainform.pas
+++ b/applications/fpchess/mainform.pas
@@ -246,6 +246,7 @@ begin
 
   gSelectedModuleIndex := comboGameMode.ItemIndex;
   lModule := GetChessModule(gSelectedModuleIndex);
+  vChessGame.PlayerName := editPlayerName.Text;
   lModule.PrepareForGame();
 
   timerChessTimer.Enabled := True;
diff --git a/applications/fpchess/mod_fics.pas b/applications/fpchess/mod_fics.pas
index bf80b764c..9b53ddbe3 100644
--- a/applications/fpchess/mod_fics.pas
+++ b/applications/fpchess/mod_fics.pas
@@ -147,7 +147,7 @@ var
   lResult, WaitTerminated: Boolean;
   lMsg: string;
 begin
-  FICS_USER := 'FPChess';
+  FICS_USER := vChessGame.PlayerName;
   FICS_PASSWORD := editPassword.Text;
 
 //  SecondPlayerName := editSecondPlayerName.Text;