Changeset 16 for trunk/UFormList.pas

Timestamp:

Jan 8, 2016, 5:09:58 PM (8 years ago)

Author:

chronos

Message:

• Added: Preparation for filtering of non visible nodes.

File:

• trunk/UFormList.pas (modified) (4 diffs)

trunk/UFormList.pas

@@ -13 +13 @@
 
   TFormList = class(TForm)
+    CheckBoxAccessible: TCheckBox;
     Label1: TLabel;
     Memo1: TMemo;
@@ -28 +29 @@
 
 uses
-  UFormMain;
+  UFormMain, UKConfig;
 
 {$R *.lfm}
@@ -37 +38 @@
 var
   List: TStringList;
+  I: Integer;
 begin
   try
@@ -43 +45 @@
     Memo1.Lines.Clear;
     FormMain.Config.TopNode.SaveToList(List);
+    if CheckBoxAccessible.Checked then
+    for I := List.Count - 1 to 0 do
+      if not TMenuNode(List.Objects[I]).CanBeVisible then
+        List.Delete(I);
     List.Sort;
     Memo1.Lines.Assign(List);