GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-11-21 10:53:50 +00:00
Code Issues Projects Releases Wiki Activity

Fixed #6: Text details not shown when first selecting

Browse Source
This commit is contained in:
Mark van Renswoude 2017-12-27 14:01:10 +01:00
parent 06734475e9
commit 7fe3eb6518
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
X2Log.Observer.MonitorForm.pas
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);