?? unitapptypes.pas
字號:
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; //商業(yè)類型//
property Hint:string read FHint write FHint; //提示//
property NodeType:Integer read FNodeType write FNodeType; //類型//
property IsSystem:Boolean read FIsSystem write FIsSystem; //是否為系統(tǒng)圖層,系統(tǒng)圖層不能刪除//
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -