2009年3月19日
摘要: //从 RGB 值 获得颜色 应该是 编程中用的最多的方式,所以 我提供了两个函数 一个是 将Delphi中的Tcolor 转换到 ae 的 IRgbColor //另一个是 由 Rgb 值 得到 IRgbColor //将Delphi中的 Tcolor 转换成 ae 中 的 IrgbColor //TColor 可以从很多控件的 Color 属性获得,或者 可以从 很多 颜色选择控件... 阅读全文
posted @ 2009-03-19 12:10 知真道 阅读(699) 评论(0) 推荐(0) 编辑
摘要: function InsertLegend(aePageLayoutControl: TPageLayoutControl; sTitle: string): Boolean; var pPageLayout: IPageLayout; pMap : IMap; pActiveMap: IActiveView; pGraphicContainer: IGraphic... 阅读全文
posted @ 2009-03-19 11:20 知真道 阅读(661) 评论(0) 推荐(0) 编辑
摘要: function CreateSurround(pUID: UID; pEnv: IEnvelope; strName: string; pPageLayout: IPageLayout): IMapSurround; var pGraphicsContainer: IGraphicsContainer; pActiveView: IActiveView; pMapSurroun... 阅读全文
posted @ 2009-03-19 11:16 知真道 阅读(604) 评论(0) 推荐(0) 编辑
摘要: function InsertNorthArrow(aePageLayoutControl: TPageLayoutControl; iStyle: SmallInt): Boolean; var pPageLayout: IPageLayout; pMap : IMap; pActiveMap: IActiveView; pGraphicContainer: IG... 阅读全文
posted @ 2009-03-19 11:15 知真道 阅读(868) 评论(0) 推荐(0) 编辑
摘要: //本函数 是在 PageControl上拉选一个区域内 创建一个比例尺,比例尺的样式,我自己定义一个 枚举类型 如下 type ScaleType = (stAlternating, stDoubleAlternating, stHollow, stScaleLine, stSingleDivision, stSetpped); function InsertScaler(aeP... 阅读全文
posted @ 2009-03-19 11:10 知真道 阅读(1006) 评论(0) 推荐(0) 编辑