winform.pas.~7~

Delphi 2005程序设计教程_实例源文件和教学课件

unit WinForm;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, System.Drawing.Printing, System.Resources;

type
  TWinForm = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    Components: System.ComponentModel.Container;
    PrintDocument1: System.Drawing.Printing.PrintDocument;
    PrintDialog1: System.Windows.Forms.PrintDialog;
    PrintPreviewDialog1: System.Windows.Forms.PrintPreviewDialog;
    PageSetupDialog1: System.Windows.Forms.PageSetupDialog;
    MainMenu1: System.Windows.Forms.MainMenu;
    MenuItem1: System.Windows.Forms.MenuItem;
    MenuItem2: System.Windows.Forms.MenuItem;
    MenuItem3: System.Windows.Forms.MenuItem;
    MenuItem4: System.Windows.Forms.MenuItem;
    MenuItem5: System.Windows.Forms.MenuItem;
    MenuItem6: System.Windows.Forms.MenuItem;
    MenuItem7: System.Windows.Forms.MenuItem;
    MenuItem8: System.Windows.Forms.MenuItem;
    MenuItem9: System.Windows.Forms.MenuItem;
    OpenFileDialog1: System.Windows.Forms.OpenFileDialog;
    ColorDialog1: System.Windows.Forms.ColorDialog;
    FontDialog1: System.Windows.Forms.FontDialog;
    SaveFileDialog1: System.Windows.Forms.SaveFileDialog;
    MenuItem10: System.Windows.Forms.MenuItem;
    MenuItem11: System.Windows.Forms.MenuItem;
    MenuItem12: System.Windows.Forms.MenuItem;
    RichTextBox1: System.Windows.Forms.RichTextBox;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
    procedure Button1_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem2_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem3_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem5_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem6_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem7_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem9_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem11_Click(sender: System.Object; e: System.EventArgs);
    procedure MenuItem12_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]

implementation

{$AUTOBOX ON}

