home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / DELPHIDM / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-11  |  4.9 KB  |  233 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   OleCtrls, CELLLib_TLB, Menus, ComCtrls, ToolWin, ExtCtrls;
  8.  
  9. type
  10.   TBase = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     N1: TMenuItem;
  13.     N2: TMenuItem;
  14.     N3: TMenuItem;
  15.     N4: TMenuItem;
  16.     N5: TMenuItem;
  17.     Cell1: TCell;
  18.     StatusBar1: TStatusBar;
  19.     CoolBar1: TCoolBar;
  20.     ToolBar1: TToolBar;
  21.     ToolButton1: TToolButton;
  22.     ToolButton2: TToolButton;
  23.     ToolButton3: TToolButton;
  24.     Panel1: TPanel;
  25.     N6: TMenuItem;
  26.     N7: TMenuItem;
  27.     N8: TMenuItem;
  28.     N9: TMenuItem;
  29.     N10: TMenuItem;
  30.     N11: TMenuItem;
  31.     N12: TMenuItem;
  32.     N13: TMenuItem;
  33.     N14: TMenuItem;
  34.     N15: TMenuItem;
  35.     N16: TMenuItem;
  36.     N17: TMenuItem;
  37.     ImageList1: TImageList;
  38.     N18: TMenuItem;
  39.     N19: TMenuItem;
  40.     N20: TMenuItem;
  41.     N21: TMenuItem;
  42.     N22: TMenuItem;
  43.     N110: TMenuItem;
  44.     N23: TMenuItem;
  45.     N31: TMenuItem;
  46.     N24: TMenuItem;
  47.     N25: TMenuItem;
  48.     procedure N3Click(Sender: TObject);
  49.     procedure N5Click(Sender: TObject);
  50.     procedure N4Click(Sender: TObject);
  51.     procedure N6Click(Sender: TObject);
  52.     procedure N7Click(Sender: TObject);
  53.     procedure N8Click(Sender: TObject);
  54.     procedure N9Click(Sender: TObject);
  55.     procedure N10Click(Sender: TObject);
  56.     procedure N11Click(Sender: TObject);
  57.     procedure N12Click(Sender: TObject);
  58.     procedure N13Click(Sender: TObject);
  59.     procedure N14Click(Sender: TObject);
  60.     procedure N15Click(Sender: TObject);
  61.     procedure N16Click(Sender: TObject);
  62.     procedure N17Click(Sender: TObject);
  63.     procedure ToolButton1Click(Sender: TObject);
  64.     procedure ToolButton2Click(Sender: TObject);
  65.     procedure ToolButton3Click(Sender: TObject);
  66.     procedure N18Click(Sender: TObject);
  67.     procedure N19Click(Sender: TObject);
  68.     procedure N21Click(Sender: TObject);
  69.     procedure N20Click(Sender: TObject);
  70.     procedure N110Click(Sender: TObject);
  71.     procedure N23Click(Sender: TObject);
  72.     procedure N31Click(Sender: TObject);
  73.     procedure N25Click(Sender: TObject);
  74.     procedure N24Click(Sender: TObject);
  75.   private
  76.     { Private declarations }
  77.   public
  78.     { Public declarations }
  79.   end;
  80.  
  81. var
  82.   Base: TBase;
  83.   Openfilename : string;
  84.  
  85. implementation
  86.  
  87. uses AboutP, Tempunit, UDrag, Udummy, UText, UCelltyp, UStyle, UBack,
  88.   UFormula, USort, UChart,  UMultPag, UPrint, USave, UFind, USize, UInput,
  89.   Uundo, UDemo, URoll, UFile;
  90.  
  91. {$R *.DFM}
  92.  
  93. procedure TBase.N3Click(Sender: TObject);
  94. begin
  95.      AboutPro.ShowModal;
  96. end;
  97.  
  98. procedure TBase.N5Click(Sender: TObject);
  99. begin
  100.       Base.close;
  101. end;
  102.  
  103. procedure TBase.N4Click(Sender: TObject);
  104. begin
  105.      Cell1.AboutBox;
  106. end;
  107.  
  108. procedure TBase.N6Click(Sender: TObject);
  109. begin
  110.      fdrag.ShowModal;
  111. end;
  112.  
  113. procedure TBase.N7Click(Sender: TObject);
  114. begin
  115.      FDummy.ShowModal;
  116. end;
  117.  
  118. procedure TBase.N8Click(Sender: TObject);
  119. begin
  120.      FText.ShowModal;
  121. end;
  122.  
  123. procedure TBase.N9Click(Sender: TObject);
  124. begin
  125.      FCelltyp.ShowModal;
  126. end;
  127.  
  128. procedure TBase.N10Click(Sender: TObject);
  129. begin
  130.      FStyle.ShowModal;
  131. end;
  132.  
  133. procedure TBase.N11Click(Sender: TObject);
  134. begin
  135.      FBack.ShowModal;
  136. end;
  137.  
  138. procedure TBase.N12Click(Sender: TObject);
  139. begin
  140.      FFormula.ShowModal;
  141. end;
  142.  
  143. procedure TBase.N13Click(Sender: TObject);
  144. begin
  145.      FSort.ShowModal;
  146. end;
  147.  
  148. procedure TBase.N14Click(Sender: TObject);
  149. begin
  150.       FChart.ShowModal;
  151. end;
  152.  
  153. procedure TBase.N15Click(Sender: TObject);
  154. begin
  155.       FMultiPag.ShowModal;
  156. end;
  157.  
  158. procedure TBase.N16Click(Sender: TObject);
  159. begin
  160.      FPrint.showmodal;
  161. end;
  162.  
  163. procedure TBase.N17Click(Sender: TObject);
  164. begin
  165.        Openfilename:='';
  166.        FSave.ShowModal;
  167. end;
  168.  
  169. procedure TBase.ToolButton1Click(Sender: TObject);
  170. begin
  171.     AboutPro.ShowModal;
  172. end;
  173.  
  174. procedure TBase.ToolButton2Click(Sender: TObject);
  175. begin
  176.     Cell1.AboutBox;  
  177. end;
  178.  
  179. procedure TBase.ToolButton3Click(Sender: TObject);
  180. begin
  181.       Base.close;
  182. end;
  183.  
  184. procedure TBase.N18Click(Sender: TObject);
  185. begin
  186.      FFind.ShowModal;
  187. end;
  188.  
  189. procedure TBase.N19Click(Sender: TObject);
  190. begin
  191.     FSize.ShowModal;
  192. end;
  193.  
  194. procedure TBase.N21Click(Sender: TObject);
  195. begin
  196.      FInput.showModal;
  197. end;
  198.  
  199. procedure TBase.N20Click(Sender: TObject);
  200. begin
  201.      FUndo.showModal;
  202. end;
  203.  
  204. procedure TBase.N110Click(Sender: TObject);
  205. begin
  206.      openfilename:=ExtractFilePath(APPLICATION.ExeName)+'demo1.cLL';
  207.      FDemo.showModal;
  208. end;
  209.  
  210. procedure TBase.N23Click(Sender: TObject);
  211. begin
  212.      openfilename:=ExtractFilePath(APPLICATION.ExeName)+'demo2.cLL';
  213.      FDemo.showModal;
  214. end;
  215.  
  216. procedure TBase.N31Click(Sender: TObject);
  217. begin
  218.      openfilename:=ExtractFilePath(APPLICATION.ExeName)+'demo3.cLL';
  219.      FDemo.showModal;
  220. end;
  221.  
  222. procedure TBase.N25Click(Sender: TObject);
  223. begin
  224.      Froll.showmodal;
  225. end;
  226.  
  227. procedure TBase.N24Click(Sender: TObject);
  228. begin
  229.      FFile.showmodal;
  230. end;
  231.  
  232. end.
  233.