cast2-engine/C2MapEditMsg.pas at dev · casteng/cast2-engine · 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
(*
 @Abstract(CAST II Engine map editing messages unit)
 (C) 2006-2007 George "Mirage" Bakhtadze. <a href="http://www.casteng.com">www.casteng.com</a> <br>
 The source code may be used under either MPL 1.1 or LGPL 2.1 license. See included license.txt file <br>
 Created: Feb 25, 2007 <br>
 Unit contains map editing messages
*)
{$Include GDefines.inc}
{$Include C2Defines.inc}
unit C2MapEditMsg;

interface

uses BaseMsg, BaseGraph, CAST2, Props, Models;

type
  // Item-independent editing cursor class
  TMapCursor = class
      // Item-specific parameters
    Params: TProperties;
      // Editor-supplyed parameters
    MouseX, MouseY,
    LastEditMouseX, LastEditMouseY: Integer;
    Camera: CAST2.TCamera;
    Screen: BaseGraph.TScreen;
      // Feedback
    // Operation which returns editable item
    Operation: TOperation;

    // Cursor settings
    Kind: Cardinal;
//    Size,
    Value: Integer;
    Aligned: Boolean;
    // Editor visual data (texture, UV maps, etc)
    MainTextureName, UVMapName: AnsiString;
    UVMapStep: Integer;
    constructor Create;
    destructor Destroy; override;
  end;

  TMapEditorMessage = class(TMessage)
    Cursor: TMapCursor;
    constructor Create(ACursor: TMapCursor);
  end;

  TMapDrawCursorMsg = class(TMapEditorMessage)
  end;

  TMapModifyBeginMsg = class(TMapEditorMessage)
  end;

  TMapModifyMsg = class(TMapEditorMessage)
  end;

  TMapModifyEndMsg = class(TMapEditorMessage)
  end;

  TMapOperationsApplyedMsg = class(TMapEditorMessage)
  end;

  TRequestMapEditVisuals = class(TMapEditorMessage)
  end;

implementation

{ TMapCursor }

constructor TMapCursor.Create;
begin
  Params := TProperties.Create;
end;

destructor TMapCursor.Destroy;
begin
  Params.Free;
  Params := nil;
  inherited;
end;

{ MapEditorMessage }

constructor TMapEditorMessage.Create(ACursor: TMapCursor);
begin
  Cursor := ACursor;
end;

end.