main.~pas

Del_att Management

end;
//另存
procedure TMainForm.IDMN_FILE_SAVE_ASClick(Sender: TObject);
var
  myform:TMDIChild;
begin
  myform:=mainform.ActiveMDIChild as TMDIChild;
  if myform<>nil then
  myform.savefileas();
  myform:=nil;
end;



procedure TMainForm.IDMN_FILE_EXITClick(Sender: TObject);
begin
  close;
end;

//浏览点属性
procedure TMainForm.IDMN_ATT_PNT_BROWClick(Sender: TObject);
begin
  broworeditatt(gispnt_entity,0);
end;

//浏览线属性
procedure TMainForm.IDMN_ATT_LIN_BROWClick(Sender: TObject);
begin
  broworeditatt(gislin_entity,0);
end;

//浏览区属性
procedure TMainForm.IDMN_ATT_REG_BROWClick(Sender: TObject);
begin
  broworeditatt(gisreg_entity,0);
end;

//编辑点属性
procedure TMainForm.IDMN_ATT_PNT_EDITClick(Sender: TObject);
begin
  broworeditatt(gispnt_entity,1);
end;

//编辑线属性
procedure TMainForm.IDMN_ATT_LIN_EDITClick(Sender: TObject);
begin
  broworeditatt(gislin_entity,1);
end;

//编辑区属性
procedure TMainForm.IDMN_ATT_REG_EDITClick(Sender: TObject);
begin
  broworeditatt(gisreg_entity,1);
end;

//关闭浏览属性
procedure TMainForm.IDMN_ATT_END_BROWClick(Sender: TObject);
begin
  broworeditatt_close(aitype,0);
end;

//关闭编辑属性
procedure TMainForm.IDMN_ATT_END_EDITClick(Sender: TObject);
begin
  broworeditatt_close(aitype,1);
end;

//修改环境
procedure TMainForm.IDMN_SETTING_MODENVClick(Sender: TObject);
var
 obj : imapgis;
begin
  obj:= createcomobject(CLASS_MapGis) as imapgis;
//  obj.ModEnv;
  obj:=nil;
end;

//状态栏是否被选的设置
procedure TMainForm.IDMN_SETTING_STATUSBARClick(Sender: TObject);
begin
  IDMN_SETTING_STATUSBAR.Checked:= not IDMN_SETTING_STATUSBAR.Checked;
  mainform.StatusBar.Visible:=IDMN_SETTING_STATUSBAR.Checked;
end;
//浏览点属性结构
procedure TMainForm.IDMN_STRU_BROW_PNTClick(Sender: TObject);
begin
   broworeditattstru(gispnt_entity,0);
end;
//浏览线属性结构
procedure TMainForm.IDMN_STRU_BROW_LINClick(Sender: TObject);
begin
  broworeditattstru(gislin_entity,0);
end;
//浏览区属性结构
procedure TMainForm.IDMN_STRU_BROW_REGClick(Sender: TObject);
begin
  broworeditattstru(gisreg_entity,0);
end;
//浏览网属性结构
procedure TMainForm.IDMN_STRU_BROW_NETClick(Sender: TObject);
begin
  broworeditattstru(gisnet_entity,0);
end;
//浏览表属性结构
procedure TMainForm.IDMN_STRU_BROW_TBLClick(Sender: TObject);
begin
  broworeditattstru(gistbl_entity,0);
end;
//浏览结点属性结构
procedure TMainForm.IDMN_STRU_BROW_NODClick(Sender: TObject);
begin
  broworeditattstru(gisnod_entity,0);
end;
//编辑点属性结构
procedure TMainForm.IDMN_STRU_EDIT_PNTClick(Sender: TObject);
begin
  broworeditattstru(gispnt_entity,1);
end;
//编辑线属性结构
procedure TMainForm.IDMN_STRU_EDIT_LINClick(Sender: TObject);
begin
  broworeditattstru(gislin_entity,1);
end;
//编辑区属性结构
procedure TMainForm.IDMN_STRU_EDIT_REGClick(Sender: TObject);
begin
  broworeditattstru(gisreg_entity,1);
end;
//编辑网属性结构
procedure TMainForm.IDMN_STRU_EDIT_NETClick(Sender: TObject);
begin
  broworeditattstru(gisnet_entity,1);
