From 1b2b4bb4f3ecc034a6e9364d8768e50b167a9680 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 24 Dec 2024 12:41:48 +0100 Subject: Rough GTK3 port --- UDirDelete.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'UDirDelete.pas') 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; -- cgit v1.2.3