知真道 - 博客园

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) 编辑

Delphi ArcEngine 创建图例

摘要： 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) 编辑

Delphi版 ArcEngine 创建MapSurround对象

摘要： 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) 编辑

Delphi ArcEngine 创建指北针

摘要： 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) 编辑

Delphi ArcEngine 创建比例尺

摘要： //本函数是在 PageControl上拉选一个区域内创建一个比例尺，比例尺的样式，我自己定义一个枚举类型如下 type ScaleType = (stAlternating, stDoubleAlternating, stHollow, stScaleLine, stSingleDivision, stSetpped); function InsertScaler(aeP... 阅读全文

posted @ 2009-03-19 11:10 知真道阅读(1006) 评论(0) 推荐(0) 编辑

2009年3月17日

Delphi版 ArcEngine 根据属性查询要素

摘要： function SearchByPropInfo(pLayer: ILayer; sWhere: string; out iCounts: Integer): IFeatureCursor; var pQueryFilter: IQueryFilter; pFeatureLayer: IFeatureLayer; pFeatureSelection: IFeatureSelec... 阅读全文

posted @ 2009-03-17 21:54 知真道阅读(1044) 评论(0) 推荐(0) 编辑

2009年3月14日

Delphi版 ArcEngine 10种格式地图输出方法

摘要： Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ --> 1function ExportMapToFile(pActiveView: IActiveView; filetypes: FileType; fileName: string): Bool... 阅读全文

posted @ 2009-03-14 17:53 知真道阅读(720) 评论(0) 推荐(0) 编辑

2009年3月7日

Delphi版 MapControl加载DWG文件

摘要： function LoadDwgFile(mapControl: TMapControl; dwgFilePath: string; dwgFileName: string): Boolean; var qCadWorkFactory: IWorkspaceFactory; qWorkSpace: IFeatureWorkspace; qFeatDataset: IFeature... 阅读全文

posted @ 2009-03-07 00:16 知真道阅读(1147) 评论(1) 推荐(0) 编辑

2009年3月6日

Delphi版创建ClassBreaks专题地图

摘要： function ClassBreaksRenderer(pLayer: ILayer; sField: string; pColor: IColor; PColorFrom: IColor; pColorTo: IColor; eStyle: TOleEnum; iBreakCount: Integer): Boolean; var pGeoLayer: IGeoFeatureLay... 阅读全文

posted @ 2009-03-06 03:01 知真道阅读(421) 评论(0) 推荐(0) 编辑

Delphi版创建SimpleRenderer专题地图[增强版]

摘要： //对给定的图层的某一字段，用指定的颜色和样式创建专题 function SimpleRenderer(pLayer: ILayer; sField: string; pColor: IColor; eStyle: TOleEnum): Boolean; var pSimpleRenderer: ISimpleRenderer; pSimpleFillSymbol: ISimpleFil... 阅读全文

posted @ 2009-03-06 00:11 知真道阅读(526) 评论(0) 推荐(0) 编辑