home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / sdiapp.pak / SDIMAIN.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  1.5 KB  |  78 lines
  1. unit Sdimain;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Menus,
  6.   Dialogs, StdCtrls, Buttons, ExtCtrls;
  7.  
  8. type
  9.   TSDIAppForm = class(TForm)
  10.     MainMenu: TMainMenu;
  11.     FileMenu: TMenuItem;
  12.     OpenItem: TMenuItem;
  13.     SaveItem: TMenuItem;
  14.     ExitItem: TMenuItem;
  15.     N1: TMenuItem;
  16.     OpenDialog: TOpenDialog;
  17.     SaveDialog: TSaveDialog;
  18.     Help1: TMenuItem;
  19.     About1: TMenuItem;
  20.     StatusBar: TPanel;
  21.     SpeedPanel: TPanel;
  22.     OpenBtn: TSpeedButton;
  23.     SaveBtn: TSpeedButton;
  24.     ExitBtn: TSpeedButton;
  25.     procedure ShowHint(Sender: TObject);
  26.     procedure ExitItemClick(Sender: TObject);
  27.     procedure OpenItemClick(Sender: TObject);
  28.     procedure SaveItemClick(Sender: TObject);
  29.     procedure About1Click(Sender: TObject);
  30.     procedure FormCreate(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   SDIAppForm: TSDIAppForm;
  39.  
  40. implementation
  41.  
  42. uses About;
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TSDIAppForm.ShowHint(Sender: TObject);
  47. begin
  48.   StatusBar.Caption := Application.Hint;
  49. end;
  50.  
  51. procedure TSDIAppForm.ExitItemClick(Sender: TObject);
  52. begin
  53.   Close;
  54. end;
  55.  
  56. procedure TSDIAppForm.OpenItemClick(Sender: TObject);
  57. begin
  58.   OpenDialog.Execute
  59. end;
  60.  
  61. procedure TSDIAppForm.SaveItemClick(Sender: TObject);
  62. begin
  63.   SaveDialog.Execute;
  64. end;
  65.  
  66. procedure TSDIAppForm.About1Click(Sender: TObject);
  67. begin
  68.   AboutBox.ShowModal;
  69. end;
  70.  
  71. procedure TSDIAppForm.FormCreate(Sender: TObject);
  72. begin
  73.   Application.OnHint := ShowHint;
  74. end;
  75.  
  76. end.
  77.  
  78.