end;
//编辑表属性结构
procedure TMainForm.IDMN_STRU_EDIT_TBLClick(Sender: TObject);
begin
  broworeditattstru(gistbl_entity,1);
end;
//编辑结点属性结构
procedure TMainForm.IDMN_STRU_EDIT_NODClick(Sender: TObject);
begin
  broworeditattstru(gisnod_entity,1);
end;
//打开关于对话框
procedure TMainForm.AboutClick(Sender: TObject);
var
  aboutbox:taboutbox;
begin
  aboutbox:=taboutbox.Create(application);
  aboutbox.ShowModal;
end;
//显示菜单项是否可操作
function updatemainmenu():integer;
var
   myform:tmdichild;
    mainmenu1:tmainmenu;
    IDMN_STRU_BROW_PNT: TMenuItem;
    IDMN_STRU_BROW_LIN: TMenuItem;
    IDMN_STRU_BROW_REG: TMenuItem;
    IDMN_STRU_BROW_NET: TMenuItem;
    IDMN_STRU_BROW_TBL: TMenuItem;
    IDMN_STRU_BROW_NOD: TMenuItem;
    IDMN_STRU_EDIT_PNT: TMenuItem;
    IDMN_STRU_EDIT_LIN: TMenuItem;
    IDMN_STRU_EDIT_REG: TMenuItem;
    IDMN_STRU_EDIT_NET: TMenuItem;
    IDMN_STRU_EDIT_TBL: TMenuItem;
    IDMN_STRU_EDIT_NOD: TMenuItem;
    IDMN_ATT_PNT_BROW: TMenuItem;
    IDMN_ATT_LIN_BROW: TMenuItem;
    IDMN_ATT_REG_BROW: TMenuItem;
    IDMN_ATT_PNT_EDIT: TMenuItem;
    IDMN_ATT_LIN_EDIT: TMenuItem;
    IDMN_ATT_REG_EDIT: TMenuItem;
begin
 myform:=mainform.ActiveMDIChild as TMDIChild;
