unit UnitMapXShapePropDialog;

interface

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

type
  TCustomMapXShapeDialogClass = class of TCustomMapXShapeDialog;
  
  TCustomMapXShapeDialog = class(TForm)
    Button1: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FShape: Feature;
    FEditable: Boolean;
    FStyleEditable: Boolean;
  public
    { Public declarations }
    procedure DoBeforeClose;virtual;
    //圖形對象//
    property Shape:Feature read FShape write FShape;
    //是否允許編輯//
    property Editable:Boolean read FEditable write FEditable;
    //樣式是否可以修改，因為圖形代表一定的含義，所以一般情況下創建的時候，樣式
    //就已經確定，但有的時候樣式可能需要修改//
    property StyleEditable:Boolean read FStyleEditable write FStyleEditable;
  end;

var
  CustomMapXShapeDialog: TCustomMapXShapeDialog;

implementation

{$R *.dfm}

procedure TCustomMapXShapeDialog.Button1Click(Sender: TObject);
begin
  DoBeforeClose;
  Close;
end;

procedure TCustomMapXShapeDialog.DoBeforeClose;
begin
end;

end.