From b9703b29819b619037cc282d719c187e51bacd30 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Mon, 23 Dec 2024 23:59:45 +0100
Subject: Port to g-i generated glib2 bindings

Includes switch to FPC -Mobjfpc and related pointer style fixes.
---
 UProgress.pas | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'UProgress.pas')

diff --git a/UProgress.pas b/UProgress.pas
index f389328..bc6410b 100644
--- a/UProgress.pas
+++ b/UProgress.pas
@@ -22,8 +22,7 @@ unit UProgress;
 interface
 
 uses
-  SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView,
-  UEngines;
+  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts;
 
 type
   TFProgress = class(TGTKDialog)
@@ -89,9 +88,9 @@ begin
 //  ClientArea.AddControlEx(Space, False, False, 0);
 //  ClientArea.AddControlEx(VBox, True, True, 0);
 //  AddControl(VBox);
-  OnKeyDown := FormKeyDown;
-  OnCloseQuery := FormCloseQuery;
-  CancelButton.OnClick := CancelButtonClick;
+  OnKeyDown := @FormKeyDown;
+  OnCloseQuery := @FormCloseQuery;
+  CancelButton.OnClick := @CancelButtonClick;
   CancelButton.Default := True;
 end;
 
-- 
cgit v1.2.3