ADD: Mark nodes with comments

Author: PascalCorpsman

src/unit1.lfm

@@ -185,6 +185,10 @@ object Form1: TForm1
         Caption = 'Mark nodes with no childs'
         OnClick = MenuItem24Click
       end
+      object MenuItem55: TMenuItem
+        Caption = 'Mark files with comments'
+        OnClick = MenuItem54Click
+      end
       object Separator4: TMenuItem
         Caption = '-'
       end
@@ -258,6 +262,10 @@ object Form1: TForm1
         Caption = 'Mark nodes with no childs'
         OnClick = MenuItem24Click
       end
+      object MenuItem54: TMenuItem
+        Caption = 'Mark files with comments'
+        OnClick = MenuItem54Click
+      end
       object Separator6: TMenuItem
         Caption = '-'
       end

src/unit1.pas

@@ -64,6 +64,7 @@
 (*               0.24 - FIX: graphical glitches in chart statistics           *)
 (*                      ADD: more infos to chart statistics                   *)
 (*               0.25 - ADD: Code preview / review feature                    *)
+(*                      ADD: Mark nodes with comments                         *)
 (*                                                                            *)
 (* Known Bugs  : - if a project holds 2 units with the same name              *)
 (*                 the dependency graph will merge them to one                *)
@@ -159,6 +160,8 @@
     MenuItem51: TMenuItem;
     MenuItem52: TMenuItem;
     MenuItem53: TMenuItem;
+    MenuItem54: TMenuItem;
+    MenuItem55: TMenuItem;
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
@@ -223,6 +226,7 @@
     Procedure MenuItem51Click(Sender: TObject);
     Procedure MenuItem52Click(Sender: TObject);
     Procedure MenuItem53Click(Sender: TObject);
+    Procedure MenuItem54Click(Sender: TObject);
     Procedure MenuItem5Click(Sender: TObject);
     Procedure MenuItem6Click(Sender: TObject);
     Procedure MenuItem8Click(Sender: TObject);
@@ -985,6 +989,30 @@
   End;
 End;
 
+Procedure TForm1.MenuItem54Click(Sender: TObject);
+Var
+  c: TLineComments;
+  i, j: Integer;
+  n: TNode;
+  nam: String;
+Begin
+  // Mark Files with comments
+  c := fProject.GetLineComments();
+  For i := 0 To high(c) Do Begin
+    nam := ExtractFileNameOnly(c[i].Filename);
+    nam := ExtractFileNameWithoutExt(nam);
+    For j := 0 To GraphBox1.Graph.NodeCount - 1 Do Begin
+      n := GraphBox1.Graph.Node[j];
+      If GraphBox1.Graph.Node[j].Name = nam Then Begin
+        n := GraphBox1.Graph.Node[j];
+        n.Marked := true;
+        GraphBox1.Graph.Node[j] := n;
+        GraphBox1.Invalidate;
+      End;
+    End;
+  End;
+End;
+
 Procedure TForm1.MenuItem5Click(Sender: TObject);
 Begin
   // Save Project As