Unit mseactions

Description

Uses

Classes, Interfaces, Objects and Records

Functions and Procedures

Types

Constants

Variables

Description

Overview

Classes, Interfaces, Objects and Records

Name	Description
Class `taction`
Class `tshortcutaction`
Class `tshortcutactions`
Class `tsysshortcuts`
Class `tassistiveshortcuts`
Record `shortcutstatinfoty`
Class `tshortcutcontroller`
Class `tcustomhelpcontroller`
Class `thelpcontroller`

Functions and Procedures

function issameshortcut(const a,b: shortcutarty): boolean;

function getsimpleshortcut(const asource: shortcutarty): shortcutty; overload;

function getsimpleshortcut(const asource: actioninfoty): shortcutty; overload;

function getsimpleshortcut1(const asource: actioninfoty): shortcutty;

function setsimpleshortcut(const avalue: shortcutty): shortcutarty; overload;

procedure setsimpleshortcut(const avalue: shortcutty; var adest: shortcutarty); overload;

procedure setsimpleshortcut(const avalue: shortcutty; var adest: actioninfoty); overload;

procedure setsimpleshortcut1(const avalue: shortcutty; var adest: actioninfoty);

function checkshortcutconflict(const a,b: shortcutarty): boolean;

procedure setactionshortcuts(const sender: iactionlink; const value: shortcutarty);

procedure setactionshortcuts1(const sender: iactionlink; const value: shortcutarty);

procedure setactionshortcut(const sender: iactionlink; const value: shortcutty);

procedure setactionshortcut1(const sender: iactionlink; const value: shortcutty);

function isactionshortcutstored(const info: actioninfoty): boolean;

function isactionshortcut1stored(const info: actioninfoty): boolean;

procedure setactionimagelist(const sender: iactionlink; const value: timagelist);

function isactionimageliststored(const info: actioninfoty): boolean;

procedure getshortcutlist(out keys: integerarty; out names: msestringarty);

function getshortcutname(const shortcut: shortcutty): msestring;

function getshortcutname(const key: keyty; const shiftstate: shiftstatesty): msestring;

function getsysshortcutdispname(const aitem: sysshortcutty): msestring;

function getassistiveshortcutdispname( const aitem: assistiveshortcutty): msestring;

function isvalidshortcut(const ashortcut: shortcutty): boolean;

function encodeshortcut(const akey: keyty; const ashiftstate: shiftstatesty): shortcutty;

function encodeshortcutname(const key: shortcutarty): msestring; overload;

function encodeshortcutname(const key: shortcutty): msestring; overload;

function checkshortcutcode(const shortcut: shortcutty; const info: keyeventinfoty; const apreview: boolean = false): boolean; overload;

function checkshortcutcode(const shortcut: shortcutty; const info: keyinfoty): boolean; overload;

function checkactionshortcut(const ashortcut: shortcutarty; var keyinfo: keyeventinfoty): boolean;

function checkactionshortcut(var info: actioninfoty; var keyinfo: keyeventinfoty): boolean;

function doactionshortcut(const sender: tobject; var info: actioninfoty; var keyinfo: keyeventinfoty; const beforeexecute: proceventty = nil): boolean;

procedure calccaptiontext(var info: actioninfoty; const aseparator: msechar);

function issysshortcut(const ashortcut: sysshortcutty; const ainfo: keyeventinfoty): boolean;

Types

sysshortcutty = (...);

sysshortcutaty = array[sysshortcutty] of shortcutty;

psysshortcutaty = ˆsysshortcutaty;

shortcutconstty = array[0..2] of shortcutty;

assistiveshortcutty = (...);

assistiveshortcutconstty = array[assistiveshortcutty] of shortcutconstty;

assistiveshortcutaty = array[assistiveshortcutty] of shortcutarty;

passistiveshortcutaty = ˆassistiveshortcutaty;

shortcutrecarty = array of 
                    record 
                     name: string;
                     value: int32;
                    end;

assistiveshortcutrecarty = array of 
                             record 
                              name: string;
                              value: shortcutarty;
                             end;

shortcutstatinfoarty = array of shortcutstatinfoty;

shortcutcontrollereventty = procedure( const sender: tshortcutcontroller) of object;

helpcontrollereventty = procedure(const sender: tcustomhelpcontroller; const helpsender: tmsecomponent; var handled: boolean) of object;

helpcontrollerprocty = procedure(const sender: tcustomhelpcontroller; const helpsender: tmsecomponent; var handled: boolean);

Constants

shift = ord(key_modshift);

ctrl = ord(key_modctrl);

alt = ord(key_modalt);

pad = ord(key_modpad);

modmask = shift or ctrl or alt or $1000 or pad;

defaultsysshortcuts: sysshortcutaty = 

 (ctrl+ord(key_c),     ctrl+ord(key_v),           ctrl+ord(key_x),

  ctrl+ord(key_a),

  ctrl+ord(key_insert),shift+ctrl+ord(key_insert),ctrl+ord(key_delete),

  (ctrl+shift+ord(key_c)),(ctrl+shift+ord(key_v)),

  ctrl+ord(key_z),      shift+ctrl+ord(key_z)
  );

defaultsysshortcuts1: sysshortcutaty = 

 (ord(key_none),       shift+ord(key_insert),     shift+ord(key_delete),

  ord(key_none),

  ord(key_none),       ord(key_none),             ord(key_none),

  ord(key_none),       ord(key_none),

  ord(key_none),      ord(key_none)
  );

defaultassistiveshortcuts: assistiveshortcutconstty =
   
  ((ctrl+ord(key_space),0,0),(ctrl+shift+ord(key_space),0,0),
   
   (ctrl+ord(key_y),ord(key_f),0),(ctrl+ord(key_y),ord(key_l),0),
   
   (ctrl+ord(key_y),ord(key_c),0),
   
   (pad+ctrl+ord(key_minus),0,0),(pad+ctrl+ord(key_plus),0,0),
   
   (pad+shift+ctrl+ord(key_minus),0,0),(pad+shift+ctrl+ord(key_plus),0,0)
  );

defaultassistiveshortcuts1: assistiveshortcutconstty =
   
  ((pad+ctrl+ord(key_return),0,0),(pad+ctrl+shift+ord(key_return),0,0),
   
   (ord(key_none),0,0),(ord(key_none),0,0),
   
   (ord(key_none),0,0),
   
   (ord(key_none),0,0),(ord(key_none),0,0),
   
   (ord(key_none),0,0),(ord(key_none),0,0)
  );

Variables

sysshortcuts: sysshortcutaty;

sysshortcuts1: sysshortcutaty;

assistiveshortcuts: assistiveshortcutaty;

assistiveshortcuts1: assistiveshortcutaty;