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.
---
 UChown.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'UChown.pas')

diff --git a/UChown.pas b/UChown.pas
index 5e09809..0e95c44 100644
--- a/UChown.pas
+++ b/UChown.pas
@@ -116,7 +116,7 @@ begin
   GroupFrame.AddControl(GroupListViewScrolledWindow);
 
   FillData;
-  OnKeyDown := FormKeyDown;
+  OnKeyDown := @FormKeyDown;
 end;
 
 procedure TFChown.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
@@ -156,8 +156,8 @@ begin
   FileLabel.Caption := Format(LANGFChmod_FileLabel, [StrToUTF8(FileName), AttrToStr(Mode), AttrToOctal(Mode), susr, sgrp]);
   FileLabel.UseMarkup := True;
   if Length(FileName) > 20 then FileLabel.SetSizeRequest(200, -1);
-  OwnerListView.OnSelectionChanged := OwnerListViewSelectionChanged;
-  GroupListView.OnSelectionChanged := GroupListViewSelectionChanged;
+  OwnerListView.OnSelectionChanged := @OwnerListViewSelectionChanged;
+  GroupListView.OnSelectionChanged := @GroupListViewSelectionChanged;
 end;
 
 procedure TFChown.FillData;
-- 
cgit v1.2.3