{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWinForm.InitializeComponent;
type
  TArrayOfSystem_Windows_Forms_MenuItem = array of System.Windows.Forms.MenuItem;
var
  resources: System.Resources.ResourceManager;
begin
  resources := System.Resources.ResourceManager.Create(TypeOf(TWinForm));
  Self.PrintDocument1 := System.Drawing.Printing.PrintDocument.Create;
  Self.PrintDialog1 := System.Windows.Forms.PrintDialog.Create;
  Self.PrintPreviewDialog1 := System.Windows.Forms.PrintPreviewDialog.Create;
  Self.PageSetupDialog1 := System.Windows.Forms.PageSetupDialog.Create;
  Self.MainMenu1 := System.Windows.Forms.MainMenu.Create;
  Self.MenuItem1 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem2 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem3 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem4 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem5 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem6 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem7 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem8 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem9 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem10 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem11 := System.Windows.Forms.MenuItem.Create;
  Self.MenuItem12 := System.Windows.Forms.MenuItem.Create;
  Self.OpenFileDialog1 := System.Windows.Forms.OpenFileDialog.Create;
  Self.ColorDialog1 := System.Windows.Forms.ColorDialog.Create;
  Self.FontDialog1 := System.Windows.Forms.FontDialog.Create;
  Self.SaveFileDialog1 := System.Windows.Forms.SaveFileDialog.Create;
  Self.RichTextBox1 := System.Windows.Forms.RichTextBox.Create;
  Self.SuspendLayout;
  // 
  // PrintPreviewDialog1
  // 
  Self.PrintPreviewDialog1.AutoScrollMargin := System.Drawing.Size.Create(0, 
      0);
  Self.PrintPreviewDialog1.AutoScrollMinSize := System.Drawing.Size.Create(0, 
      0);
  Self.PrintPreviewDialog1.ClientSize := System.Drawing.Size.Create(400, 300);
  Self.PrintPreviewDialog1.Enabled := True;
  Self.PrintPreviewDialog1.Icon := (System.Drawing.Icon(resources.GetObject('P' +
    'rintPreviewDialog1.Icon')));
  Self.PrintPreviewDialog1.Location := System.Drawing.Point.Create(14, 22);
  Self.PrintPreviewDialog1.MinimumSize := System.Drawing.Size.Create(375, 250);
  Self.PrintPreviewDialog1.Name := 'PrintPreviewDialog1';
  Self.PrintPreviewDialog1.TransparencyKey := System.Drawing.Color.Empty;
  Self.PrintPreviewDialog1.Visible := False;
  // 
  // MainMenu1
  // 
  Self.MainMenu1.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem1, 
          Self.MenuItem10));
  // 
  // MenuItem1
  // 
  Self.MenuItem1.Index := 0;
  Self.MenuItem1.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem2, 
          Self.MenuItem3, Self.MenuItem4, Self.MenuItem5, Self.MenuItem6, Self.MenuItem7, 
          Self.MenuItem8, Self.MenuItem9));
  Self.MenuItem1.Text := '文件(&F)';
  // 
  // MenuItem2
  // 
  Self.MenuItem2.Index := 0;
  Self.MenuItem2.Text := '打开(&O)';
  Include(Self.MenuItem2.Click, Self.MenuItem2_Click);
  // 
  // MenuItem3
  // 
  Self.MenuItem3.Index := 1;
  Self.MenuItem3.Text := '保存(&S)';
  Include(Self.MenuItem3.Click, Self.MenuItem3_Click);
  // 
  // MenuItem4
  // 
  Self.MenuItem4.Index := 2;
  Self.MenuItem4.Text := '-';
  // 
  // MenuItem5
  // 
  Self.MenuItem5.Index := 3;
  Self.MenuItem5.Text := '页面设置';
  Include(Self.MenuItem5.Click, Self.MenuItem5_Click);
  // 
  // MenuItem6
  // 
  Self.MenuItem6.Index := 4;
  Self.MenuItem6.Text := '打印预览';
  Include(Self.MenuItem6.Click, Self.MenuItem6_Click);
  // 
  // MenuItem7
  // 
  Self.MenuItem7.Index := 5;
  Self.MenuItem7.Text := '打印';
  Include(Self.MenuItem7.Click, Self.MenuItem7_Click);
  // 
  // MenuItem8
  // 
  Self.MenuItem8.Index := 6;
  Self.MenuItem8.Text := '-';
  // 
  // MenuItem9
  // 
  Self.MenuItem9.Index := 7;
  Self.MenuItem9.Text := '退出(&X)';
  Include(Self.MenuItem9.Click, Self.MenuItem9_Click);
  // 
  // MenuItem10
  // 
  Self.MenuItem10.Index := 1;
  Self.MenuItem10.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem11, 
          Self.MenuItem12));
  Self.MenuItem10.Text := '编辑(&E)';
  // 
  // MenuItem11
  // 
  Self.MenuItem11.Index := 0;
  Self.MenuItem11.Text := '字体';
  Include(Self.MenuItem11.Click, Self.MenuItem11_Click);
  // 
  // MenuItem12
  // 
  Self.MenuItem12.Index := 1;
  Self.MenuItem12.Text := '颜色';
  Include(Self.MenuItem12.Click, Self.MenuItem12_Click);
  // 
  // RichTextBox1
  // 
  Self.RichTextBox1.Location := System.Drawing.Point.Create(8, 8);
  Self.RichTextBox1.Name := 'RichTextBox1';
  Self.RichTextBox1.Size := System.Drawing.Size.Create(256, 96);
  Self.RichTextBox1.TabIndex := 1;
  Self.RichTextBox1.Text := '这里显示打开或保存文件的名称，可通过编辑菜单改变字体和颜色';
  // 
  // TWinForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
  Self.ClientSize := System.Drawing.Size.Create(272, 114);
  Self.Controls.Add(Self.RichTextBox1);
  Self.Menu := Self.MainMenu1;
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

procedure TWinForm.MenuItem12_Click(sender: System.Object; e: System.EventArgs);
begin
  if ColorDialog1.ShowDialog=DialogResult.OK then
    RichTextBox1.ForeColor := ColorDialog1.Color;
end;

procedure TWinForm.MenuItem11_Click(sender: System.Object; e: System.EventArgs);
begin
  if FontDialog1.ShowDialog=DialogResult.OK then
    RichTextBox1.Font:= FontDialog1.Font;
end;

procedure TWinForm.MenuItem9_Click(sender: System.Object; e: System.EventArgs);
begin
  Close;
end;

procedure TWinForm.MenuItem7_Click(sender: System.Object; e: System.EventArgs);
begin
   PrintDialog1.Document :=PrintDocument1;
   PrintDialog1.ShowDialog ;
end;

procedure TWinForm.MenuItem6_Click(sender: System.Object; e: System.EventArgs);
begin
   PrintPreviewDialog1.Document :=PrintDocument1;
   PrintPreviewDialog1.ShowDialog ;
end;

procedure TWinForm.MenuItem5_Click(sender: System.Object; e: System.EventArgs);
begin
  PageSetupDialog1.Document :=PrintDocument1;
  PageSetupDialog1.ShowDialog ;
end;

procedure TWinForm.MenuItem3_Click(sender: System.Object; e: System.EventArgs);
begin
  if SaveFileDialog1.ShowDialog=DialogResult.OK then
    RichTextBox1.Text :=SaveFileDialog1.FileName  ;
end;

procedure TWinForm.MenuItem2_Click(sender: System.Object; e: System.EventArgs);
begin
  if OpenFileDialog1.ShowDialog=DialogResult.OK then
    RichTextBox1.Text :=OpenFileDialog1.FileName  ;
end;

end.