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

Add some enhancements and fixes in the winboard mod

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2168 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
brian-ch
2011-11-27 16:13:27 +00:00
parent d2dccb679c
commit 45a7900c4e
2 changed files with 81 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
applications/fpchess/mod_winboard.pas
View File

@@ -20,7 +20,7 @@ type
EngineStringList: TStringList;
side : boolean; //Side to move true=human.
public
constructor Create;
constructor Create; override;
procedure CreateUserInterface(); override;
procedure ShowUserInterface(AParent: TWinControl); override;
procedure HideUserInterface(); override;
@@ -47,11 +47,11 @@ procedure TWinboardChessModule.CreateUserInterface;
begin
textEnginePatch := TStaticText.Create(nil);
textEnginePatch.SetBounds(20, 20, 180, 50);
textEnginePatch.Caption := 'Full patch to the engine(with args)';
textEnginePatch.Caption := 'Full patch to the engine';
editEnginePatch := TEdit.Create(nil);
editEnginePatch.SetBounds(200, 20, 150, 50);
editEnginePatch.Text := 'gnuchess -x';
editEnginePatch.Text := 'gnuchess';
end;
procedure TWinboardChessModule.ShowUserInterface(AParent: TWinControl);
@@ -100,4 +100,6 @@ end;
initialization
RegisterChessModule(TWinboardChessModule.Create);
finalization
vwinboardConn.stopEngine;
end.