procedure TFrmMain.MapMainAfterDraw(ASender: TObject; Display: OleVariant;
  viewDrawPhase: Integer);
var
  FillSymbol: IFillSymbol;
  pColor: IColor;
  outline: ILineSymbol;
  flag: WordBool;
  symbol: OleVariant;
begin
  //红框
  pColor:=CoRgbColor.create as IColor;
  outline:= CoSimpleLineSymbol.create as ILineSymbol;
  pColor.Set_RGB(RGB(255, 0, 0));
  pColor.Set_Transparency(255);
  outline.Set_Color(pColor);
  outline.Set_Width(1.5);

  //填充
  pColor:=CoRgbColor.create as IColor;
  pColor.Set_RGB(RGB(0,0,0));
  pColor.Set_Transparency(0);
  FillSymbol:=CoSimpleFillSymbol.create as IFillSymbol;
  FillSymbol.Set_Color(pColor);
  FillSymbol.Set_Outline(outline);

  //画鹰眼
  MapEye.Refresh;
  symbol:=FillSymbol;
  MapEye.DrawShape(mapMain.Extent,symbol);
end;