JSDialog: Expanded text not visible

Tony Amos

There has been an issue for quite a while where JSDialog does not show the expanded text.

Create a form with a button and add this code to the button click event:

var
JSDialog1: TJSDialog;
begin
JSDialog1 := TJSDialog.Create(nil);
try
JSDialog1.Expando.HideText := 'Collapse Dialog';
JSDialog1.Expando.Lines.Clear;
JSDialog1.Expando.Lines.Add('Expanded text goes here');
JSDialog1.Expando.ShowText := 'Expand Dialog';
JSDialog1.Expando.Visible := True;
JSDialog1.Header.Icon := tdiWarning;
JSDialog1.Instruction.Text := 'Instruction';
JSDialog1.Name := 'JSDialog1';
JSDialog1.Title := 'Warning';
JSDialog1.Execute;
finally
JSDialog1.Free;
end
end;

Note that it does not display the expanded text.

Tony Amos

I have installed the source and fixed the issue.

Eugene Balabuev (LMD)

Hi,

Fixed.

Tony Amos

Thank you!