From ab671436ed4a94bc62cdbf22fc7b64b5c4850b70 Mon Sep 17 00:00:00 2001 From: zeljko Date: Mon, 13 May 2019 09:41:44 +0000 Subject: [PATCH] LCL: lcltaskdialog must use DrawText() from LCLIntf under windows, so other WS wont' crash under windows. issue #35575 git-svn-id: trunk@61216 - --- lcl/lcltaskdialog.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/lcltaskdialog.pas b/lcl/lcltaskdialog.pas index 6cf833bd18..db292ea455 100644 --- a/lcl/lcltaskdialog.pas +++ b/lcl/lcltaskdialog.pas @@ -735,7 +735,7 @@ begin W := aWidth-X-8; R.Right := W; R.Bottom := result.Height; - DrawText(result.Canvas.Handle,PChar(Text),Length(Text),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(Text),Length(Text),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 result.SetBounds(X,Y,W,R.Bottom); result.Caption := Text;