mapxlib_tlb.pas

This Delphi 4.0 example uses the MapX Ver 4.0 OCX Control. The main goal of this example is to sho

  miColorButtonText = $80000012;
  miColorInactiveCaptionText = $80000013;
  miColor3DHighlight = $80000014;
  miColor3DDarkShadow = $80000015;
  miColor3DLight = $80000016;
  miColorInfoText = $80000017;
  miColorInfoBackground = $80000018;

// IntersectionTestConstants constants
type
  IntersectionTestConstants = TOleEnum;
const
  miIntersectCentroidWithinFeature = $00000000;
  miIntersectFeature = $00000001;
  miIntersectEntirelyWithinFeature = $00000002;

// IntersectionPointConstants constants
type
  IntersectionPointConstants = TOleEnum;
const
  miIntersectCrossings = $00000009;
  miIntersectCommon = $0000000A;
  miIntersectAll = $0000000B;

// MousewheelSupportConstants constants
type
  MousewheelSupportConstants = TOleEnum;
const
  miNoMousewheelSupport = $00000001;
  miMousewheelNoAutoScroll = $00000002;
  miFullMousewheelSupport = $00000003;

// StyleUnitConstants constants
type
  StyleUnitConstants = TOleEnum;
const
  miStyleUnitPixel = $00000000;
  miStyleUnitTenthsOfPoint = $00000001;

// LayerSrvLayerOptions constants
type
  LayerSrvLayerOptions = TOleEnum;
const
  miLayerCacheOn = $00000000;
  miLayerMBRSearchOn = $00000000;
  miLayerCacheOff = $00000001;
  miLayerMBRSearchOff = $00000002;

// LayerBeginAccessConstants constants
type
  LayerBeginAccessConstants = TOleEnum;
const
  miAccessRead = $00000000;
  miAccessReadWrite = $00000001;

// LayerEndAccessConstants constants
type
  LayerEndAccessConstants = TOleEnum;
const
  miAccessEnd = $00000000;

// GraduationConstants constants
type
  GraduationConstants = TOleEnum;
const
  miGraduateBySquareRoot = $00000000;
  miGraduateByConstant = $00000001;
  miGraduateByLogarithm = $00000002;

// LayerInfoTypeConstants constants
type
  LayerInfoTypeConstants = TOleEnum;
const
  miLayerInfoTypeTab = $00000000;
  miLayerInfoTypeUserDraw = $00000001;
  miLayerInfoTypeRaster = $00000002;
  miLayerInfoTypeShape = $00000003;
  miLayerInfoTypeServer = $00000004;
  miLayerInfoTypeGeodictUserName = $00000005;

// MapDrawConstants constants
type
  MapDrawConstants = TOleEnum;
const
  miDrawBegin = $00000001;
  miDrawEnd = $00000002;

// ColorSpreadingMethodConstants constants
type
  ColorSpreadingMethodConstants = TOleEnum;
const
  miColorMethodRGB = $00000000;
  miColorMethodHSV = $00000001;

// ApplyAttributeConstants constants
type
  ApplyAttributeConstants = TOleEnum;
const
  miApplyAttributeAll = $00000000;
  miApplyAttributeColor = $00000001;
  miApplyAttributeSize = $00000002;

type

