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

---
 UProgress.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'UProgress.pas')

diff --git a/UProgress.pas b/UProgress.pas
index bc6410b..3b167d6 100644
--- a/UProgress.pas
+++ b/UProgress.pas
@@ -22,7 +22,7 @@ unit UProgress;
 interface
 
 uses
-  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts;
+  SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls;
 
 type
   TFProgress = class(TGTKDialog)
@@ -54,7 +54,6 @@ begin
   WindowPosition := wpCenter;
   Cancelled := False;
   Buttons := [];
-  ShowSeparator := False;
   ActionArea.SetSizeRequest(0, 4);
   Caption := LANGProgress;
   CancelButton := TGTKButton.Create(Self);
@@ -96,7 +95,7 @@ end;
 
 procedure TFProgress.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
 begin
-  if Key = GDK_ESCAPE then begin
+  if Key = GDK_KEY_Escape then begin
     Accept := False;
     CancelButtonClick(Sender);
   end;
@@ -126,8 +125,12 @@ begin
     LabelBox.AddControlEx(Label1, True, True, 0);
     LabelBox.AddControlEx(Label2, True, True, 0);
     LabelBox.AddControlEx(Label3, True, True, 0);
-    Label2.XAlign := 0;   Label2.XPadding := 20;
-    Label3.XAlign := 0;   Label3.XPadding := 20;
+    Label2.XAlign := 0;
+    Label2.MarginStart := 20;
+    Label2.MarginEnd := 20;
+    Label3.XAlign := 0;
+    Label3.MarginStart := 20;
+    Label3.MarginEnd := 20;
     BarBox.AddControlEx(Bar1HBox, False, False, 0);
     BarBox.AddControlEx(Space2, False, False, 0);
     BarBox.AddControlEx(Bar2HBox, False, False, 0);
-- 
cgit v1.2.3