blob: b0226e3321a7b79f6449459724ac20491c11864c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
////////////////////////////////////////////////////////////////////////////////
// All code below is exclusively owned by author of Chess4Net - Pavel Perminov
// (packpaul@mail.ru, packpaul1@gmail.com).
// Any changes, modifications, borrowing and adaptation are a subject for
// explicit permition from the owner.
unit ChessBoardHeaderUnit;
interface
uses
Types;
const
CHB_X = 20; CHB_Y = 6; // starting coordinates of A8 field
function Size(const iX, iY: integer): TSize;
implementation
function Size(const iX, iY: integer): TSize;
begin
Result.cx := iX;
Result.cy := iY;
end;
end.
|