aitype:=myform.aiType;
  case aitype of
    gispnt:
      begin
      mainform.IDMN_ATT_PNT_BROW.Enabled:=true;
      mainform.IDMN_ATT_LIN_BROW.Enabled:=false;
      mainform.IDMN_ATT_REG_BROW.Enabled:=false;
      mainform.IDMN_ATT_PNT_EDIT.Enabled:=true;
      mainform.IDMN_ATT_LIN_EDIT.Enabled:=false;
      mainform.IDMN_ATT_REG_EDIT.Enabled:=false;
      mainform.IDMN_STRU_BROW_PNT.Enabled:=true;
      mainform.IDMN_STRU_BROW_LIN.Enabled:=false;
      mainform.IDMN_STRU_BROW_REG.Enabled:=false;
      mainform.IDMN_STRU_BROW_NET.Enabled:=false;
      mainform.IDMN_STRU_BROW_TBL.Enabled:=false;
      mainform.IDMN_STRU_BROW_NOD.Enabled:=false;
      mainform.IDMN_STRU_EDIT_PNT.Enabled:=true;
      mainform.IDMN_STRU_EDIT_LIN.Enabled:=false;
      mainform.IDMN_STRU_EDIT_REG.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NET.Enabled:=false;
      mainform.IDMN_STRU_EDIT_TBL.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NOD.Enabled:=false;
      end;
    gislin:
      begin
      mainform.IDMN_ATT_PNT_BROW.Enabled:=false;
      mainform.IDMN_ATT_LIN_BROW.Enabled:=true;
      mainform.IDMN_ATT_REG_BROW.Enabled:=false;
      mainform.IDMN_ATT_PNT_EDIT.Enabled:=false;
      mainform.IDMN_ATT_LIN_EDIT.Enabled:=true;
      mainform.IDMN_ATT_REG_EDIT.Enabled:=false;
      mainform.IDMN_STRU_BROW_PNT.Enabled:=false;
      mainform.IDMN_STRU_BROW_LIN.Enabled:=true;
      mainform.IDMN_STRU_BROW_REG.Enabled:=false;
      mainform.IDMN_STRU_BROW_NET.Enabled:=false;
      mainform.IDMN_STRU_BROW_TBL.Enabled:=false;
      mainform.IDMN_STRU_BROW_NOD.Enabled:=false;
      mainform.IDMN_STRU_EDIT_PNT.Enabled:=false;
      mainform.IDMN_STRU_EDIT_LIN.Enabled:=true;
      mainform.IDMN_STRU_EDIT_REG.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NET.Enabled:=false;
      mainform.IDMN_STRU_EDIT_TBL.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NOD.Enabled:=false;
      end;
    gisreg:
      begin
      mainform.IDMN_ATT_LIN_BROW.Enabled:=false;
      mainform.IDMN_ATT_PNT_BROW.Enabled:=false;
      mainform.IDMN_ATT_REG_BROW.Enabled:=true;
      mainform.IDMN_ATT_LIN_EDIT.Enabled:=false;
      mainform.IDMN_ATT_PNT_EDIT.Enabled:=false;
      mainform.IDMN_ATT_REG_EDIT.Enabled:=true;
      mainform.IDMN_STRU_BROW_LIN.Enabled:=false;
      mainform.IDMN_STRU_BROW_PNT.Enabled:=false;
      mainform.IDMN_STRU_BROW_REG.Enabled:=true;
      mainform.IDMN_STRU_BROW_NET.Enabled:=false;
      mainform.IDMN_STRU_BROW_TBL.Enabled:=false;
      mainform.IDMN_STRU_BROW_NOD.Enabled:=false;
      mainform.IDMN_STRU_EDIT_LIN.Enabled:=false;
      mainform.IDMN_STRU_EDIT_PNT.Enabled:=false;
      mainform.IDMN_STRU_EDIT_REG.Enabled:=true;
      mainform.IDMN_STRU_EDIT_NET.Enabled:=false;
      mainform.IDMN_STRU_EDIT_TBL.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NOD.Enabled:=false;
      end;
    gisnet:
      begin
      mainform.IDMN_ATT_PNT_BROW.Enabled:=false;
      mainform.IDMN_ATT_LIN_BROW.Enabled:=false;
      mainform.IDMN_ATT_REG_BROW.Enabled:=false;
      mainform.IDMN_ATT_PNT_EDIT.Enabled:=false;
      mainform.IDMN_ATT_LIN_EDIT.Enabled:=false;
      mainform.IDMN_ATT_REG_EDIT.Enabled:=false;
      mainform.IDMN_STRU_BROW_LIN.Enabled:=false;
      mainform.IDMN_STRU_BROW_REG.Enabled:=false;
      mainform.IDMN_STRU_BROW_PNT.Enabled:=false;
      mainform.IDMN_STRU_BROW_NET.Enabled:=true;
      mainform.IDMN_STRU_BROW_TBL.Enabled:=false;
      mainform.IDMN_STRU_BROW_NOD.Enabled:=false;
      mainform.IDMN_STRU_EDIT_LIN.Enabled:=false;
      mainform.IDMN_STRU_EDIT_REG.Enabled:=false;
      mainform.IDMN_STRU_EDIT_PNT.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NET.Enabled:=true;
      mainform.IDMN_STRU_EDIT_TBL.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NOD.Enabled:=false;
      end;
    gistbl:
      begin
      mainform.IDMN_ATT_PNT_BROW.Enabled:=false;
      mainform.IDMN_ATT_LIN_BROW.Enabled:=false;
      mainform.IDMN_ATT_REG_BROW.Enabled:=false;
      mainform.IDMN_ATT_PNT_EDIT.Enabled:=false;
      mainform.IDMN_ATT_LIN_EDIT.Enabled:=false;
      mainform.IDMN_ATT_REG_EDIT.Enabled:=false;
      mainform.IDMN_STRU_BROW_LIN.Enabled:=false;
      mainform.IDMN_STRU_BROW_REG.Enabled:=false;
      mainform.IDMN_STRU_BROW_NET.Enabled:=false;
      mainform.IDMN_STRU_BROW_PNT.Enabled:=false;
      mainform.IDMN_STRU_BROW_TBL.Enabled:=true;
      mainform.IDMN_STRU_BROW_NOD.Enabled:=false;
      mainform.IDMN_STRU_EDIT_LIN.Enabled:=false;
      mainform.IDMN_STRU_EDIT_REG.Enabled:=false;
      mainform.IDMN_STRU_EDIT_NET.Enabled:=false;
      mainform.IDMN_STRU_EDIT_PNT.Enabled:=false;
      mainform.IDMN_STRU_EDIT_TBL.Enabled:=true;
      mainform.IDMN_STRU_EDIT_NOD.Enabled:=false;
      end;
    end;
end;


end.