Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit60ff7cb

Browse files
author
Tim Sinaeve
committed
Added support for Delphi 12.3.
1 parent6375175 commit60ff7cb

14 files changed

+305
-2678
lines changed

‎Bin/Win32/settings.json‎

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -2,10 +2,10 @@
22
"DebugMode":false,
33
"EmitLogMessages":true,
44
"FormSettings": {
5-
"Left":3363,
6-
"Top":448,
7-
"Width":3862,
8-
"Height":1665,
5+
"Left":4216,
6+
"Top":149,
7+
"Width":3088,
8+
"Height":1789,
99
"FormStyle":0,
1010
"WindowState":0
1111
},
@@ -17,13 +17,13 @@
1717
"MessageDetailsVisible":true,
1818
"SmartTimeStamps":true,
1919
"HorizontalPanelPositions": [
20-
0.258304195804196,
21-
0.83828125,
22-
1
20+
0.234965034965035,
21+
0.732400932400932,
22+
1.0
2323
],
2424
"LeftVerticalPanelPositions": [
25-
0.204040404040404,
26-
1
25+
0.222306525037936,
26+
1.0
2727
]
2828
},
2929
"WinodsSettings": {
@@ -34,10 +34,10 @@
3434
"PollingInterval":100
3535
},
3636
"ZmqSettings": {
37-
"Enabled":false,
37+
"Enabled":true,
3838
"PollingInterval":100,
3939
"PollingTimeout":10,
40-
"Endpoints":"New=tcp://SBVCTITPOA8:5555\r\n"
40+
"Endpoints":"New=tcp://M2025D0004:5555\r\n"
4141
},
4242
"FileSystemSettings": {
4343
"Enabled":false,

‎LogViewer.Dashboard.View.dfm‎

Lines changed: 21 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -33,6 +33,7 @@ object frmDashboard: TfrmDashboard
3333
Index =1
3434
end>
3535
MinPosition =0.020000000000000000
36+
SplitterSize =8
3637
SplitterColor = clScrollBar
3738
SplitterHoverColor = clScrollBar
3839
Align = alClient
@@ -67,14 +68,12 @@ object frmDashboard: TfrmDashboard
6768
ExplicitHeight =599
6869
object tsWinIpc: TKTabSheet
6970
Caption ='WinIPC'
70-
ExplicitWidth =315
71-
ExplicitHeight =0
7271
object lblWinIPC: TLabel
7372
AlignWithMargins = True
7473
Left =3
75-
Top =29
76-
Width =304
77-
Height =255
74+
Top =28
75+
Width =308
76+
Height =588
7877
Align = alClient
7978
Caption =
8079
'Messages are exchanged between the source application and LogVie' +
@@ -93,11 +92,14 @@ object frmDashboard: TfrmDashboard
9392
ParentFont = False
9493
Transparent = True
9594
WordWrap = True
95+
ExplicitTop =29
96+
ExplicitWidth =304
97+
ExplicitHeight =255
9698
end
9799
object pnlWinIPCTitle: TPanel
98100
Left =0
99101
Top =0
100-
Width =315
102+
Width =314
101103
Height =25
102104
Align = alTop
103105
Alignment = taLeftJustify
@@ -115,14 +117,12 @@ object frmDashboard: TfrmDashboard
115117
end
116118
object tsWinOds: TKTabSheet
117119
Caption ='WinODS'
118-
ExplicitWidth =315
119-
ExplicitHeight =0
120120
object lblWinods: TLabel
121121
AlignWithMargins = True
122122
Left =3
123-
Top =29
123+
Top =28
124124
Width =308
125-
Height =374
125+
Height =588
126126
Align = alClient
127127
Caption =
128128
'This receiver captures messages from any local applicatiion that' +
@@ -147,11 +147,13 @@ object frmDashboard: TfrmDashboard
147147
ParentFont = False
148148
Transparent = True
149149
WordWrap = True
150+
ExplicitTop =29
151+
ExplicitHeight =374
150152
end
151153
object pnlWinodsTitle: TPanel
152154
Left =0
153155
Top =0
154-
Width =315
156+
Width =314
155157
Height =25
156158
Align = alTop
157159
Alignment = taLeftJustify
@@ -175,14 +177,14 @@ object frmDashboard: TfrmDashboard
175177
Left =0
176178
Top =25
177179
Width =314
178-
Height =891
180+
Height =925
179181
Align = alTop
180182
Anchors = [akLeft, akTop, akRight, akBottom]
181183
BevelOuter = bvNone
182184
ParentColor = True
183185
TabOrder =0
184186
ExplicitWidth =313
185-
ExplicitHeight =874
187+
ExplicitHeight =908
186188
end
187189
object pnlZeroMQTitle: TPanel
188190
Left =0
@@ -272,12 +274,10 @@ object frmDashboard: TfrmDashboard
272274
end
273275
object tsFileSystem: TKTabSheet
274276
Caption ='FileSystem'
275-
ExplicitWidth =315
276-
ExplicitHeight =0
277277
object pnlFileSystemTitle: TPanel
278278
Left =0
279279
Top =0
280-
Width =315
280+
Width =314
281281
Height =25
282282
Align = alTop
283283
Alignment = taLeftJustify
@@ -295,7 +295,7 @@ object frmDashboard: TfrmDashboard
295295
object pnlFSLocations: TPanel
296296
Left =0
297297
Top =25
298-
Width =315
298+
Width =314
299299
Height =591
300300
Align = alClient
301301
BevelOuter = bvNone
@@ -304,12 +304,10 @@ object frmDashboard: TfrmDashboard
304304
end
305305
object tsComPort: TKTabSheet
306306
Caption ='COM port'
307-
ExplicitWidth =315
308-
ExplicitHeight =0
309307
object pnlComPorts: TPanel
310308
Left =0
311309
Top =25
312-
Width =315
310+
Width =314
313311
Height =591
314312
Align = alClient
315313
BevelOuter = bvNone
@@ -318,7 +316,7 @@ object frmDashboard: TfrmDashboard
318316
object pnlComPortTitle: TPanel
319317
Left =0
320318
Top =0
321-
Width =315
319+
Width =314
322320
Height =25
323321
Align = alTop
324322
Alignment = taLeftJustify
@@ -338,9 +336,9 @@ object frmDashboard: TfrmDashboard
338336
end
339337
object pnlRight: TPanel
340338
AlignWithMargins = True
341-
Left =317
339+
Left =322
342340
Top =0
343-
Width =731
341+
Width =726
344342
Height =616
345343
Margins.Left =0
346344
Margins.Bottom =0

‎LogViewer.Dashboard.View.pas‎

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -591,10 +591,12 @@ procedure TfrmDashboard.FTreeViewGetPopupMenu(Sender: TBaseVirtualTree;
591591
DN : TDashboardNode;
592592
begin
593593
DN := Sender.GetNodeData<TDashboardNode>(Node);
594-
if Assigned(DN)and (DN.Level =1)then
595-
begin
596-
PopupMenu := FManager.Menus.SubscriberPopupMenu;
597-
end;
594+
595+
// TODO: action should be applied to corresponding view of the node and not the active view
596+
// if Assigned(DN) and (DN.Level = 1) then
597+
// begin
598+
// PopupMenu := FManager.Menus.SubscriberPopupMenu;
599+
// end;
598600
end;
599601

600602
procedureTfrmDashboard.FTreeViewGetText(Sender: TBaseVirtualTree;

‎LogViewer.DisplayValues.Settings.View.dfm‎

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -15,21 +15,22 @@ object frmDisplayValuesSettings: TfrmDisplayValuesSettings
1515
object splVertical: TSplitter
1616
Left =145
1717
Top =0
18-
Width =2
18+
Width =4
1919
Height =378
2020
Color = clScrollBar
2121
ParentColor = False
2222
ResizeStyle = rsUpdate
23-
ExplicitHeight =339
2423
end
2524
object pnlRight: TPanel
26-
Left =147
25+
Left =149
2726
Top =0
28-
Width =342
27+
Width =340
2928
Height =378
3029
Align = alClient
3130
BevelOuter = bvNone
3231
TabOrder =0
32+
ExplicitLeft =147
33+
ExplicitWidth =342
3334
end
3435
object pnlLeft: TPanel
3536
Left =0

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp