home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap28 / object4 / object4.dpr < prev    next >
Encoding:
Text File  |  1995-03-21  |  1.4 KB  |  46 lines
  1. program Object4;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: OBJECT4 }
  5.  
  6. { This program is a simplified warehouse simulation.
  7.  
  8.   When you open the program there are a number of
  9.   empty palettes sitting in a large room. If you
  10.   click on one of the palettes, you can "stock" it
  11.   with either yellow, blue, green or violet widgets.
  12.  
  13.   If you click on a palette that has widgets, you
  14.   can see the number and type of widgets on that
  15.   palette.
  16.  
  17.   If you click on the List menuitem, you get a list
  18.   of all available items in the warehouse, shown
  19.   in a graphics based format.
  20.  
  21.   If you click on the Sell menuitem, you can "sell"
  22.   items from the warehouse, which means that stocked
  23.   items will be deleted. If you sell an entire 
  24.   palettes worth of items, then that palette will
  25.   be removed. }
  26.  
  27. uses
  28.   Forms,
  29.   Main in 'MAIN.PAS' {Menagerie},
  30.   Classdef in 'CLASSDEF.PAS',
  31.   Reports in 'REPORTS.PAS' {Report},
  32.   Status in 'STATUS.PAS' {StatusForm},
  33.   Selldlgs in 'SELLDLGS.PAS' {SellDlg},
  34.   Hierdlg in 'HIERDLG.PAS' {HierarchyDlg};
  35.  
  36. {$R *.RES}
  37.  
  38. begin
  39.   Application.CreateForm(TMenagerie, Menagerie);
  40.   Application.CreateForm(TReport, Report);
  41.   Application.CreateForm(TStatusForm, StatusForm);
  42.   Application.CreateForm(TSellDlg, SellDlg);
  43.   Application.CreateForm(THierarchyDlg, HierarchyDlg);
  44.   Application.Run;
  45. end.
  46.