🚧 Implement actions as objects

2022-05-29 11:46:22 +02:00
parent dc36f0b09c
commit d75a85d269
6 changed files with 531 additions and 26 deletions
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@@ -36,7 +36,8 @@ uses
  StdCtrls, Spin, UEnums, laz.VirtualTrees, Buttons, UMulBlock, UWorldItem, math,
  LCLIntf, UOverlayUI, UStatics, UEnhancedMemoryStream, ActnList,
  XMLPropStorage, ImagingClasses, dateutils, UPlatformTypes, UMap, UPacket,
-  UGLFont, DOM, XMLRead, XMLWrite, strutils, ULightManager, fgl, UTiledata;
+  UGLFont, DOM, XMLRead, XMLWrite, strutils, ULightManager, fgl, UTiledata,
+  UActions;

 type
  TAccessChangedListener = procedure(AAccessLevel: TAccessLevel) of object;