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
|
{%MainUnit ../actnlist.pas}
{
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
function TShortCutList.Add(const S: String): Integer;
var
ShortCut: TShortCut;
begin
Result := inherited Add(S);
ShortCut := TextToShortCut(S);
Objects[Result] := TObject(PtrUInt(ShortCut));
end;
function TShortCutList.GetShortCuts(Index: Integer): TShortCut;
begin
Result := TShortCut(PtrUInt(Objects[Index]));
end;
function TShortCutList.IndexOfShortCut(const Shortcut: TShortCut): Integer;
var
I: Integer;
begin
Result := -1;
for I := 0 to Count - 1 do
if TShortCut(PtrUInt(Objects[I])) = ShortCut then
begin
Result := I;
break;
end;
end;
// included by actnlist.pas
|
