From 64adc6945d03c2ef6e5cfdde4334fda76fbe70a6 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Thu, 3 Aug 2023 01:15:46 +0200
Subject: [PATCH] TaskDialog: remove comment in TLCTaskDialog.AddLable: this
 was apparently fixed in commit 05555c84.

---
 lcl/taskdlgemulation.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/taskdlgemulation.pp b/lcl/taskdlgemulation.pp
index 8bd682fef1..5837147051 100644
--- a/lcl/taskdlgemulation.pp
+++ b/lcl/taskdlgemulation.pp
@@ -591,7 +591,7 @@ var
   R: TRect;
   W: integer;
 begin
-  debugln(['TLCLTaskDialog.AddLabel A: AText=',AText,',X=',X,', AParent=',DbgSName(AParent)]);
+  debugln(['TLCLTaskDialog.AddLabel A: AText=',AText,',X=',X,', AParent=',DbgSName(AParent),', AParent.Width=',AParent.Width,', Self.Width=',Self.Width]);
   if (AText = '') then
     Exit(nil);
   Result := TLabel.Create(Self);
@@ -618,7 +618,7 @@ begin
   W := aWidth-X-8;
   R.Right := W;
   R.Bottom := Result.Height;
-  LCLIntf.DrawText(Result.Canvas.Handle,PChar(AText),Length(AText),R,DT_CALCRECT or DT_WORDBREAK);//lazarus does not return box height on OSX (Lazarus bug), the height is stored in the rect in all cases, so we don't need to use the Result
+  LCLIntf.DrawText(Result.Canvas.Handle,PChar(AText),Length(AText),R,DT_CALCRECT or DT_WORDBREAK);
   debugln(['TLCLTaskDialog.AddLabel Result.SetBounds(',X,',',Y,',',W,',',R.Bottom,')']);
   Result.SetBounds(X,Y,W,R.Bottom);
   Result.Caption := AText;