main.pas

来自「在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。」· PAS 代码 · 共 79 行

unit main;

interface

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

type
  TMainForm = class(TForm)
    mnuMain: TMainMenu;
    F1: TMenuItem;
    H1: TMenuItem;
    mnuAbout: TMenuItem;
    mnuExit: TMenuItem;
    N1: TMenuItem;
    mnuOpen: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    grdPreview: TDrawGrid;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    lblTileNo: TLabel;
    nbkTileAttr: TNotebook;
    mnuSave: TMenuItem;
    N2: TMenuItem;
    mnuImport: TMenuItem;
    mnuNew: TMenuItem;
    lblTileKind: TLabel;
    dlgOpen: TOpenDialog;
    dlgSave: TSaveDialog;
    mnuSaveAs: TMenuItem;
    N3: TMenuItem;
    cbxCanPass: TCheckBox;
    cbxTarget: TCheckBox;
    cbxSource: TCheckBox;
    cbxCanMove: TCheckBox;
    lblTileNum: TLabel;
    dlgOpenPicture: TOpenPictureDialog;
    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 grdPreviewDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure mnuImportClick(Sender: TObject);
    procedure grdPreviewSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure mnuAboutClick(Sender: TObject);
  private
    FTiles: TTiles;
    FFileName: string;
    
    procedure UpdateControlStatus;
    procedure ChangeTileClass(TileKind: TTilesClass);
  public
    { Public declarations }
  end;
  
var
  MainForm: TMainForm;
  
implementation

uses util, kinddlg, about;

{$R *.DFM}

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

procedure TMainForm.FormCreate(Sender: TObject);
begin
  ChangeTileClass(TTerrTiles); // 箇砞