main.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, ExtCtrls, Spin, Grids, ExtDlgs, Math, TileUnit, ComCtrls;

type
  TMainForm = class(TForm)
    mnuMain: TMainMenu;
    F1: TMenuItem;
    H1: TMenuItem;
    mnuAbout: TMenuItem;
    mnuExit: TMenuItem;
    N1: TMenuItem;
    mnuOpen: TMenuItem;
    mnuSave: TMenuItem;
    mnuNew: TMenuItem;
    dlgOpen: TOpenDialog;
    dlgSave: TSaveDialog;
    mnuSaveAs: TMenuItem;
    N3: TMenuItem;
    dlgOpenPicture: TOpenPictureDialog;
    tvwTiles: TTreeView;
    stbMain: TStatusBar;
    pnlRight: TPanel;
    Splitter1: TSplitter;
    grdTile: TDrawGrid;
    lblTileNo: TLabel;
    lblDimension: TLabel;
    GroupBox1: TGroupBox;
    cbxCanPass: TCheckBox;
    cbxBulletCanPass: TCheckBox;
    cbxCanBreak: TCheckBox;
    mnuTiles: TMenuItem;
    mnuAdd: TMenuItem;
    mnuRemove: TMenuItem;
    cbxFlag: TCheckBox;
    procedure mnuExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mnuNewClick(Sender: TObject);
    procedure mnuOpenClick(Sender: TObject);
    procedure mnuSaveClick(Sender: TObject);
    procedure grdTileDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure mnuAboutClick(Sender: TObject);
    procedure grdTileSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure tvwTilesChange(Sender: TObject; Node: TTreeNode);
    procedure mnuAddClick(Sender: TObject);
    procedure mnuRemoveClick(Sender: TObject);
  private
    FFileName: string;
    FFirstNo: Integer;
    
    procedure BackupAttr(Col, Row: Integer);
    procedure RestoreAttr(Col, Row: Integer);
    
    procedure UpdateControlStatus;
  public
    { Public declarations }
  end;
  
var
  MainForm: TMainForm;
  
implementation

uses util, about, xFiles;

{$R *.DFM}

procedure TMainForm.mnuExitClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Tiles := TTiles.Create; //