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

TaskDialog: remove comment in TLCTaskDialog.AddLable: this was apparently fixed in commit 05555c84.

Browse Source
This commit is contained in:
Bart 2023-08-03 01:15:46 +02:00
parent e06c2e9831
commit 64adc6945d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/taskdlgemulation.pp
View File

@ -591,7 +591,7 @@ var
R: TRect; R: TRect;
W: integer; W: integer;
begin 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 if (AText = '') then
Exit(nil); Exit(nil);
Result := TLabel.Create(Self); Result := TLabel.Create(Self);
@ -618,7 +618,7 @@ begin
W := aWidth-X-8; W := aWidth-X-8;
R.Right := W; R.Right := W;
R.Bottom := Result.Height; 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,')']); debugln(['TLCLTaskDialog.AddLabel Result.SetBounds(',X,',',Y,',',W,',',R.Bottom,')']);
Result.SetBounds(X,Y,W,R.Bottom); Result.SetBounds(X,Y,W,R.Bottom);
Result.Caption := AText; Result.Caption := AText;