Declaration
TIEKeyboardShortcutEvent = procedure(Sender: TObject; Shortcut: TShortcut; var Allow: boolean) of object;
Description
Used by the
OnKeyboardShortcut events of
TImageEnView and
TImageEnMView.
procedure TForm1.ImageEnView1KeyboardShortcut(Sender: TObject; Shortcut: TShortCut; var Allow: Boolean);
begin
// Prevent pasting to the background layer
if ( ImageEnView1.LayersCurrent = 0 ) and ( Shortcut = scCtrl or VK_V ) then
Allow := False;
end;