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

TaskDialog: add debugln statements in TLCTaskDialog.AddLable to investigate issue #40425.

Browse Source
This commit is contained in:
Bart 2023-08-03 00:54:08 +02:00
parent 9ff95ce2a6
commit e06c2e9831
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/taskdlgemulation.pp
View File

@ -591,6 +591,7 @@ var
R: TRect;
W: integer;
begin
debugln(['TLCLTaskDialog.AddLabel A: AText=',AText,',X=',X,', AParent=',DbgSName(AParent)]);
if (AText = '') then
Exit(nil);
Result := TLabel.Create(Self);
@ -618,10 +619,11 @@ begin
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
debugln(['TLCLTaskDialog.AddLabel Result.SetBounds(',X,',',Y,',',W,',',R.Bottom,')']);
Result.SetBounds(X,Y,W,R.Bottom);
Result.Caption := AText;
inc(Y,R.Bottom+16);
debugln(['TLCLTaskDialog.AddLabel End: X=',X,', Result.Left=',Result.Left]);
end;
procedure TLCLTaskDialog.AddQueryCombo(var X, Y: Integer; AWidth: Integer; AParent: TWinControl);
@ -852,7 +854,7 @@ begin
// handle main dialog icon
AddIcon(IconBorder, X, Y, CurrParent);
if (X < IconBorder) or (X < 5) then Caption := format('X: %d, IconBorder: %d',[X,IconBorder]);
// add main texts (DlgTitle, DlgText, Information)
Element[tdeMainInstruction] := AddLabel(DlgTitle, True, X, Y, FontHeight, aWidth, CurrParent);
Element[tdeContent] := AddLabel(DlgText, False, X, Y, FontHeight, aWidth, CurrParent);