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

    property SelectionStyle: CMapXStyle dispid 33;
    property FeatureFactory: CMapXFeatureFactory readonly dispid 49;
    property DefaultConversionResolution: Integer dispid 50;
    property BackColor: OLE_COLOR dispid -501;
    property MousewheelSupport: MousewheelSupportConstants dispid 51;
    property MatchNumericFields: WordBool dispid 52;
    property MapScreenWidth: Single readonly dispid 53;
    property MapScreenHeight: Single readonly dispid 54;
    property RedrawInterval: Integer dispid 55;
    property SearchPath: WideString dispid 56;
    property MatchThreshold: Smallint dispid 57;
    property WaitCursorEnabled: WordBool dispid 58;
    property PanAnimationLayer: WordBool dispid 60;
    property InfotipPopupDelay: Integer dispid 61;
    property MouseIcon: WideString dispid 62;
    property InfotipSupport: WordBool dispid 63;
    procedure ConvertCoord(var ScreenX: Single; var ScreenY: Single; var MapX: Double; 
                           var MapY: Double; Direction: Smallint); dispid 34;
    procedure ZoomTo(Zoom: Double; X: Double; Y: Double); dispid 35;
    procedure CreateCustomTool(ToolNumber: Smallint; Type_: Smallint; Cursor: OleVariant; 
                               ShiftCursor: OleVariant; CtrlCursor: OleVariant; 
                               bInfoTips: OleVariant); dispid 36;
    function Distance(X1: Double; Y1: Double; X2: Double; Y2: Double): Double; dispid 37;
    procedure Refresh; dispid -550;
    procedure PrintMap(hDC: OLE_HANDLE; X: Integer; Y: Integer; W: Integer; H: Integer); dispid 38;
    procedure ExportMap(const Destination: WideString; Format: Smallint; Width: OleVariant; 
                        Height: OleVariant); dispid 39;
    procedure PropertyPage; dispid 40;
    procedure ConvertCoordV(var ScreenX: OleVariant; var ScreenY: OleVariant; var MapX: OleVariant; 
                            var MapY: OleVariant; Direction: Smallint); dispid 41;
    procedure SetSize(Width: Integer; Height: Integer); dispid 42;
    function IsPointVisible(X: Double; Y: Double): WordBool; dispid 43;
    function ClipLine(var X1: Double; var Y1: Double; var X2: Double; var Y2: Double): WordBool; dispid 44;
    function ClipLineV(var X1: OleVariant; var Y1: OleVariant; var X2: OleVariant; 
                       var Y2: OleVariant): WordBool; dispid 45;
    function GetControl: Integer; dispid 46;
    procedure SaveMapAsGeoset(const Name: WideString; const Filespec: WideString); dispid 47;
//    function ExportMapToMTF(const Destination: WideString; sMapDataCSys: Smallint; 
//                            lMapDataCSysPrecision: Integer; bCompressMapData: WordBool): WordBool; dispid 48;
//    procedure Die(const Password: WideString); dispid 59;
    procedure Pan(ScreenX: Single; ScreenY: Single); dispid 64;
    procedure AboutBox; dispid -552;
  end;

