From 6556f1fc64689913067e3f90f19457ed9fcf5a60 Mon Sep 17 00:00:00 2001
From: yonojoy <yonojoy@gmail.com>
Date: Tue, 9 Sep 2025 13:21:43 +0200
Subject: [PATCH] Support for >= XE8: since XE8 TButton, TLabel inherit from
 TPresentedTextControl

---
 .../Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas          | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas b/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas
index a92316c22..7c380054d 100644
--- a/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas
+++ b/SQLite3/Samples/ThirdPartyDemos/Ondrej/SynTaskDialog4Lazarus/FMXUtil.inc.pas
@@ -105,7 +105,11 @@ procedure dec( var F:Single; D:Single ); overload;
   F := F-D;
 end;
 
+{$IF (CompilerVersion >= 28)}   //TButton, TLabel inherit from TPresentedTextControl since XE8
+function FMXMeasureText( s:string; C : TPresentedTextControl; MaxWidth : Single; WordWrap : boolean ):TRectF;
+{$ELSE}
 function FMXMeasureText( s:string; C : TTextControl; MaxWidth : Single; WordWrap : boolean ):TRectF;
+{$IFEND}
 var
   R : TRectF;
 begin
@@ -117,3 +121,7 @@ function FMXMeasureText( s:string; C : TTextControl; MaxWidth : Single; WordWrap
   C.Canvas.MeasureText( R, s, WordWrap, [], TTextAlign.Leading, TTextAlign.Leading );
   Result := R;
 end;
+
+
+
+