pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpchess: Fixes login name

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1905 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-09-06 11:12:55 +00:00
parent 7f43f113b3
commit 73811c895f
3 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
applications/fpchess/chessgame.pas
View File

@ -91,6 +91,7 @@ type
public
Board: TChessBoard;
msg : String;
PlayerName: string;
FirstPlayerIsWhite, IsWhitePlayerTurn: Boolean;
Dragging: Boolean;
DragStart, MouseMovePos: TPoint;

1
applications/fpchess/mainform.pas
View File

@ -246,6 +246,7 @@ begin
gSelectedModuleIndex := comboGameMode.ItemIndex;
lModule := GetChessModule(gSelectedModuleIndex);
vChessGame.PlayerName := editPlayerName.Text;
lModule.PrepareForGame();
timerChessTimer.Enabled := True;

2
applications/fpchess/mod_fics.pas
View File

@ -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;