unitqcconsts.~pas

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

~PAS
57
字号
unit UnitQCConsts;

interface

const
  ID_APP_PARENT_NONE=0;
  ID_APP_PARENT_JK_GZZ=1;
  ID_APP_PARENT_JK_DDS=2;
  ID_APP_PARENT_WEB=3;

const
  LAYER_SYS_SUBSTATION  = 1;
  LAYER_SYS_POWER       = 2;
  LAYER_SYS_LINE        = 3;
  LAYER_SYS_BUILDING    = 4;
  LAYER_SYS_ROAD        = 5;
  LAYER_SYS_WARTERSYS   = 6;
  LAYER_SYS_BOTTOM      = 7;
  LAYER_SYS_USER        = 8;
  LAYER_SYS_BT          = 9;

const
  MENU_ID_ADDSUBSTATION   = 1;
  MENU_ID_ADDLINE         = 2;
  MENU_ID_ADDKG           = 3;
  MENU_ID_ADDBT           = 4;
  MENU_ID_PROPERTIES      = 5;
  MENU_ID_CONNECT         = 6;
  MENU_ID_LINKTOPOWER     = 7;

const
  UNIT_ID_NONE            = 0;
  UNIT_ID_ONE             = 1;
  UNIT_ID_ALL             = 2;

{模块内部功能编号定义}
const
  ID_FUNC_CONFIGBDS            = 1;   //配置变电所//
  ID_FUNC_DRAW_USER            = 2;   //编辑用户层//
  ID_FUNC_DRAW_SUBSTATION      = 3;   //编辑子站//
  ID_FUNC_DRAW_POWER           = 4;   //编辑开关//
  ID_FUNC_DRAW_SDLINE          = 5;   //编辑线路//
  ID_FUNC_DRAW_BUILDING        = 6;   //编辑建筑物//
  ID_FUNC_DRAW_ROAD            = 7;   //编辑道路//
  ID_FUNC_DRAW_WATERSYSTEM     = 8;   //编辑水系//
  ID_FUNC_DRAW_BOTTOM          = 9;   //编辑底图//
  ID_FUNC_DRAW_BT              = 10;  //编辑变台//
  ID_FUNC_SHAPEPROPTIES        = 11;  //图形属性//
  ID_FUNC_LINKTOPOWER          = 12;  //关联开关//
  ID_FUNC_UPLOAD               = 13;  //上载图层//
  ID_FUNC_DOWNLOAD             = 14;  //下载图层//
  ID_FUNC_CONFIGPOPEDOM        = 15;  //配置权限//

implementation

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?