unitmapxshapepropdialog.pas

来自「此代码是关于mapgis的在」· PAS 代码 · 共 51 行

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.