ToolsListUnit.pas 837 B

12345678910111213141516171819202122232425262728293031323334353637383940
  1. unit ToolsListUnit;
  2. interface
  3. uses
  4. ObjList,
  5. Classes, Controls, Forms, Menus;
  6. type
  7. TToolsList = class(TFastObjectContainer);
  8. TToolsListItem = class(TFastContainerItem)
  9. private
  10. FWorkingDir: string;
  11. FCommandLine: string;
  12. FTitle: TCaption;
  13. FWindowState: TWindowState;
  14. FMenuItem: TMenuItem;
  15. public
  16. destructor Destroy; override;
  17. property MenuItem: TMenuItem read FMenuItem write FMenuItem;
  18. published
  19. property Title: TCaption read FTitle write FTitle;
  20. property CommandLine: string read FCommandLine write FCommandLine;
  21. property WorkingDir: string read FWorkingDir write FWorkingDir;
  22. property WindowState: TWindowState read FWindowState write FWindowState;
  23. end;
  24. implementation
  25. { TToolsListItem }
  26. destructor TToolsListItem.Destroy;
  27. begin
  28. if Assigned (MenuItem) then
  29. MenuItem.Free;
  30. inherited;
  31. end;
  32. end.