Unit mseact

Description

Uses

Classes, Interfaces, Objects and Records

Functions and Procedures

Types

Constants

Variables

Description

Overview

Classes, Interfaces, Objects and Records

Name	Description
Record `actioninfoty`
Interface `iactionlink`
Class `tcustomaction`
Class `tnoguiaction`

Functions and Procedures

procedure linktoaction(const sender: iactionlink; const aaction: tcustomaction; var info: actioninfoty);

procedure setactionchecked(const sender: iactionlink; const value: boolean);

procedure setactioncaption(const sender: iactionlink; const value: msestring);

function isactioncaptionstored(const info: actioninfoty): boolean;

procedure setactionimagenr(const sender: iactionlink; const value: integer);

function isactionimagenrstored(const info: actioninfoty): boolean;

procedure setactionimagenrdisabled(const sender: iactionlink; const value: integer);

function isactionimagenrdisabledstored(const info: actioninfoty): boolean;

procedure setactioncolorglyph(const sender: iactionlink; const value: colorty);

function isactioncolorglyphstored(const info: actioninfoty): boolean;

procedure setactioncolor(const sender: iactionlink; const value: colorty);

function isactioncolorstored(const info: actioninfoty): boolean;

procedure setactionimagecheckedoffset(const sender: iactionlink; const value: integer);

function isactionimagecheckedoffsetstored(const info: actioninfoty): boolean;

procedure setactionhint(const sender: iactionlink; const value: msestring);

function isactionhintstored(const info: actioninfoty): boolean;

procedure setactiontag(const sender: iactionlink; const value: integer);

function isactiontagstored(const info: actioninfoty): boolean;

procedure setactionstate(const sender: iactionlink; const value: actionstatesty);

function isactionstatestored(const info: actioninfoty): boolean;

procedure setactionoptions(const sender: iactionlink; const value: menuactionoptionsty);

procedure setactiongroup(const sender: iactionlink; const value: integer);

function isactiongroupstored(const info: actioninfoty): boolean;

procedure setactiononexecute(const sender: iactionlink; const value: notifyeventty; const aloading: boolean);

function isactiononexecutestored(const info: actioninfoty): boolean;

procedure setactiononbeforeexecute(const sender: iactionlink; const value: accepteventty; const aloading: boolean);

function isactiononbeforeexecutestored(const info: actioninfoty): boolean;

procedure setactiononafterexecute(const sender: iactionlink; const value: notifyeventty; const aloading: boolean);

function isactiononafterexecutestored(const info: actioninfoty): boolean;

procedure actionbeginload(const sender: iactionlink);

procedure actionendload(const sender: iactionlink);

function doactionexecute(const sender: tobject; var info: actioninfoty; const nocheckbox: boolean = false; const nocandefocus: boolean = false; const beforeexecute: proceventty = nil; const force: boolean = false): boolean;

function doactionexecute1(const sender: tobject; var info: actioninfoty; out changed: boolean; const nocheckbox: boolean = false; const nocandefocus: boolean = false; const beforeexecute: proceventty = nil; const force: boolean = false): boolean;

procedure initactioninfo(var info: actioninfoty; aoptions: menuactionoptionsty = []);

procedure actionstatestoshapestates(const source: actioninfoty; var dest: shapestatesty);

procedure shapestatestoactionstates(source: shapestatesty; var dest: actionstatesty; const mask: actionstatesty = actionshapestatesconst);

function translateshortcut(const akey: shortcutty): shortcutty;

procedure translateshortcut1(var akey: shortcutty);

Types

shapestatety = (...);

shapestatesty = set of shapestatety;

actionstatety = (...);

actionstatesty = set of actionstatety;

actionstatesarty = array of actionstatesty;

menuactionoptionty = (...);

menuactionoptionsty = set of menuactionoptionty;

actionoptionty = (...);

actioneventty = procedure(const sender: tcustomaction) of object;

pactioninfoty = ˆactioninfoty;

asynceventty = procedure(const sender: tobject; var atag: integer) of object;

actionoptionsty = set of actionoptionty;

Constants

defaultactionstates = [];

invisibleactionstates = [ord(as_syncdisabledlocked)];

actionstatesmask: actionstatesty = 
                            [as_disabled,as_checked,as_invisible,as_default,
                             as_repeatshortcut];

actionshapestatesconst = [as_disabled,as_invisible,as_checked,as_default];

actionshapestates: actionstatesty = actionshapestatesconst;

actionoptionshapestates: menuactionoptionsty = 
                  [mao_separator,mao_optional,mao_checkbox,mao_radiobutton];

actionoptionshapelshift = ord(shs_separator);

localactionstates: actionstatesty =
            [as_localdisabled,as_localinvisible,as_localchecked,as_localdefault,
             as_localrepeatshortcut,
             as_localcaption,
             as_localimagelist,as_localimagenr,as_localimagenrdisabled,
             as_localimagecheckedoffset,
             as_localcolorglyph,as_localcolor,
             as_localhint,as_localshortcut,as_localshortcut1,as_localtag,
             as_localgroup,as_localonbeforeexecute,as_localonexecute,
             as_localonafterexecute];

localactionlshift = ord(as_localdisabled);

localactionstatestates: actionstatesty =
          [as_localdisabled,as_localinvisible,as_localchecked,as_localdefault,
           as_localrepeatshortcut];

defaultactionoptions = [];

Variables

assistiveexechandler: procedure(const sender: tobject; const info: actioninfoty);