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

---
 UChown.pas | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'UChown.pas')

diff --git a/UChown.pas b/UChown.pas
index 0e95c44..7f9a389 100644
--- a/UChown.pas
+++ b/UChown.pas
@@ -22,7 +22,7 @@ unit UChown;
 interface
 
 uses
-  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView;
+  SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKView;
 
 type
   TFChown = class(TGTKDialog)
@@ -81,11 +81,15 @@ begin
   ClientArea.AddControlEx(HBox2, False, False, 3);
 
   FileLabel := TGTKLabel.Create(Self);
-  FileLabel.SetAlignment(0, 0);
-  FileLabel.SetPadding(10, 5);
+  FileLabel.XAlign := 0;
+  FileLabel.YAlign := 0;
+  FileLabel.MarginStart := 10;
+  FileLabel.MarginEnd := 10;
+  FileLabel.MarginTop := 5;
+  FileLabel.MarginBottom := 5;
   FileLabel.Caption := '<span weight="ultrabold">File:</span> .adobe'#10'<span weight="ultrabold">Text:</span> rw-rw-rw'#10 +
                        '<span weight="ultrabold">Octal:</span> 666'#10'<span weight="ultrabold">Owner:</span> root'#10 +
-                       '<span weight="ultrabold">Group:</span> root';                       
+                       '<span weight="ultrabold">Group:</span> root';
   FileLabel.UseMarkup := True;
   FileFrame.AddControl(FileLabel);
 
@@ -122,8 +126,8 @@ end;
 procedure TFChown.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