plugins/Chess4Net/ChessBoardHeaderUnit.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

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.