paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 18:58:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: lcltaskdialog must use DrawText() from LCLIntf under windows, so other WS wont' crash under windows. issue #35575

Browse Source 
git-svn-id: trunk@61216 -
This commit is contained in:
zeljko 2019-05-13 09:41:44 +00:00
parent 0edb6832bf
commit ab671436ed
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lcltaskdialog.pas
View File

@ -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;