unitapptypes.pas

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

unit UnitAppTypes;

interface

uses
  MapXBase;
  
type
  TMapAppType=(atExe, atWeb, atDLL);
  
  TLayerTreeNodeRecord=class
  private
    FIsSystem: Boolean;
    FId: Integer;
    FNodeType: Integer;
    FFtClassType: Integer;
    FDataFrom: Smallint;
    FFileName: string;
    FName: string;
    FHint: string;
    FFields: TMapFieldList;
  public
    constructor Create; virtual;
    destructor Destroy; override;
    property Id:Integer read FId write FId;            //编号//
    property Name:string read FName write FName;       //名称//
    property FtClassType:Integer read FFtClassType write FFtClassType;   //商业类型//
    property Hint:string read FHint write FHint;       //提示//
    property NodeType:Integer read FNodeType write FNodeType;      //类型//
    property IsSystem:Boolean read FIsSystem write FIsSystem;      //是否为系统图层，系统图层不能删除//
    property DataFrom:Smallint read FDataFrom write FDataFrom;     //为1时来自于图形记录表，为2时来自于文件//
    property FileName:string read FFileName write FFileName;  //本地图层的文件名//
    property Fields:TMapFieldList read FFields;
  end;
  
implementation

{ TLayerTreeNodeRecord }

constructor TLayerTreeNodeRecord.Create;
begin
  inherited Create;
  FFields:=TMapFieldList.Create;
end;

destructor TLayerTreeNodeRecord.Destroy;
begin
  FFields.Free;
  inherited Destroy;
end;

end.