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
871 B
Plaintext
38 lines
871 B
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit RnQMenu;
|
|
{$I ForRnQConfig.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Menus, RDGlobal;
|
|
|
|
//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.
|