GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-09-16 17:06:08 +00:00
Code Issues Projects Releases Wiki Activity

Reverted changes from prior commit as the new fix is cleaner

Browse Source
This commit is contained in:
Mark van Renswoude 2018-02-15 16:52:16 +01:00
parent d37d729bb1
commit b59fae6eb9
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
X2Log.Observer.MonitorForm.dfm
View File

@ -114,7 +114,6 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
ScrollBars = ssBoth ScrollBars = ssBoth
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
ExplicitHeight = 451
end end
object sbDetailsImage: TScrollBox object sbDetailsImage: TScrollBox
Left = 0 Left = 0
@ -233,7 +232,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
end end
item item
Position = 3 Position = 3
Width = 354 Width = 358
WideText = 'Message' WideText = 'Message'
end> end>
end end
@ -267,7 +266,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
Left = 116 Left = 116
Top = 0 Top = 0
Width = 46 Width = 46
Height = 22 Height = 13
Caption = ' Filter: ' Caption = ' Filter: '
Layout = tlCenter Layout = tlCenter
end end
@ -318,7 +317,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
Left = 448 Left = 448
Top = 48 Top = 48
Bitmap = { Bitmap = {
494C01010A004000080110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 494C01010A0040000C0110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030 0000000000003600000028000000400000003000000001002000000000000030
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000

10
X2Log.Observer.MonitorForm.pas
View File

@ -800,15 +800,7 @@ begin
if Assigned(AControl) then if Assigned(AControl) then
begin begin
AControl.BringToFront; 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; end;
reDetails.Visible := (AControl = reDetails); reDetails.Visible := (AControl = reDetails);