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

fpchess: Increases the default kcchess difficulty

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

6
applications/fpchess/engines/kcchess/mod_kcchess.pas
View File

@ -240,12 +240,12 @@ end;
procedure TKCChessModule.CreateUserInterface; procedure TKCChessModule.CreateUserInterface;
begin begin
textDifficulty := TStaticText.Create(nil); textDifficulty := TStaticText.Create(nil);
textDifficulty.SetBounds(20, 20, 180, 50); textDifficulty.SetBounds(10, 10, 180, 50);
textDifficulty.Caption := 'Difficulty (3=easiest)'; textDifficulty.Caption := 'Difficulty (3=easiest, 9=hardest and slowest)';
spinDifficulty := TSpinEdit.Create(nil); spinDifficulty := TSpinEdit.Create(nil);
spinDifficulty.SetBounds(200, 20, 50, 50); spinDifficulty.SetBounds(200, 20, 50, 50);
spinDifficulty.Value := 3; spinDifficulty.Value := 6;
spinDifficulty.MinValue := 3; spinDifficulty.MinValue := 3;
spinDifficulty.MaxValue := 9; spinDifficulty.MaxValue := 9;
end; end;