newlayerdialog.pas

来自「GIS地理信息系统开发。 大名鼎鼎的MAPX＋DELPHI7.0软件开发」· PAS 代码 · 共 61 行

unit newLayerDialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TnewLayerForm = class(TForm)
    nameEdit: TEdit;
    tableNameLabel: TLabel;
    Label1: TLabel;
    pathEdit: TEdit;
    OKButton: TButton;
    cancelButton: TButton;
    tableTypeGroupBox: TGroupBox;
    tempTableCheckBox: TCheckBox;
    procedure cancelButtonClick(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  newLayerForm: TnewLayerForm;

implementation

uses mainMapForm;

{$R *.DFM}

procedure TnewLayerForm.cancelButtonClick(Sender: TObject);
begin
     Close;
end;

procedure TnewLayerForm.OKButtonClick(Sender: TObject);
var path, fileName : String;
empty: Variant;
begin
     try
        TVarData(empty).vType := varError;
        TVarData(empty).vError := 2147614724; // DISP_E_PARAMNOTFOUND;
        path := pathEdit.Text;
        fileName := nameEdit.Text;
        if tempTableCheckBox.checked = True then
           MainMap.Map1.Layers.CreateLayer(fileName, empty, 1, empty, empty)
        else
            MainMap.Map1.Layers.CreateLayer(fileName,path + '\' + fileName, 1, empty, empty);
     except on E:Exception Do showMessage('File Creation Failed.');

     end;  //Try
     Close;
end;

end.