main.pas

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

unit main;

interface

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

type
  TMainForm = class(TForm)
    pnlView: TPanel;
    pbxView: TPaintBox;
    mnuMain: TMainMenu;
    F1: TMenuItem;
    mnuChooseLevel: TMenuItem;
    N1: TMenuItem;
    mnuExit: TMenuItem;
    H1: TMenuItem;
    mnuAbout: TMenuItem;
    E1: TMenuItem;
    mnuEditTerr: TMenuItem;
    mnuEditItem: TMenuItem;
    mnuEditRole: TMenuItem;
    N2: TMenuItem;
    mnuShowGrid: TMenuItem;
    mnuShowSpeicalArea: TMenuItem;
    mnuResetMap: TMenuItem;
    V1: TMenuItem;
    stbMain: TStatusBar;
    N4: TMenuItem;
    mnuRemoveItem: TMenuItem;
    mnuSave: TMenuItem;
    N3: TMenuItem;
    mnuRestoreLevel: TMenuItem;
    mnuEditTerrItem: TMenuItem;
    mnuEditHiTerrItem: TMenuItem;
    Splitter1: TSplitter;
    pnlRight: TPanel;
    Splitter2: TSplitter;
    grdTile: TDrawGrid;
    tvwTiles: TTreeView;
    mnuResetAllMap: TMenuItem;
    mnuDrawEditLayerOnly: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure pbxViewPaint(Sender: TObject);
    procedure mnuEditRoleClick(Sender: TObject);
    procedure mnuExitClick(Sender: TObject);
    procedure pbxViewMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure mnuShowSomething(Sender: TObject);
    procedure mnuResetMapClick(Sender: TObject);
    procedure mnuRemoveItemClick(Sender: TObject);
    procedure mnuChooseLevelClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure mnuSaveClick(Sender: TObject);
    procedure mnuAboutClick(Sender: TObject);
    procedure pbxViewMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbxViewMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mnuRestoreLevelClick(Sender: TObject);
    procedure grdTileDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure tvwTilesChange(Sender: TObject; Node: TTreeNode);
  private
    FEditLayer: Integer; // ヘ玡絪胯家Α
    FLevelNo: Integer; // ヘ玡絪胯