Class TMenu

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TMenu = class(TMenuEntryWithCaption)

Description

TMenuEntry that contains a list of menu entries. This is the basic class to represent a drop-down menu, a submenu etc.

Hierarchy

Overview

Methods

Public function EntriesCount: Integer;
Public procedure Insert(Index: Integer; Value: TMenuEntry);
Public procedure Append(Value: TMenuEntry);
Public procedure EntryDelete(Index: Integer);
Public procedure EntriesDeleteAll;
Public constructor Create(const ACaption: String);
Public destructor Destroy; override;
Public function AppendRadioGroup(const Items: array of string; BaseIntData: Cardinal; SelectedIndex: Integer; AAutoCheckedToggle: boolean; QuoteCaption: boolean = true): TMenuItemRadioGroup;

Properties

Public property Entries[Index:Integer]: TMenuEntry read GetEntries;

Description

Methods

Public function EntriesCount: Integer;
 
Public procedure Insert(Index: Integer; Value: TMenuEntry);
 
Public procedure Append(Value: TMenuEntry);

Add at the end. Same as Insert(EntriesCount, Value).

Public procedure EntryDelete(Index: Integer);
 
Public procedure EntriesDeleteAll;
 
Public constructor Create(const ACaption: String);
 
Public destructor Destroy; override;
 
Public function AppendRadioGroup(const Items: array of string; BaseIntData: Cardinal; SelectedIndex: Integer; AAutoCheckedToggle: boolean; QuoteCaption: boolean = true): TMenuItemRadioGroup;

Append a number of radio menu items. This is a comfortable shortcut for an often task of adding many TMenuItemRadio items that create a new radio group (TMenuItemRadioGroup).

Otherwise, it creates new

For each item of Items list, we'll add a new TMenuItemRadio instance.

  • TMenuItemRadio.Caption will be set to the Items[I] string. Additionally it will be quoted by SQuoteMenuEntryCaption to avoid interpreting underscore characters (if QuoteCaption).

  • TMenuItemRadio.IntData will be set to BaseIntData + the number of this item. (This is usually most comfortable, you can handle this radio group by "case" with a range.)

  • TMenuItemRadio.Group will be equal. More precisely: along with creating the first TMenuItemRadio, we will also create new TMenuItemRadioGroup. For the rest of TMenuItemRadio, we'll assign this group.

  • TMenuItemRadio.Checked will be set to True on only one item: the one numbered SelectedIndex. Pass SelectedIndex negative (or >= than items count) to have no radio item checked by default.

  • TMenuItemRadio.AutoCheckedToggle will be set according to ou parameter AAutoCheckedToggle.

We return the newly created TMenuItemRadioGroup. If Items is empty, this does nothing and returns Nil.

Properties

Public property Entries[Index:Integer]: TMenuEntry read GetEntries;

Items (entries) on the menu. Items are owned by this menu instance (are automatically freed at destruction, at EntryDelete and such).


Generated by PasDoc 0.12.1 on 2013-02-04 20:26:53