index 63b0ae55a83587d0e1118b97633e2053ed3185d2..274a50e6e1ec1c33a9f5d7e1d11fdd0488bfd99e 100644 (file)
-(* Copyright (C) DooM 2D:Forever Developers
+(* Copyright (C) Doom 2D: Forever Developers
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
function cmdName (): AnsiString;
end;
- TCmdHash = specialize THashBase<AnsiString, PHolmesCommand>;
+ TCmdHash = specialize THashBase<AnsiString, PHolmesCommand, THashKeyStr>;
// ////////////////////////////////////////////////////////////////////////// //
// ////////////////////////////////////////////////////////////////////////// //
-function ansistrEquCB (constref a, b: AnsiString): Boolean; begin result := (a = b); end;
-function ansistrHashCB (constref a: AnsiString): LongWord; begin if (Length(a) > 0) then result := fnvHash(PChar(a)^, Length(a)) else result := 0; end;
-
function hashNewCommand (): TCmdHash;
begin
- result := TCmdHash.Create(ansistrHashCB, ansistrEquCB);
+ result := TCmdHash.Create();
end;
end;
-function keybindExecute (var ev: THKeyEvent): Boolean;
+function keybindExecute (var ev: TFUIEvent): Boolean;
var
f: Integer;
begin
end;
-function msbindExecute (var ev: THMouseEvent): Boolean;
+function msbindExecute (var ev: TFUIEvent): Boolean;
var
f: Integer;
begin