From 1b2b4bb4f3ecc034a6e9364d8768e50b167a9680 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Tue, 24 Dec 2024 12:41:48 +0100
Subject: Rough GTK3 port

---
 UCopyMove.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'UCopyMove.pas')

diff --git a/UCopyMove.pas b/UCopyMove.pas
index 0bbbcf2..3a2c3d3 100644
--- a/UCopyMove.pas
+++ b/UCopyMove.pas
@@ -22,7 +22,7 @@ unit UCopyMove;
 interface
 
 uses
-  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
+  SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls;
 
 type
   TFCopyMove = class(TGTKDialog)
@@ -54,7 +54,6 @@ begin
   Label1 := TGTKLabel.Create(Self);
   Label1.Caption := 'Copy 1 file(s) to:';
   Label1.XAlign := 0;
-  Label1.XPadding := 0;
   Label1.SetSizeRequest(-1, 20);
   Entry := TGTKEntry.Create(Self);
   Box.AddControlEx(Label1, False, False, 0);
@@ -68,8 +67,8 @@ end;
 procedure TFCopyMove.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
 begin
   case Key of
-    GDK_RETURN, GDK_KP_ENTER: ModalResult := mbOK;
-    GDK_ESCAPE: ModalResult := mbCancel;
+    GDK_KEY_Return, GDK_KEY_KP_Enter: ModalResult := mbOK;
+    GDK_KEY_Escape: ModalResult := mbCancel;
   end;
 end;
 
-- 
cgit v1.2.3