Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
Frame.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 4k
Category:

Delphi VCL

Development Platform:

Delphi

Frame.pas：Code Content
  1. unit Frame;
  3. interface
  5. uses
  6.   Windows, Classes, Graphics, Forms, Controls,
  7.   Child, Menus, SysUtils, StdActns, ActnList, Dialogs, ImgList, ComCtrls,
  8.   ToolWin;
  10. type
  11.   TMainForm = class(TForm)
  12.     MainMenu1: TMainMenu;
  13.     Window1: TMenuItem;
  14.     New1: TMenuItem;
  15.     File1: TMenuItem;
  16.     N1: TMenuItem;
  17.     Exit1: TMenuItem;
  18.     Cascade1: TMenuItem;
  19.     Tile1: TMenuItem;
  20.     ArrangeIcons1: TMenuItem;
  21.     ActionList1: TActionList;
  22.     ActionArrange: TWindowArrange;
  23.     ActionCascade: TWindowCascade;
  24.     ActionClose: TWindowClose;
  25.     ActionMinimizeAll: TWindowMinimizeAll;
  26.     ActionTileHorizontal: TWindowTileHorizontal;
  27.     ActionTileVertical: TWindowTileVertical;
  28.     Tile2: TMenuItem;
  29.     Close1: TMenuItem;
  30.     MinimizeAll1: TMenuItem;
  31.     Edit1: TMenuItem;
  32.     Cut1: TMenuItem;
  33.     Copy1: TMenuItem;
  34.     Paste1: TMenuItem;
  35.     ActionCopy: TEditCopy;
  36.     ActionCut: TEditCut;
  37.     ActionPaste: TEditPaste;
  38.     ActionFont: TAction;
  39.     FontDialog1: TFontDialog;
  40.     N2: TMenuItem;
  41.     Font1: TMenuItem;
  42.     ActionNew: TAction;
  43.     ActionOpen: TAction;
  44.     ActionSaveAs: TAction;
  45.     OpenDialog1: TOpenDialog;
  46.     SaveDialog1: TSaveDialog;
  47.     Open1: TMenuItem;
  48.     Save1: TMenuItem;
  49.     ActionSave: TAction;
  50.     Save2: TMenuItem;
  51.     ImageList1: TImageList;
  52.     ToolBar1: TToolBar;
  53.     ToolButton1: TToolButton;
  54.     ToolButton2: TToolButton;
  55.     ToolButton3: TToolButton;
  56.     ToolButton4: TToolButton;
  57.     ToolButton5: TToolButton;
  58.     ToolButton6: TToolButton;
  59.     ToolButton7: TToolButton;
  60.     ToolButton8: TToolButton;
  61.     procedure Exit1Click(Sender: TObject);
  62.     procedure ActionFontExecute(Sender: TObject);
  63.     procedure ActionFontUpdate(Sender: TObject);
  64.     procedure ActionNewExecute(Sender: TObject);
  65.     procedure ActionOpenExecute(Sender: TObject);
  66.     procedure ActionSaveAsExecute(Sender: TObject);
  67.     procedure ActionSaveAsUpdate(Sender: TObject);
  68.     procedure ActionSaveUpdate(Sender: TObject);
  69.     procedure ActionSaveExecute(Sender: TObject);
  70.   private
  71.     { Private declarations }
  72.     Counter: Integer;
  73.   public
  74.     { Public declarations }
  75.   end;
  77. var
  78.   MainForm: TMainForm;
  80. implementation
  82. {$R *.DFM}
  84. procedure TMainForm.Exit1Click(Sender: TObject);
  85. begin
  86.   // automatically closes each child
  87.   Close;
  88. end;
  90. procedure TMainForm.ActionFontExecute(Sender: TObject);
  91. begin
  92.   if FontDialog1.Execute then
  93.     (ActiveMDIChild as TChildForm).Memo1.Font :=
  94.       FontDialog1.Font;
  95. end;
  97. procedure TMainForm.ActionFontUpdate(Sender: TObject);
  98. begin
  99.   ActionFont.Enabled := MDIChildCount > 0;
  100. end;
  102. procedure TMainForm.ActionNewExecute(Sender: TObject);
  103. var
  104.   ChildForm: TChildForm;
  105. begin
  106.   Inc (Counter);
  107.   ChildForm := TChildForm.Create (Self);
  108.   ChildForm.Caption :=
  109.     LowerCase (ExtractFilePath (Application.Exename)) +
  110.     'text' + IntToStr (Counter) + '.txt';
  111.   ChildForm.Show;
  112. end;
  114. procedure TMainForm.ActionOpenExecute(Sender: TObject);
  115. begin
  116.   if OpenDialog1.Execute then
  117.   begin
  118.     ActionNewExecute (Self);
  119.     (ActiveMDIChild as TChildForm).Load (OpenDialog1.FileName);
  120.   end;
  121. end;
  123. procedure TMainForm.ActionSaveAsExecute(Sender: TObject);
  124. begin
  125.   // suggest the current file name
  126.   SaveDialog1.FileName := ActiveMDIChild.Caption;
  127.   if SaveDialog1.Execute then
  128.   begin
  129.     // modify the file name and save
  130.     ActiveMDIChild.Caption := SaveDialog1.FileName;
  131.     (ActiveMDIChild as TChildForm).Save;
  132.   end;
  133. end;
  135. procedure TMainForm.ActionSaveAsUpdate(Sender: TObject);
  136. begin
  137.   ActionSaveAs.Enabled := MDIChildCount > 0;
  138. end;
  140. procedure TMainForm.ActionSaveUpdate(Sender: TObject);
  141. begin
  142.   ActionSave.Enabled := (MDIChildCount > 0) and
  143.     (ActiveMDIChild as TChildForm).Modified;
  144. end;
  146. procedure TMainForm.ActionSaveExecute(Sender: TObject);
  147. begin
  148.   (ActiveMDIChild as TChildForm).Save;
  149. end;
  151. end.
  153.