Unit Menus

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
Klasse EMenuError  
Klasse TMenuActionLink  
Klasse TMenuItem  
Klasse TMenu  
Klasse TMainMenu  
Klasse TPopupMenu  

Funktionen und Prozeduren

function ShortCut(const Key: Word; const Shift : TShiftState) : TShortCut;
procedure ShortCutToKey(const ShortCut : TShortCut; var Key: Word; var Shift : TShiftState);
function NewMenu(Owner: TComponent; const AName: string; const Items: array of TMenuItem): TMainMenu;
function NewPopupMenu(Owner: TComponent; const AName: string; Alignment: TPopupAlignment; AutoPopup: Boolean; const Items: array of TMenuItem): TPopupMenu;
function NewSubMenu(const ACaption: string; hCtx: THelpContext; const AName: string; const Items: array of TMenuItem; TheEnabled: Boolean = True): TMenuItem;
function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, TheEnabled: Boolean; TheOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;
function NewLine: TMenuItem;
procedure Register;

Typen

TMenuChangeEvent = procedure (Sender: TObject; Source: TMenuItem; Rebuild: Boolean) of object;
TMenuActionLinkClass = class of TMenuActionLink;
TMenuItemHandlerType = (...);
TMenuItemClass = class of TMenuItem;
TFindItemKind = (...);
TPopupAlignment = (...);

Konstanten

cHotkeyPrefix = '&';
cLineCaption = '-';
cDialogSuffix = '...';

Variablen

DesignerMenuItemClick: TNotifyEvent;
ActivePopupMenu: TPopupMenu;
OnMenuPopupHandler: TNotifyEvent;

Beschreibung

Funktionen und Prozeduren

function ShortCut(const Key: Word; const Shift : TShiftState) : TShortCut;
 
procedure ShortCutToKey(const ShortCut : TShortCut; var Key: Word; var Shift : TShiftState);
 
function NewMenu(Owner: TComponent; const AName: string; const Items: array of TMenuItem): TMainMenu;
 
function NewPopupMenu(Owner: TComponent; const AName: string; Alignment: TPopupAlignment; AutoPopup: Boolean; const Items: array of TMenuItem): TPopupMenu;
 
function NewSubMenu(const ACaption: string; hCtx: THelpContext; const AName: string; const Items: array of TMenuItem; TheEnabled: Boolean = True): TMenuItem;
 
function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, TheEnabled: Boolean; TheOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;
 
function NewLine: TMenuItem;
 
procedure Register;
 

Typen

TMenuChangeEvent = procedure (Sender: TObject; Source: TMenuItem; Rebuild: Boolean) of object;
 
TMenuActionLinkClass = class of TMenuActionLink;
 
TMenuItemHandlerType = (...);
 
Values
  • mihtDestroy:
TMenuItemClass = class of TMenuItem;
 
TFindItemKind = (...);
 
Values
  • fkCommand:
  • fkHandle:
  • fkShortCut:
TPopupAlignment = (...);
 
Values
  • paLeft:
  • paRight:
  • paCenter:

Konstanten

cHotkeyPrefix = '&';
 
cLineCaption = '-';
 
cDialogSuffix = '...';
 

Variablen

DesignerMenuItemClick: TNotifyEvent;
 
ActivePopupMenu: TPopupMenu;
 
OnMenuPopupHandler: TNotifyEvent;
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:03:02