WIP - improvements and bugfixes.

Author: beNative

Bin/Win32/settings.json

@@ -1,11 +1,11 @@
 {
 	"DebugMode": false,
-	"EmitLogMessages": true,
+	"EmitLogMessages": false,
 	"FormSettings": {
-		"Left": 305,
-		"Top": 52,
-		"Width": 2232,
-		"Height": 1266,
+		"Left": 416,
+		"Top": 47,
+		"Width": 1969,
+		"Height": 1074,
 		"FormStyle": 0,
 		"WindowState": 0
 	},
@@ -17,8 +17,8 @@
 		"MessageDetailsVisible": true,
 		"SmartTimeStamps": true,
 		"HorizontalPanelPositions": [
-			0.270848182466144,
-			0.692702980472765,
+			0.264720942140297,
+			0.666666666666667,
 			1
 		],
 		"LeftVerticalPanelPositions": [
@@ -30,14 +30,14 @@
 		"Enabled": false
 	},
 	"WinipcSettings": {
-		"Enabled": false,
+		"Enabled": true,
 		"PollingInterval": 100
 	},
 	"ZmqSettings": {
 		"Enabled": false,
 		"PollingInterval": 100,
 		"PollingTimeout": 10,
-		"Endpoints": "New=tcp://localhost:42134\r\nNew_1=tcp://SBVCTITPOA8:5555\r\n"
+		"Endpoints": ""
 	},
 	"FileSystemSettings": {
 		"Enabled": false,
@@ -197,12 +197,12 @@
 	"LogLevelSettings": {
 		"LogLevels": [
 			{
-				"Alias": "Base",
+				"Alias": "",
 				"Color": 15793151,
 				"Level": 0
 			},
 			{
-				"Alias": "Green",
+				"Alias": "",
 				"Color": 32768,
 				"Level": 1
 			},
@@ -212,12 +212,12 @@
 				"Level": 2
 			},
 			{
-				"Alias": "Three",
+				"Alias": "",
 				"Color": 8454143,
 				"Level": 3
 			},
 			{
-				"Alias": "Four",
+				"Alias": "",
 				"Color": 8453888,
 				"Level": 4
 			},
@@ -252,7 +252,7 @@
 				"Level": 10
 			},
 			{
-				"Alias": "SQL",
+				"Alias": "",
 				"Color": 8421376,
 				"Level": 11
 			},

LogViewer.Dashboard.View.dfm

@@ -58,14 +58,12 @@ object frmDashboard: TfrmDashboard
         TabOrder = 0
         object tsWinIpc: TKTabSheet
           Caption = 'WinIPC'
-          ExplicitWidth = 0
-          ExplicitHeight = 0
           object lblWinIPC: TLabel
             AlignWithMargins = True
             Left = 3
             Top = 28
-            Width = 307
-            Height = 221
+            Width = 308
+            Height = 588
             Align = alClient
             Caption = 
               'Messages are exchanged between the source application and LogVie' +
@@ -84,6 +82,8 @@ object frmDashboard: TfrmDashboard
             ParentFont = False
             Transparent = True
             WordWrap = True
+            ExplicitWidth = 307
+            ExplicitHeight = 221
           end
           object pnlWinIPCTitle: TPanel
             Left = 0
@@ -106,14 +106,12 @@ object frmDashboard: TfrmDashboard
         end
         object tsWinOds: TKTabSheet
           Caption = 'WinODS'
-          ExplicitWidth = 0
-          ExplicitHeight = 0
           object lblWinods: TLabel
             AlignWithMargins = True
             Left = 3
             Top = 28
             Width = 308
-            Height = 374
+            Height = 588
             Align = alClient
             Caption = 
               'This receiver captures messages from any local applicatiion that' +
@@ -138,6 +136,7 @@ object frmDashboard: TfrmDashboard
             ParentFont = False
             Transparent = True
             WordWrap = True
+            ExplicitHeight = 374
           end
           object pnlWinodsTitle: TPanel
             Left = 0
@@ -256,8 +255,6 @@ object frmDashboard: TfrmDashboard
         end
         object tsFileSystem: TKTabSheet
           Caption = 'FileSystem'
-          ExplicitWidth = 0
-          ExplicitHeight = 0
           object pnlFileSystemTitle: TPanel
             Left = 0
             Top = 0
@@ -288,8 +285,6 @@ object frmDashboard: TfrmDashboard
         end
         object tsComPort: TKTabSheet
           Caption = 'COM port'
-          ExplicitWidth = 0
-          ExplicitHeight = 0
           object pnlComPorts: TPanel
             Left = 0
             Top = 25

LogViewer.Dashboard.View.pas

@@ -157,6 +157,13 @@   TfrmDashboard = class(TForm)
       var Ghosted    : Boolean;
       var ImageIndex : TImageIndex
     );
+    procedure FTreeViewPaintText(
+      Sender             : TBaseVirtualTree;
+      const TargetCanvas : TCanvas;
+      Node               : PVirtualNode;
+      Column             : TColumnIndex;
+      TextType           : TVSTTextType
+    );
     procedure FZmqEndpointsAdd(
       ASender    : TObject;
       var AName  : string;
@@ -316,7 +323,7 @@ destructor TfrmDashboard.Destroy;
 //  FComPortReceiver.OnChange.RemoveAll(Self);
 
   SaveSettings;
-  FZmqReceiver     := nil;
+  FZmqReceiver        := nil;
   FWinipcReceiver     := nil;
   FWinodsReceiver     := nil;
 //  FComPortReceiver    := nil;
@@ -411,14 +418,15 @@ procedure TfrmDashboard.FTreeViewBeforeCellPaint(Sender: TBaseVirtualTree;
   DN : TDashboardNode;
 begin
   DN := Sender.GetNodeData<TDashboardNode>(Node);
-  if Sender.GetNodeLevel(Node) = 0 then
+  if DN.Level = 0 then
   begin
     if DN.Data.Receiver.Enabled then
       Node.CheckState := csCheckedNormal
     else
       Node.CheckState := csUncheckedNormal;
+    TargetCanvas.Font.Style := [fsBold];
   end
-  else if Sender.GetNodeLevel(Node) = 1 then
+  else if DN.Level = 1 then
   begin
     if DN.Data.Subscriber.Enabled then
       Node.CheckState := csCheckedNormal
@@ -436,7 +444,7 @@ procedure TfrmDashboard.FTreeViewChecked(Sender: TBaseVirtualTree;
   DN := Sender.GetNodeData<TDashboardNode>(Node);
   if Assigned(DN) then
   begin
-    if Sender.GetNodeLevel(Node) = 0 then
+    if DN.Level = 0 then
     begin
       B := Node.CheckState = csCheckedNormal;
       DN.Data.Receiver.Enabled := B;
@@ -556,7 +564,7 @@ procedure TfrmDashboard.FTreeViewGetImageIndex(Sender: TBaseVirtualTree;
 begin
   DN := Sender.GetNodeData<TDashboardNode>(Node);
   LReceiver := DN.Data.Receiver;
-  if (Sender.GetNodeLevel(Node) = 0) and (Kind in [ikNormal, ikSelected]) then
+  if (DN.Level = 0) and (Kind in [ikNormal, ikSelected]) then
   begin
     if LReceiver = FZmqReceiver then
     begin
@@ -578,7 +586,7 @@ procedure TfrmDashboard.FTreeViewGetPopupMenu(Sender: TBaseVirtualTree;
   DN : TDashboardNode;
 begin
   DN := Sender.GetNodeData<TDashboardNode>(Node);
-  if Assigned(DN) and (Sender.GetNodeLevel(Node) = 1) then
+  if Assigned(DN) and (DN.Level = 1) then
   begin
     PopupMenu := FManager.Menus.SubscriberPopupMenu;
   end;
@@ -599,7 +607,6 @@ procedure TfrmDashboard.FTreeViewGetText(Sender: TBaseVirtualTree;
       Result := DateTimeToStr(ADateTime);
   end;
 
-
 begin
   CellText := '';
   if not Assigned(Node) then
@@ -608,7 +615,7 @@ procedure TfrmDashboard.FTreeViewGetText(Sender: TBaseVirtualTree;
   DN := Sender.GetNodeData<TDashboardNode>(Node);
   if Assigned(DN) then
   begin
-    if Sender.GetNodeLevel(Node) = 0 then
+    if DN.Level = 0 then
     begin
       if Column = COLUMN_SOURCENAME then
         CellText := DN.Data.Caption
@@ -638,6 +645,40 @@ procedure TfrmDashboard.FTreeViewGetText(Sender: TBaseVirtualTree;
     end;
   end;
 end;
+
+procedure TfrmDashboard.FTreeViewPaintText(Sender: TBaseVirtualTree;
+  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
+  TextType: TVSTTextType);
+var
+  DN : TDashboardNode;
+begin
+  DN := Sender.GetNodeData<TDashboardNode>(Node);
+  if Assigned(DN) then
+  begin
+    if DN.Level = 0 then
+      TargetCanvas.Font.Style := [fsBold]
+    else if DN.Level = 1 then
+    begin
+      if Column < 2 then
+      begin
+        TargetCanvas.Font.Style := [fsBold];
+      end
+      else
+      begin
+        TargetCanvas.Font.Style := [];
+      end;
+      if DN.Data.Subscriber.IsSourceActive then
+      begin
+        if DN.Data.Subscriber.Enabled then
+          TargetCanvas.Font.Color := clGreen
+        else
+          TargetCanvas.Font.Color := clRed;
+      end
+      else
+        TargetCanvas.Font.Color := clGray;
+    end;
+  end;
+end;
 {$ENDREGION}
 
 {$REGION 'Subscriber lists'}
@@ -995,6 +1036,7 @@ procedure TfrmDashboard.InitializeTreeView;
   FTreeView.OnDblClick        := FTreeViewDblClick;
   FTreeView.OnGetImageIndex   := FTreeViewGetImageIndex;
   FTreeView.OnGetPopupMenu    := FTreeViewGetPopupMenu;
+  FTreeView.OnPaintText       := FTreeViewPaintText;
   with FTreeView do
   begin
     with Header.Columns.Add do

LogViewer.Interfaces.pas

@@ -73,7 +73,9 @@ interface
     function GetTimeStampFirst: TDateTime;
     function GetTimeStampLast: TDateTime;
     function GetBytesReceived: Int64;
+    function GetIsSourceActive: Boolean;
     {$ENDREGION}
+
     procedure Poll;
     procedure Reset;
     procedure Close;
@@ -97,6 +99,9 @@ interface
     property SourceId: UInt32
       read GetSourceId;
 
+    property IsSourceActive: Boolean
+      read GetIsSourceActive;
+
     property SourceName: string
       read GetSourceName;
 

LogViewer.MainForm.pas

@@ -40,25 +40,25 @@ interface
 
 type
   TfrmMain = class(TForm)
-    pnlMain: TPanel;
-    pnlMainClient: TPanel;
-    ctMain: TChromeTabs;
-    pnlStatusBar: TPanel;
-    shpLine: TShape;
-    pnlSourceName: TPanel;
-    pnlDelta: TPanel;
-    pbrCPU: TKPercentProgressBar;
-    pnlMessageCount: TPanel;
-    pnlMemory: TPanel;
-    aclMain: TActionList;
-    actCenterToScreen: TAction;
-    actShowVersion: TAction;
-    imlMain: TImageList;
-    tbrMain: TTaskbar;
-    tmrPoll: TTimer;
-    imlTabStates: TImageList;
-    pnlTitleBar: TTitleBarPanel;
-    pnlTop: TPanel;
+    aclMain           : TActionList;
+    actCenterToScreen : TAction;
+    actShowVersion    : TAction;
+    ctMain            : TChromeTabs;
+    imlMain           : TImageList;
+    imlTabStates      : TImageList;
+    pbrCPU            : TKPercentProgressBar;
+    pnlDelta          : TPanel;
+    pnlMain           : TPanel;
+    pnlMainClient     : TPanel;
+    pnlMemory         : TPanel;
+    pnlMessageCount   : TPanel;
+    pnlSourceName     : TPanel;
+    pnlStatusBar      : TPanel;
+    pnlTitleBar       : TTitleBarPanel;
+    pnlTop            : TPanel;
+    shpLine           : TShape;
+    tbrMain           : TTaskbar;
+    tmrPoll           : TTimer;
     {$ENDREGION}
 
     {$REGION 'action handlers'}
@@ -592,30 +592,18 @@ procedure TfrmMain.UpdateTabStates;
     begin
       LV := ILogViewer(ctMain.Tabs[I].Data);
       S  := LV.Subscriber;
-      if Supports(S, IWinipc) or Supports(S, IWinods) then
-      begin
-        if CheckProcessExists(S.SourceId) then
-        begin
-          if S.Enabled then
-            ctMain.Tabs[I].ImageIndex := 0 // Green
-          else
-          begin
-            ctMain.Tabs[I].ImageIndex := 2 // Red
-          end;
-        end
-        else
-        begin
-          ctMain.Tabs[I].ImageIndex := 1; // Off
-        end;
-      end
-      else
+      if S.IsSourceActive then
       begin
         if S.Enabled then
           ctMain.Tabs[I].ImageIndex := 0 // Green
         else
         begin
           ctMain.Tabs[I].ImageIndex := 2 // Red
         end;
+      end
+      else
+      begin
+        ctMain.Tabs[I].ImageIndex := 1; // Off
       end;
     end;
   end;