1
0
mirror of synced 2024-11-08 14:19:16 +00:00

Fixed #6: Text details not shown when first selecting

This commit is contained in:
Mark van Renswoude 2017-12-27 14:01:10 +01:00
parent 06734475e9
commit 7fe3eb6518

View File

@ -780,11 +780,22 @@ end;
procedure TX2LogObserverMonitorForm.SetVisibleDetails(AControl: TControl);
var
text: string;
begin
if Assigned(AControl) then
begin
AControl.BringToFront;
AControl.Visible := True;
if (AControl = reDetails) and (not reDetails.HandleAllocated) then
begin
// TRichEdit clears it's text when it is first shown, at least on Delphi XE2
text := reDetails.Text;
reDetails.Visible := True;
reDetails.Text := text;
end else
AControl.Visible := True;
end;
reDetails.Visible := (AControl = reDetails);