You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
853 B
Plaintext
38 lines
853 B
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit RnQMenu;
|
|
{$I ForRnQConfig.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Menus, RDGlobal, RQMenuItem;
|
|
|
|
function AddToMenu(ppi : TMenuItem; const Cptn : String; const ImName : TPicName;
|
|
isDef : Boolean; Ev : TNotifyEvent = nil; Translate : Boolean = True) : TRQMenuItem;
|
|
|
|
{$I NoRTTI.inc}
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, RnQLangs, RQUtil;
|
|
|
|
function AddToMenu(ppi : TMenuItem; const Cptn : String; const ImName : TPicName;
|
|
isDef : Boolean; Ev : TNotifyEvent = nil; Translate : Boolean = True) : TRQMenuItem;
|
|
begin
|
|
result := TRQMenuItem.Create(ppi);
|
|
// result.Name := ;
|
|
if Translate then
|
|
result.Caption := GetTranslation(Cptn)
|
|
else
|
|
result.Caption := Cptn;
|
|
result.ImageName := ImName;
|
|
result.OnClick := Ev;
|
|
ppi.Add(result);
|
|
end;
|
|
|
|
end.
|