minesweeper/uGameInterfaces.pas at main · ImperiumDelphi/minesweeper · GitHub

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
28
29
30
31
32
33
34
unit uGameInterfaces;

interface

uses
   System.UITypes;

Type

   TFieldSize         = (fsVerySmall, fsSmall,   fsMedium, fsLarge, fsVeryLarge);
   TFieldDifficulty   = (fdVeryEasy,  fdEasy,    fdMedium, fdHard,  fdVeryHard);
   TFieldEffects      = (feNome,      feOpacity, feSquare, feRadar);
   TFieldArray        = Array[0..33, 0..33] Of Byte;
   TFieldArrayF       = Array[0..33, 0..33] Of Single;
   TFieldArrayEffects = Array[0..33, 0..33] Of TFieldEffects;
   TFieldArrayColors  = Array[0..33, 0..33] Of TAlphaColor;
   TClickPosition     = Procedure (aButton : TMouseButton; aLx, aLy, aValue : Integer) Of Object;


   IMinesweeper = interface
      ['{EB0956CD-BAC6-4F08-B1A5-706AF60D45AD}']
      Function SetDifficulty(aValue : TFieldDifficulty) : IMinesweeper;
      Function SetFieldSize (aValue : TFieldSize)       : IMinesweeper;
      procedure ClickField(aButton : TMouseButton; aX, aY, aValue: Integer);
      procedure CentralizeMap;
      Procedure StartGame;
      Procedure StartTime;
      procedure ShowStartScreen;
      Procedure Terminate;
      End;

implementation

end.