unitgisshell.pas

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

{******************************************************************}
{   该单元
{******************************************************************}
unit UnitGISShell;

interface

uses
  WinControl, MapXLib_TLB, ComCtrls, UnitProject, UnitAppTypes, DLog;
  
var
  AppType:TMapAppType;            //应用程序类型//
  AppPath:string;                 //应用程序路径//
  CallerHandle:THandle;           //调用者句柄//
  ParentAppId:Integer;            //父程序编号//
  DragType:TMoveNodeType;         //节点拖动类型//
  EditLayer:Layer;                //编辑图层//
  UserLayer:Layer;                //用户图层//
  SysTree:TTreeView;              //图层树//
  SysTreeRoot:TTreeNode;          //系统根节点//
  AppMsgHandle:THandle;           //内部消息接受者句柄//
  MyGIS:TGISProject;              //GIS实例//
  MyGISClass:TGISProjectClass;    //GIS类//
  
implementation

end.