diff options
Diffstat (limited to 'UDirDelete.pas')
| -rw-r--r-- | UDirDelete.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/UDirDelete.pas b/UDirDelete.pas index 953a41a..e1f6687 100644 --- a/UDirDelete.pas +++ b/UDirDelete.pas @@ -22,7 +22,7 @@ unit UDirDelete; interface uses - SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; + SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls; const DIR_DELETE_CANCEL = 0; DIR_DELETE_DELETE = 1; @@ -108,7 +108,7 @@ begin if (Key = gdk_keyval_to_lower(gdk_keyval_from_name(PChar(ExtractAccelerator(LANGIgnoreButton_Caption))))) then ModalResult := TMessageButton(DIR_DELETE_IGNORE) else if (Key = gdk_keyval_to_lower(gdk_keyval_from_name(PChar(ExtractAccelerator(LANGDeleteButton_Caption))))) then ModalResult := TMessageButton(DIR_DELETE_DELETE) else if (Key = gdk_keyval_to_lower(gdk_keyval_from_name(PChar(ExtractAccelerator(LANGAll))))) then ModalResult := TMessageButton(DIR_DELETE_ALL) else - if (Key = GDK_ESCAPE) then ModalResult := TMessageButton(DIR_DELETE_CANCEL); + if (Key = GDK_KEY_Escape) then ModalResult := TMessageButton(DIR_DELETE_CANCEL); end; |