// *********************************************************************//
// DispIntf:  CMapXEvents
// Flags:     (4096) Dispatchable
// GUID:      {9D6ED198-5910-11D2-98A6-00A0C9742CCA}
// *********************************************************************//
  CMapXEvents = dispinterface
    ['{9D6ED198-5910-11D2-98A6-00A0C9742CCA}']
    procedure Click; dispid -600;
    procedure DblClick; dispid -601;
    procedure Error(Number: Smallint; var Description: WideString; Scode: Integer; 
                    const Source: WideString; const HelpFile: WideString; HelpContext: Integer; 
                    var CancelDisplay: WordBool); dispid -608;
    procedure KeyDown(var KeyCode: Smallint; Shift: Smallint); dispid -602;
    procedure KeyPress(var KeyAscii: Smallint); dispid -603;
    procedure KeyUp(var KeyCode: Smallint; Shift: Smallint); dispid -604;
    procedure MouseMove(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -606;
    procedure MouseDown(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -605;
    procedure MouseUp(Button: Smallint; Shift: Smallint; X: Single; Y: Single); dispid -607;
    procedure SelectionChanged; dispid 1;
    procedure ResolveDataBind(Flag: Smallint; NumMatches: Smallint; Matches: OleVariant; 
                              var Choice: Smallint; var Cancel: WordBool); dispid 2;
    procedure ToolUsed(ToolNum: Smallint; X1: Double; Y1: Double; X2: Double; Y2: Double; 
                       Distance: Double; Shift: WordBool; Ctrl: WordBool; 
                       var EnableDefault: WordBool); dispid 3;
    procedure RequestData(const DataSetName: WideString; Row: Integer; Field: Smallint; 
                          var Value: OleVariant; var Done: WordBool); dispid 4;
    procedure DataMismatch(const DataSetName: WideString; Row: Integer; 
                           var GeoFieldValue: WideString); dispid 5;
    procedure MapViewChanged; dispid 6;
    procedure AnnotationAdded(const Annotation: IDispatch); dispid 7;
    procedure AnnotationChanged(ChangeType: Smallint; const Annotation: IDispatch; 
                                var EnableDefault: WordBool); dispid 8;
    procedure ThemeModifyRequested(const Theme: IDispatch); dispid 9;
    procedure DrawUserLayer(const Layer: IDispatch; hOutputDC: OLE_HANDLE; 
                            hAttributeDC: OLE_HANDLE; const RectFull: IDispatch; 
                            const RectInvalid: IDispatch); dispid 10;
    procedure PolyToolUsed(ToolNum: Smallint; Flags: Integer; const Points: IDispatch; 
                           bShift: WordBool; bCtrl: WordBool; var EnableDefault: WordBool); dispid 11;
    procedure MouseWheel(Flags: Integer; zDelta: Smallint; var X: Single; var Y: Single; 
                         var EnableDefault: WordBool); dispid 12;
    procedure MapInitialized; dispid 13;
    procedure ResolveDataBindEx(Flag: Smallint; NumMatches: Smallint; Matches: OleVariant; 
                                var Choice: Smallint; var Cancel: WordBool); dispid 14;
    procedure MapDraw(Flag: Smallint); dispid 15;
  end;

// *********************************************************************//
// DispIntf:  CMapXLayers
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D42-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXLayers = dispinterface
    ['{77306D42-5C82-11CF-8795-00AA00B7EF73}']
    property Count: Integer readonly dispid 1;
    property AnimationLayer: CMapXLayer dispid 9;
    property Bounds: CMapXRectangle readonly dispid 12;
    property InsertionLayer: CMapXLayer dispid 15;
    procedure ClearSelection; dispid 2;
    function Move(From: Smallint; To_: Smallint): WordBool; dispid 3;
    function Add(LayerInfo: OleVariant; Position: OleVariant): CMapXLayer; dispid 4;
    procedure AddGeoSetLayers(const GeoSetName: WideString); dispid 5;
    function Item(Index: OleVariant): CMapXLayer; dispid 6;
    procedure Remove(Index: OleVariant); dispid 7;
    function AddUserDrawLayer(const Name: WideString; Position: Smallint): CMapXLayer; dispid 8;
    function CreateLayer(const Name: WideString; Filespec: OleVariant; Position: OleVariant; 
                         KeyLength: OleVariant; CoordSys: OleVariant): CMapXLayer; dispid 10;
    function LayersDlg(HelpFile: OleVariant; HelpID: OleVariant): WordBool; dispid 11;
    function AddServerLayer(const Name: WideString; const ConnectString: WideString; 
                            const Query: WideString; Position: OleVariant; Options: OleVariant): CMapXLayer; dispid 13;
    procedure RemoveAll; dispid 14;
  end;

// *********************************************************************//
// DispIntf:  CMapXLayerInfo
// Flags:     (4112) Hidden Dispatchable
// GUID:      {30D28170-FE33-11D2-9878-0060089F59A5}
// *********************************************************************//
  CMapXLayerInfo = dispinterface
    ['{30D28170-FE33-11D2-9878-0060089F59A5}']
    property Type_: Smallint dispid 1;
    procedure AddParameter(const ParamName: WideString; Param: OleVariant); dispid 2;
  end;

// *********************************************************************//
// DispIntf:  CMapXLayer
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D48-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXLayer = dispinterface
    ['{77306D48-5C82-11CF-8795-00AA00B7EF73}']
    property Name: WideString dispid 1;
    property Visible: WordBool dispid 2;
    property Selectable: WordBool dispid 3;
    property _Name: WideString dispid 0;
    property Filespec: WideString readonly dispid 4;
    property LabelProperties: CMapXLabelProperties readonly dispid 5;
    property AutoLabel: WordBool dispid 6;
    property ZoomLayer: WordBool dispid 7;
    property OverrideStyle: WordBool dispid 8;
    property Style: CMapXStyle dispid 9;
    property ZoomMin: Double dispid 10;
    property ZoomMax: Double dispid 11;
    property Selection: CMapXSelection readonly dispid 12;
    property PredominantFeatureType: Smallint readonly dispid 13;
    property Find: CMapXLayerFind readonly dispid 14;
    property Type_: Smallint readonly dispid 15;
    property KeyField: WideString dispid 16;
    property CoordSys: CMapXCoordSys readonly dispid 17;
    property Bounds: CMapXRectangle readonly dispid 32;
    property DrawLabelsAfter: WordBool dispid 37;
    property Datasets: CMapXDatasets readonly dispid 39;
    property ShowNodes: WordBool dispid 43;
    property ShowCentroids: WordBool dispid 44;
    property ShowLineDirection: WordBool dispid 45;
    property Editable: WordBool dispid 46;
    procedure LabelAtPoint(X: Double; Y: Double); dispid 18;
    procedure ClearCustomLabels; dispid 19;
    procedure UpdateFeature(Target: OleVariant; Source: OleVariant; RowValues: OleVariant); dispid 20;
    function AddFeature(const SourceFeature: IDispatch; RowValues: OleVariant): CMapXFeature; dispid 21;
    procedure DeleteFeature(Target: OleVariant); dispid 22;
    procedure Invalidate(InvalidRect: OleVariant); dispid 23;
    function SearchWithinDistance(const Source: IDispatch; Distance: Double; Units: Smallint; 
                                  SearchType: Smallint): CMapXFeatures; dispid 24;
    function SearchWithinRectangle(const Rectangle: IDispatch; SearchType: Smallint): CMapXFeatures; dispid 25;
    function AllFeatures: CMapXFeatures; dispid 26;
    function NoFeatures: CMapXFeatures; dispid 27;
    function SearchWithinFeature(const Feature: IDispatch; SearchType: Smallint): CMapXFeatures; dispid 28;
    function SearchAtPoint(const Point: IDispatch): CMapXFeatures; dispid 29;
    procedure DrillDownRemoveFeatures(const Level: WideString; FeatureKeys: OleVariant); dispid 30;
    procedure DrillDownAddFeatures(const Level: WideString; FeatureKeys: OleVariant); dispid 31;
    function GetDrilldownFeaturesByID(const strLevel: WideString; FeatureID: OleVariant): CMapXFeatures; dispid 33;
    procedure DrilldownReset(const strLevel: WideString); dispid 34;
    function GetFeatureByID(FeatureID: Integer): CMapXFeature; dispid 35;
    procedure Refresh; dispid 36;
    function FeatureIDFromFeatureName(const strKeyValue: WideString): Integer; dispid 38;
    function Search(const strWhere: WideString): CMapXFeatures; dispid 40;
    procedure BeginAccess(BeginAccessType: LayerBeginAccessConstants); dispid 41;
    procedure EndAccess(EndAccessType: OleVariant); dispid 42;
  end;

// *********************************************************************//
// DispIntf:  CMapXField
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D4C-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXField = dispinterface
    ['{77306D4C-5C82-11CF-8795-00AA00B7EF73}']
    property Type_: FieldTypeConstants readonly dispid 1;
    property Name: WideString readonly dispid 2;
    property _Name: WideString dispid 0;
    property AggregationFunction: AggregationFunctionConstants readonly dispid 3;
  end;

// *********************************************************************//
// DispIntf:  CMapXDataset
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D51-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXDataset = dispinterface
    ['{77306D51-5C82-11CF-8795-00AA00B7EF73}']
    property Name: WideString dispid 1;
    property RowCount: Integer readonly dispid 2;
    property Fields: CMapXFields readonly dispid 3;
    property Themes: CMapXThemes readonly dispid 4;
    property GeoField: Integer readonly dispid 5;
    property SecondaryGeoField: Integer readonly dispid 6;
    property Layer: CMapXLayer readonly dispid 7;
    property Type_: Smallint readonly dispid 11;
    property ReadOnly: WordBool readonly dispid 12;
    procedure Refresh; dispid 8;
    property Value[Row: OleVariant; Column: OleVariant]: OleVariant readonly dispid 9;
    property _Value[Row: OleVariant; Column: OleVariant]: OleVariant readonly dispid 0;
    property SourceRows[Row: OleVariant]: CMapXSourceRows readonly dispid 10;
    property RowValues[Row: OleVariant]: CMapXRowValues readonly dispid 13;
    function AddField(const Name: WideString; const Expression: WideString): CMapXField; dispid 14;
  end;

// *********************************************************************//
// DispIntf:  CMapXThemes
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D54-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXThemes = dispinterface
    ['{77306D54-5C82-11CF-8795-00AA00B7EF73}']
    property Count: Integer readonly dispid 1;
    function Add(Type_: OleVariant; Field: OleVariant; Name: OleVariant; ComputeTheme: OleVariant): CMapXTheme; dispid 2;
    function Item(Index: OleVariant): CMapXTheme; dispid 3;
    procedure Remove(Index: OleVariant); dispid 4;
    procedure RemoveAll; dispid 5;
  end;

// *********************************************************************//
// DispIntf:  CMapXTheme
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D56-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXTheme = dispinterface
    ['{77306D56-5C82-11CF-8795-00AA00B7EF73}']
    property Visible: WordBool dispid 1;
    property Type_: Smallint readonly dispid 2;
    property Properties: CMapXThemeProperties readonly dispid 3;
    property Legend: CMapXLegend readonly dispid 4;
    property AutoRecompute: WordBool dispid 5;
    property _Name: WideString dispid 0;
    property Name: WideString dispid 6;
    property ThemeProperties: CMapXThemeProperties readonly dispid 7;
    property Layer: CMapXLayer readonly dispid 9;
    property Fields: CMapXFields readonly dispid 10;
    property DataMin: Double dispid 11;
    property DataMax: Double dispid 12;
    property ComputeTheme: WordBool dispid 13;
    function ThemeDlg(HelpFile: OleVariant; HelpID: OleVariant): WordBool; dispid 8;
  end;

// *********************************************************************//
// DispIntf:  CMapXLegend
// Flags:     (4112) Hidden Dispatchable
// GUID:      {77306D5C-5C82-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXLegend = dispinterface
    ['{77306D5C-5C82-11CF-8795-00AA00B7EF73}']
    property Compact: WordBool dispid 1;
    property Visible: WordBool dispid 2;
    property TitleStyle: CMapXStyle dispid 3;
    property SubTitleStyle: CMapXStyle dispid 4;
    property CompactTitleStyle: CMapXStyle dispid 5;
    property BodyTextStyle: CMapXStyle dispid 6;
    property LegendTexts: CMapXLegendTexts readonly dispid 7;
    property CurrencyFormat: WordBool dispid 8;
    property Title: WideString dispid 9;
    property SubTitle: WideString dispid 10;
    property CompactTitle: WideString dispid 11;
    property Left: Single dispid 12;
    property Top: Single dispid 13;
    property Width: Single readonly dispid 14;
    property Height: Single readonly dispid 15;
    property ShowEmptyRanges: WordBool dispid 17;
    property ShowCount: WordBool dispid 19;
    property PaperHeight: Double readonly dispid 21;
    property PaperWidth: Double readonly dispid 22;
    function LegendDlg(HelpFile: OleVariant; HelpID: OleVariant): WordBool; dispid 16;
    procedure ExportLegend(const Destination: WideString; Format: Smallint); dispid 18;
    procedure PrintLegend(hDC: OLE_HANDLE; X: Integer; Y: Integer; W: Integer; H: Integer); dispid 20;
  end;

// *********************************************************************//
// DispIntf:  CMapXCollection
// Flags:     (4112) Hidden Dispatchable
// GUID:      {3AAB5861-6166-11CF-8795-00AA00B7EF73}
// *********************************************************************//
  CMapXCollection = dispinterface
    ['{3AAB5861-6166-11CF-8795-00AA00B7EF73}']
    property _NewEnum: IUnknown dispid -4;
  end;

// *********************************************************************//
// DispIntf:  CMapXAnnotations
// Flags:     (4112) Hidden Dispatchable