source: trunk/UFormList.pas

unit UFormList;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFormList }

  TFormList = class(TForm)
    CheckBoxAccessible: TCheckBox;
    Label1: TLabel;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormList: TFormList;

implementation

uses
  UFormMain, UKConfig;

{$R *.lfm}

{ TFormList }

procedure TFormList.FormShow(Sender: TObject);
var
  List: TStringList;
  I: Integer;
begin
  try
    List := TStringList.Create;
    Memo1.Lines.BeginUpdate;
    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);
    Label1.Caption := IntToStr(Memo1.Lines.Count);
  finally
    List.Free;
    Memo1.Lines.EndUpdate;
  end;
end;

end.