?? unitqcgisright.pas
字號:
unit UnitQCGISRight;
interface
uses
UnitModuleBase, UnitMainForm;
type
TQCGISRight=class(TAppModule_Main)
protected
procedure InitFunctions;override;
public
constructor Create;override;
end;
implementation
uses
mis_Instance, UnitGISShell, UnitQCConsts, AppDebug;
{ TQCGISRight }
constructor TQCGISRight.Create;
begin
inherited Create;
end;
procedure TQCGISRight.InitFunctions;
begin
Functions.Add(ID_FUNC_CONFIGBDS, '變電所管理', '', True);
Functions.Add(ID_FUNC_DRAW_USER, '用戶圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_SUBSTATION, '子站圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_POWER, '開關圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_SDLINE, '線路圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_BT, '變臺圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_BUILDING, '建筑物圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_ROAD, '道路圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_WATERSYSTEM, '水系圖層繪制權', '', True);
Functions.Add(ID_FUNC_DRAW_BOTTOM, '底圖圖層繪制權', '', True);
Functions.Add(ID_FUNC_SHAPEPROPTIES, '圖形屬性', '', True);
Functions.Add(ID_FUNC_LINKTOPOWER, '關聯開關', '', True);
Functions.Add(ID_FUNC_UPLOAD, '上載圖層', '', True);
Functions.Add(ID_FUNC_DOWNLOAD, '下載圖層', '', True);
Functions.Add(ID_FUNC_CONFIGPOPEDOM, '分配權限', '', True);
end;
initialization
RegisterAppModule(TQCGISRight);
DebugLog.Add('DB500TS-C', ['注冊【七廠權限】']);
finalization
UnRegisterAppModule(TQCGISRight);
DebugLog.Add('DB500TS-C', ['卸載【七廠權限】']);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -