Class TfrmHotkeyEdit (unit hkEdit)

Inherits from

TForm

Constructors



Functions

procedure atiHotkeysEndAnimation(Sender: TObject);


procedure btnApplyClick(Sender: TObject);


procedure btnCloseClick(Sender: TObject);


procedure btnDeleteClick(Sender: TObject);


procedure btnNewClick(Sender: TObject);


procedure cboActionsClick(Sender: TObject);


procedure cboParamsClick(Sender: TObject);


procedure chkActiveClick(Sender: TObject);


procedure chkCtrlClick(Sender: TObject);


procedure chkShowIconClick(Sender: TObject);


procedure edtCommandLineChange(Sender: TObject);


procedure edtDescriptionChange(Sender: TObject);


procedure edtKeysToSendChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormResize(Sender: TObject);


procedure lvHotkeysClick(Sender: TObject);


procedure mnuAboutClick(Sender: TObject);


procedure mnuEditHotkeysClick(Sender: TObject);


procedure mnuExitClick(Sender: TObject);


procedure mnuHelpClick(Sender: TObject);


procedure mnuListHotkeysClick(Sender: TObject);


procedure SysHotkeysHotKey(Sender: TObject; Index: Integer);


procedure HotkeyMenuClick(Sender: TObject);


procedure HotkeyPressed(Index: Integer);


function ReadHotkey(Reader: TReader): String;


procedure AboutBox;


procedure AddTo(var sKey: String; Value: String);


procedure EditHotkeys;


procedure GetHotkey;


procedure HelpIndex;


procedure LoadHotkeys;


function Modifiers(sHotkey: String): THKModifiers;

Scrolllock

procedure ReadHotkeys;


procedure SaveHotkeys;

version

procedure SetHotkey;


procedure SetItem;


procedure ViewHotkeys;


function VirtKey(sHotkey: String): TVirtKey;

Parameter

procedure wmEditKeys(var Msg: TMessage);


procedure wmGetMinMaxInfo(var Msg: TWMGETMINMAXINFO);


procedure wmSendKeys(var Msg: TMessage);


function HotkeyOK(sHotkey: String): Boolean;


procedure SetChanged(Value: Boolean);


procedure SetControls;


Properties

property IsChanged : Boolean


Events

Variables

atiHotkeys : TAnimatedTrayIcon;


btnApply : TButton;


btnClose : TButton;


btnDelete : TButton;


btnNew : TButton;


cboActions : TComboBox;


cboHotkey : TComboBox;


cboParams : TComboBox;


chkActive : TCheckBox;


chkAlt : TCheckBox;


chkCtrl : TCheckBox;


chkShift : TCheckBox;


chkShowIcon : TCheckBox;


chkWin : TCheckBox;


edtCommandLine : TBrowseEdit;


edtDescription : TEdit;


edtKeysToSend : TEdit;


grpHotkey : TGroupBox;


lblAction : TLabel;


lblCommandLine : TLabel;


lblDescription : TLabel;


lblHotkey : TLabel;


lvHotkeys : TListView;


mnuAbout : TMenuItem;


mnuEditHotkeys : TMenuItem;


mnuExit : TMenuItem;


mnuHelp : TMenuItem;


mnuHotkeys : TMenuItem;


mnuListHotkeys : TMenuItem;


mnuSeparator0 : TMenuItem;


mnuSeparator1 : TMenuItem;


mnuSeparator2 : TMenuItem;


opdOpenFile : TOpenDialog;


pnlButtons : TPanel;


pnlControls : TPanel;


pnlEdit : TPanel;


pnlOptions : TPanel;


ppmTrayMenu : TPopupMenu;


SysHotkeys : TSysHotKey;


CommandLines : TStringList;


CurModifiers : THKModifiers;


CurVirtKey : TVirtKey;


FChanged : Boolean;


Ignore : Boolean;


Item : TListItem;


Quitting : Boolean;



Constructors


Functions


procedure atiHotkeysEndAnimation(Sender: TObject);


procedure btnApplyClick(Sender: TObject);


procedure btnCloseClick(Sender: TObject);


procedure btnDeleteClick(Sender: TObject);


procedure btnNewClick(Sender: TObject);


procedure cboActionsClick(Sender: TObject);


procedure cboParamsClick(Sender: TObject);


procedure chkActiveClick(Sender: TObject);


procedure chkCtrlClick(Sender: TObject);


procedure chkShowIconClick(Sender: TObject);


procedure edtCommandLineChange(Sender: TObject);


procedure edtDescriptionChange(Sender: TObject);


procedure edtKeysToSendChange(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormResize(Sender: TObject);


procedure lvHotkeysClick(Sender: TObject);


procedure mnuAboutClick(Sender: TObject);


procedure mnuEditHotkeysClick(Sender: TObject);


procedure mnuExitClick(Sender: TObject);


procedure mnuHelpClick(Sender: TObject);


procedure mnuListHotkeysClick(Sender: TObject);


procedure SysHotkeysHotKey(Sender: TObject; Index: Integer);


procedure HotkeyMenuClick(Sender: TObject);


procedure HotkeyPressed(Index: Integer);


function ReadHotkey(Reader: TReader): String;


procedure AboutBox;


procedure AddTo(var sKey: String; Value: String);


procedure EditHotkeys;


procedure GetHotkey;


procedure HelpIndex;


procedure LoadHotkeys;


function Modifiers(sHotkey: String): THKModifiers;

Scrolllock


procedure ReadHotkeys;


procedure SaveHotkeys;

version


procedure SetHotkey;


procedure SetItem;


procedure ViewHotkeys;


function VirtKey(sHotkey: String): TVirtKey;

Parameter


procedure wmEditKeys(var Msg: TMessage);


procedure wmGetMinMaxInfo(var Msg: TWMGETMINMAXINFO);


procedure wmSendKeys(var Msg: TMessage);


function HotkeyOK(sHotkey: String): Boolean;


procedure SetChanged(Value: Boolean);


procedure SetControls;


Properties


property IsChanged : Boolean


Events


Variables


atiHotkeys : TAnimatedTrayIcon;


btnApply : TButton;


btnClose : TButton;


btnDelete : TButton;


btnNew : TButton;


cboActions : TComboBox;


cboHotkey : TComboBox;


cboParams : TComboBox;


chkActive : TCheckBox;


chkAlt : TCheckBox;


chkCtrl : TCheckBox;


chkShift : TCheckBox;


chkShowIcon : TCheckBox;


chkWin : TCheckBox;


edtCommandLine : TBrowseEdit;


edtDescription : TEdit;


edtKeysToSend : TEdit;


grpHotkey : TGroupBox;


lblAction : TLabel;


lblCommandLine : TLabel;


lblDescription : TLabel;


lblHotkey : TLabel;


lvHotkeys : TListView;


mnuAbout : TMenuItem;


mnuEditHotkeys : TMenuItem;


mnuExit : TMenuItem;


mnuHelp : TMenuItem;


mnuHotkeys : TMenuItem;


mnuListHotkeys : TMenuItem;


mnuSeparator0 : TMenuItem;


mnuSeparator1 : TMenuItem;


mnuSeparator2 : TMenuItem;


opdOpenFile : TOpenDialog;


pnlButtons : TPanel;


pnlControls : TPanel;


pnlEdit : TPanel;


pnlOptions : TPanel;


ppmTrayMenu : TPopupMenu;


SysHotkeys : TSysHotKey;


CommandLines : TStringList;


CurModifiers : THKModifiers;


CurVirtKey : TVirtKey;


FChanged : Boolean;


Ignore : Boolean;


Item : TListItem;


Quitting : Boolean;