From afc2dae9d3397a6d1ff47ed4db59a28c2709ee9c Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Tue, 17 Oct 2023 23:32:52 +0800
Subject: [PATCH] Cocoa/MultiDisplay: unused functions removed

---
 lcl/interfaces/cocoa/cocoautils.pas   |  6 ------
 lcl/interfaces/cocoa/cocoawindows.pas | 17 -----------------
 2 files changed, 23 deletions(-)

diff --git a/lcl/interfaces/cocoa/cocoautils.pas b/lcl/interfaces/cocoa/cocoautils.pas
index 79678adc7c..ad34aa3120 100644
--- a/lcl/interfaces/cocoa/cocoautils.pas
+++ b/lcl/interfaces/cocoa/cocoautils.pas
@@ -42,7 +42,6 @@ function NSRectToRect(const NS: NSRect): TRect;
 procedure NSToLCLRect(const ns: NSRect; ParentHeight: Single; out lcl: TRect);
 procedure LCLToNSRect(const lcl: TRect; ParentHeight: Single; out ns: NSRect);
 
-function NSScreenZeroHeight: CGFloat;
 function NSPrimaryScreenHeight: CGFloat;
 function NSGlobalScreenHeight: CGFloat;
 
@@ -753,11 +752,6 @@ begin
   ns.size.height:=lcl.Bottom-lcl.Top;
 end;
 
-function NSScreenZeroHeight: CGFloat;
-begin
-  Result := NSScreen(NSScreen.screens.objectAtIndex(0)).frame.size.height;
-end;
-
 // the height of primary display
 function NSPrimaryScreenHeight: CGFloat;
 begin
diff --git a/lcl/interfaces/cocoa/cocoawindows.pas b/lcl/interfaces/cocoa/cocoawindows.pas
index f00b45c55e..59ed968390 100644
--- a/lcl/interfaces/cocoa/cocoawindows.pas
+++ b/lcl/interfaces/cocoa/cocoawindows.pas
@@ -1333,23 +1333,6 @@ begin
   Point.y := contentView.bounds.size.height - Point.y;
 end;
 
-procedure NSScreenGetRect(sc: NSScreen; mainScreenHeight: double; out r: TRect);
-var
-  fr : NSRect;
-begin
-  fr := sc.frame;
-  r := Bounds(
-    Round(fr.origin.x),
-    Round(fr.origin.y - fr.size.height + mainScreenHeight),
-    Round(fr.size.width), Round(fr.size.height)
-  );
-end;
-
-procedure NSScreenGetRect(sc: NSScreen; out r: TRect);
-begin
-  NSScreenGetRect(sc, NSScreen.mainScreen.frame.size.height, r);
-end;
-
 procedure LCLWindowExtension.lclSetFrame(const r: TRect);
 var
   ns : NSRect;