lazarus/lcl/include/shortcutlist.inc
2016-03-09 15:43:32 +00:00

40 lines
970 B
PHP

{%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