// *********************************************************************//
// Forward declaration of interfaces defined in Type Library            //
// *********************************************************************//
  IRowCursor = interface;
  CMapXDatasets = dispinterface;
  CMapX = dispinterface;
  CMapXEvents = dispinterface;
  CMapXLayers = dispinterface;
  CMapXLayerInfo = dispinterface;
  CMapXLayer = dispinterface;
  CMapXField = dispinterface;
  CMapXDataset = dispinterface;
  CMapXThemes = dispinterface;
  CMapXTheme = dispinterface;
  CMapXLegend = dispinterface;
  CMapXCollection = dispinterface;
  CMapXAnnotations = dispinterface;
  CMapXThemeProperties = dispinterface;
  CMapXSelection = dispinterface;
  CMapXFeature = dispinterface;
  CMapXRangeCategory = dispinterface;
  CMapXFields = dispinterface;
  CMapXStyle = dispinterface;
  CMapXIValueCategory = dispinterface;
  CMapXPieChartCategory = dispinterface;
  CMapXSourceRows = dispinterface;
  CMapXSourceRow = dispinterface;
  CMapXAnnotation = dispinterface;
  CMapXText = dispinterface;
  CMapXLegendText = dispinterface;
  CMapXLegendTexts = dispinterface;
  CMapXTitle = dispinterface;
  CMapXLabelProperties = dispinterface;
  CMapXBindLayer = dispinterface;
  CMapXRangeCategoriesCollection = dispinterface;
  CMapXIndividualValueCategoriesCollection = dispinterface;
  CMapXMultivarCategoriesCollection = dispinterface;
  CMapXBitmapSymbolsCollection = dispinterface;
  CMapXRectangle = dispinterface;
  CMapXLayerFind = dispinterface;
  CMapXFindFeature = dispinterface;
  CMapXFindResult = dispinterface;
  CMapXFindMatch = dispinterface;
  CMapXFindMatches = dispinterface;
  CMapXParts = dispinterface;
  CMapXPoints = dispinterface;
  CMapXPoint = dispinterface;
  CMapXGeosets = dispinterface;
  CMapXGeoset = dispinterface;
  CMapXFeatures = dispinterface;
  CMapXDatum = dispinterface;
  CMapXAffineTransform = dispinterface;
  CMapXCoordSys = dispinterface;
  CMapXBitmapSymbol = dispinterface;
  CMapXFeatureFactory = dispinterface;
  CMapXResolveObjects = dispinterface;
  CMapXResolveObject = dispinterface;
  CMapXRowValues = dispinterface;
  CMapXRowValue = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                     //
// (NOTE: Here we map each CoClass to its Default Interface)            //
// *********************************************************************//
  Datasets = CMapXDatasets;
  Map = CMapX;
  Layers = CMapXLayers;
  LayerInfo = CMapXLayerInfo;
  Layer = CMapXLayer;
  Field = CMapXField;
  Dataset = CMapXDataset;
  Themes = CMapXThemes;
  Theme = CMapXTheme;
  Legend = CMapXLegend;
  Collection = CMapXCollection;
  Annotations = CMapXAnnotations;
  ThemeProperties = CMapXThemeProperties;
  Selection = CMapXSelection;
  Feature = CMapXFeature;
  RangeCategory = CMapXRangeCategory;
  Fields = CMapXFields;
  Style = CMapXStyle;
  IndividualValueCategory = CMapXIValueCategory;
  MultiVarCategory = CMapXPieChartCategory;
  SourceRows = CMapXSourceRows;
  SourceRow = CMapXSourceRow;
  Annotation = CMapXAnnotation;
  Graphic = CMapXText;
  LegendText = CMapXLegendText;
  LegendTexts = CMapXLegendTexts;
  Title = CMapXTitle;
  LabelProperties = CMapXLabelProperties;
  BindLayer = CMapXBindLayer;
  RangeCategories = CMapXRangeCategoriesCollection;
  IndividualValueCategories = CMapXIndividualValueCategoriesCollection;
  MultivarCategories = CMapXMultivarCategoriesCollection;
  BitmapSymbols = CMapXBitmapSymbolsCollection;
  Rectangle = CMapXRectangle;
  Find = CMapXLayerFind;
  FindFeature = CMapXFindFeature;
  FindResult = CMapXFindResult;
  FindMatch = CMapXFindMatch;
  FindMatches = CMapXFindMatches;
  Parts = CMapXParts;
  Points = CMapXPoints;
  Point = CMapXPoint;
  Geosets = CMapXGeosets;
  Geoset = CMapXGeoset;
  Features = CMapXFeatures;
  Datum = CMapXDatum;
  AffineTransform = CMapXAffineTransform;
  CoordSys = CMapXCoordSys;
  BitmapSymbol = CMapXBitmapSymbol;
  FeatureFactory = CMapXFeatureFactory;
  ResolveObjects = CMapXResolveObjects;
  ResolveObject = CMapXResolveObject;
  RowValues = CMapXRowValues;
  RowValue = CMapXRowValue;


