123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- {
- TIGCC IDE
- Copyright (C) 2000-2004 Sebastian Reichelt
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- }
- unit ToolsListUnit;
- interface
- uses
- ObjList,
- Classes, Controls, Forms, Menus;
- type
- TToolsList = class(TFastObjectContainer);
- TToolsListItem = class(TFastContainerItem)
- private
- FWorkingDir: string;
- FCommandLine: string;
- FTitle: TCaption;
- FWindowState: TWindowState;
- FMenuItem: TMenuItem;
- public
- destructor Destroy; override;
- property MenuItem: TMenuItem read FMenuItem write FMenuItem;
- published
- property Title: TCaption read FTitle write FTitle;
- property CommandLine: string read FCommandLine write FCommandLine;
- property WorkingDir: string read FWorkingDir write FWorkingDir;
- property WindowState: TWindowState read FWindowState write FWindowState;
- end;
- implementation
- { TToolsListItem }
- destructor TToolsListItem.Destroy;
- begin
- if Assigned (MenuItem) then
- MenuItem.Free;
- inherited;
- end;
- end.
|