home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Objrepos / Sdiapp / SDIMAIN.PAS < prev   
Pascal/Delphi Source File  |  1999-08-11  |  2KB  |  93 lines
  1. unit Sdimain;
  2.  
  3. interface
  4.  
  5. uses Windows, Classes, Graphics, Forms, Controls, Menus,
  6.   Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  7.   ActnList, ToolWin;
  8.  
  9. type
  10.   TSDIAppForm = class(TForm)
  11.     OpenDialog: TOpenDialog;
  12.     SaveDialog: TSaveDialog;
  13.     ToolBar1: TToolBar;
  14.     ToolButton9: TToolButton;
  15.     ToolButton1: TToolButton;
  16.     ToolButton2: TToolButton;
  17.     ToolButton3: TToolButton;
  18.     ToolButton4: TToolButton;
  19.     ToolButton5: TToolButton;
  20.     ToolButton6: TToolButton;
  21.     ActionList1: TActionList;
  22.     FileNew1: TAction;
  23.     FileOpen1: TAction;
  24.     FileSave1: TAction;
  25.     FileSaveAs1: TAction;
  26.     FileExit1: TAction;
  27.     EditCut1: TEditCut;
  28.     EditCopy1: TEditCopy;
  29.     EditPaste1: TEditPaste;
  30.     HelpAbout1: TAction;
  31.     StatusBar: TStatusBar;
  32.     ImageList1: TImageList;
  33.     MainMenu1: TMainMenu;
  34.     File1: TMenuItem;
  35.     FileNewItem: TMenuItem;
  36.     FileOpenItem: TMenuItem;
  37.     FileSaveItem: TMenuItem;
  38.     FileSaveAsItem: TMenuItem;
  39.     N1: TMenuItem;
  40.     FileExitItem: TMenuItem;
  41.     Edit1: TMenuItem;
  42.     CutItem: TMenuItem;
  43.     CopyItem: TMenuItem;
  44.     PasteItem: TMenuItem;
  45.     Help1: TMenuItem;
  46.     HelpAboutItem: TMenuItem;
  47.     procedure FileNew1Execute(Sender: TObject);
  48.     procedure FileOpen1Execute(Sender: TObject);
  49.     procedure FileSave1Execute(Sender: TObject);
  50.     procedure FileExit1Execute(Sender: TObject);
  51.     procedure HelpAbout1Execute(Sender: TObject);
  52.   private
  53.     { Private declarations }
  54.   public
  55.     { Public declarations }
  56.   end;
  57.  
  58. var
  59.   SDIAppForm: TSDIAppForm;
  60.  
  61. implementation
  62.  
  63. uses About;
  64.  
  65. {$R *.DFM}
  66.  
  67. procedure TSDIAppForm.FileNew1Execute(Sender: TObject);
  68. begin
  69.   { Do nothing }
  70. end;
  71.  
  72. procedure TSDIAppForm.FileOpen1Execute(Sender: TObject);
  73. begin
  74.   OpenDialog.Execute;
  75. end;
  76.  
  77. procedure TSDIAppForm.FileSave1Execute(Sender: TObject);
  78. begin
  79.   SaveDialog.Execute;
  80. end;
  81.  
  82. procedure TSDIAppForm.FileExit1Execute(Sender: TObject);
  83. begin
  84.   Close;
  85. end;
  86.  
  87. procedure TSDIAppForm.HelpAbout1Execute(Sender: TObject);
  88. begin
  89.   AboutBox.ShowModal;
  90. end;
  91.  
  92. end.
  93.