ToolsListUnit.pas 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. {
  2. TIGCC IDE
  3. Copyright (C) 2000-2004 Sebastian Reichelt
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2, or (at your option)
  7. any later version.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software Foundation,
  14. Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  15. }
  16. unit ToolsListUnit;
  17. interface
  18. uses
  19. ObjList,
  20. Classes, Controls, Forms, Menus;
  21. type
  22. TToolsList = class(TFastObjectContainer);
  23. TToolsListItem = class(TFastContainerItem)
  24. private
  25. FWorkingDir: string;
  26. FCommandLine: string;
  27. FTitle: TCaption;
  28. FWindowState: TWindowState;
  29. FMenuItem: TMenuItem;
  30. public
  31. destructor Destroy; override;
  32. property MenuItem: TMenuItem read FMenuItem write FMenuItem;
  33. published
  34. property Title: TCaption read FTitle write FTitle;
  35. property CommandLine: string read FCommandLine write FCommandLine;
  36. property WorkingDir: string read FWorkingDir write FWorkingDir;
  37. property WindowState: TWindowState read FWindowState write FWindowState;
  38. end;
  39. implementation
  40. { TToolsListItem }
  41. destructor TToolsListItem.Destroy;
  42. begin
  43. if Assigned (MenuItem) then
  44. MenuItem.Free;
  45. inherited;
  46. end;
  47. end.