DBFF/MapViewer.pas at master · hinst/DBFF · 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
unit MapViewer;

{$mode objfpc}{$H+}

interface

uses
  Classes,
  SysUtils,

  NiceTypes,
  NiceExceptions,

  TerrainViewer,
  MapDataFace,
  MapScrollManager,
  TerrainManagerFace,
  TerrainManagerFaceE;

type

  { TMapView }

  TMapView = class(TComponent)
  public
    constructor Create(const aOwner: TComponent);
  private
    fTerrainView: TTerrainView;
    fScroll: TMapScrollManager;
    procedure Initialize;
    procedure SetTerrainManager(const aManager: ITerrainManagerE);
    procedure SetMap(const aMap: IMapData);
    procedure AssertAssignedTerrainView;
    procedure Finalize;
  public
    property TerrainView: TTerrainView read fTerrainView;
    property Scroll: TMapScrollManager read fScroll;
    property TerrainManager: ITerrainManagerE write SetTerrainManager;
    property Map: IMapData write SetMap;
    procedure Draw;
    procedure UpdateView;
    procedure ReceiveInput(const aTime: double);
    destructor Destroy; override;
  end;

implementation

{ TMapView }

constructor TMapView.Create(const aOwner: TComponent);
begin
  inherited Create(aOwner);
  Initialize;
end;

procedure TMapView.Initialize;
begin
  fScroll := TMapScrollManager.Create;
  fTerrainView := TTerrainView.Create(self);
  TerrainView.Scroll := fScroll;
end;

procedure TMapView.SetTerrainManager(const aManager: ITerrainManagerE);
begin
  AssertAssignedTerrainView;
  TerrainView.Terrain := aManager;
end;

procedure TMapView.SetMap(const aMap: IMapData);
begin
  AssertAssignedTerrainView;
  Scroll.Map := aMap;
  TerrainView.Map := aMap;
end;

procedure TMapView.AssertAssignedTerrainView;
begin
  AssertAssigned(TerrainView, 'TerrainView', TVariableType.Propertie);
end;

procedure TMapView.Finalize;
begin
  FreeAndNil(fScroll);
  FreeAndNil(fTerrainView);
end;

procedure TMapView.Draw;
begin
  TerrainView.DrawTerrainLayer;
end;

procedure TMapView.UpdateView;
begin
  Scroll.Update;
  TerrainView.Update;
end;

procedure TMapView.ReceiveInput(const aTime: double);
begin
  AssertAssignedTerrainView;
  Scroll.ReceiveInput(aTime);
end;

destructor TMapView.Destroy;
begin
  Finalize;
  inherited Destroy;
end;

end.