// *********************************************************************//
// Declaration of structures, unions and aliases.                       //
// *********************************************************************//
  PSingle1 = ^Single; {*}
  PDouble1 = ^Double; {*}
  POleVariant1 = ^OleVariant; {*}
  PWideString1 = ^WideString; {*}
  PWordBool1 = ^WordBool; {*}
  PSmallint1 = ^Smallint; {*}


// *********************************************************************//
// Interface: IRowCursor
// Flags:     (16) Hidden
// GUID:      {9F6AA700-D188-11CD-AD48-00AA003C9CB6}
// *********************************************************************//
  IRowCursor = interface(IUnknown)
    ['{9F6AA700-D188-11CD-AD48-00AA003C9CB6}']
  end;

// *********************************************************************//
// DispIntf:  CMapXDatasets
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D4E-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXDatasets = dispinterface
    ['{77306D4E-5C82-11CF-8795-00AA00B7EF73}']
    property Count: Integer readonly dispid 1;
    property BuildSourceRows: WordBool dispid 7;
    function Add(Type_: Smallint; SourceData: OleVariant; Name: OleVariant; GeoField: OleVariant; 
                 SecondaryGeoField: OleVariant; BindLayer: OleVariant; Fields: OleVariant; 
                 Dynamic: OleVariant): CMapXDataset; dispid 2;
    function Item(Index: OleVariant): CMapXDataset; dispid 3;
    procedure Remove(Index: OleVariant); dispid 4;
    function Restore(const Name: WideString; SourceData: OleVariant): CMapXDataset; dispid 5;
    procedure RemoveAll; dispid 6;
  end;

// *********************************************************************//
// DispIntf:  CMapX
// Flags:     (4112) Hidden Dispatchable
// GUID:      {9D6ED197-5910-11D2-98A6-00A0C9742CCA}
// *********************************************************************//
  CMapX = dispinterface
    ['{9D6ED197-5910-11D2-98A6-00A0C9742CCA}']
    property DataSetGeoField: WideString dispid 1;
    property Version: WideString readonly dispid 2;
    property hWnd: OLE_HANDLE readonly dispid -515;
    property Annotations: CMapXAnnotations readonly dispid 3;
    property Dataset: IRowCursor dispid 4;
    property Layers: CMapXLayers readonly dispid 5;
    property AutoRedraw: WordBool dispid 6;
    property Zoom: Double dispid 7;
    property CenterX: Double dispid 8;
    property CenterY: Double dispid 9;
    property Geoset: WideString dispid 10;
    property GeoSetWidth: Double readonly dispid 11;
    property MapPaperHeight: Double readonly dispid 12;
    property MapPaperWidth: Double readonly dispid 13;
    property MaxSearchTime: Smallint dispid 14;
    property PaperUnit: PaperUnitConstants dispid 15;
    property PreferCompactLegends: WordBool dispid 16;
    property DefaultStyle: CMapXStyle dispid 17;
    property GeoDictionary: WideString dispid 18;
    property DataSetTheme: ThemeTypeConstants dispid 19;
    property CurrentTool: ToolConstants dispid 20;
    property MousePointer: CursorConstants dispid 21;
    property Datasets: CMapXDatasets readonly dispid 22;
    property Title: CMapXTitle readonly dispid 23;
    property TitleText: WideString dispid 24;
    property MapUnit: MapUnitConstants dispid 25;
    property Rotation: Double dispid 26;
    property Geosets: CMapXGeosets readonly dispid 27;
    property AreaUnit: AreaUnitConstants dispid 28;
    property Bounds: CMapXRectangle dispid 29;
    property DisplayCoordSys: CMapXCoordSys dispid 30;
    property NumericCoordSys: CMapXCoordSys dispid 31;
    property ExportSelection: WordBool dispid 32;