GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-11-21 19:03: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

11
X2Log.Observer.MonitorForm.pas
View File

@ -780,10 +780,21 @@ end;
procedure TX2LogObserverMonitorForm.SetVisibleDetails(AControl: TControl); procedure TX2LogObserverMonitorForm.SetVisibleDetails(AControl: TControl);
var
text: string;
begin begin
if Assigned(AControl) then if Assigned(AControl) then
begin begin
AControl.BringToFront; AControl.BringToFront;
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; AControl.Visible := True;
end; end;