GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-12-22 01:13:08 +01: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
TabOrder = 0
Visible = False
ExplicitHeight = 451
end
object sbDetailsImage: TScrollBox
Left = 0
@ -233,7 +232,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
end
item
Position = 3
Width = 354
Width = 358
WideText = 'Message'
end>
end
@ -267,7 +266,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
Left = 116
Top = 0
Width = 46
Height = 22
Height = 13
Caption = ' Filter: '
Layout = tlCenter
end
@ -318,7 +317,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
Left = 448
Top = 48
Bitmap = {
494C01010A004000080110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
494C01010A0040000C0110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000

10
X2Log.Observer.MonitorForm.pas
View File

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