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

// GUID:      {7A35D061-6AAC-11CF-96AE-00AA00A4760F}
// *********************************************************************//
  CMapXAnnotations = dispinterface
    ['{7A35D061-6AAC-11CF-96AE-00AA00A4760F}']
    property Editable: WordBool dispid 1;
    property Count: Integer readonly dispid 2;
    function AddSymbol(X: Double; Y: Double): CMapXAnnotation; dispid 3;
    function Item(Index: OleVariant): CMapXAnnotation; dispid 4;
    procedure Remove(Index: OleVariant); dispid 5;
    function AddText(const Text: WideString; X: Double; Y: Double; Position: OleVariant): CMapXAnnotation; dispid 6;
    procedure RemoveAll; dispid 7;
    function ActiveAnnotation: CMapXAnnotation; dispid 8;
  end;

// *********************************************************************//
// DispIntf:  CMapXThemeProperties
// Flags:     (4112) Hidden Dispatchable
// GUID:      {44DB7B47-B2F5-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXThemeProperties = dispinterface
    ['{44DB7B47-B2F5-11CF-9BEE-00AA00A478CB}']
    property DistMethod: Smallint dispid 1;
    property NumRanges: Smallint dispid 2;
    property RangeCategories: CMapXRangeCategoriesCollection readonly dispid 3;
    property DotSize: Smallint dispid 5;
    property Graduated: WordBool dispid 6;
    property MultivarCategories: CMapXMultivarCategoriesCollection readonly dispid 7;
    property Independent: WordBool dispid 8;
    property IndividualValueCategories: CMapXIndividualValueCategoriesCollection readonly dispid 4;
    property ValuePerDot: Double dispid 9;
    property DataValue: Double dispid 10;
    property Size: Double dispid 11;
    property Width: Double dispid 12;
    property SymbolStyle: CMapXStyle dispid 13;
    property SpreadBy: Smallint dispid 14;
    property AllowEmptyRanges: WordBool dispid 15;
    property DotColor: OLE_COLOR dispid 16;
    property PieClockwise: WordBool dispid 17;
    property PieHalfPies: WordBool dispid 18;
    property PieStartAngle: Smallint dispid 19;
    property BarStacked: WordBool dispid 20;
    property NegativeSymbolStyle: CMapXStyle dispid 21;
    property ShowNegativeValues: WordBool dispid 22;
    property GraduateSizeBy: Smallint dispid 23;
    property BorderStyle: CMapXStyle dispid 24;
    property BarWidth: Double dispid 25;
    property BarIndependentScale: WordBool dispid 26;
    property PositiveSymbolStyle: CMapXStyle dispid 27;
    property BarFrameStyle: CMapXStyle dispid 28;
    property PieGraduated: WordBool dispid 29;
    property BarGraduatedStack: WordBool dispid 30;
    property ApplyAttribute: Smallint dispid 31;
    property RoundRanges: WordBool dispid 32;
    property RoundBy: Double dispid 33;
    property ColorMethod: Smallint dispid 34;
    property InflectRanges: WordBool dispid 35;
    property InflectionRange: Smallint dispid 36;
    property InflectionColor: OLE_COLOR dispid 37;
    property BarFramed: WordBool dispid 38;
  end;

// *********************************************************************//
// DispIntf:  CMapXSelection
// Flags:     (4112) Hidden Dispatchable
// GUID:      {B0929660-BA3A-11CF-9019-00AA00A53B3C}
// *********************************************************************//
  CMapXSelection = dispinterface
    ['{B0929660-BA3A-11CF-9019-00AA00A53B3C}']
    procedure SelectByRegion(const Layer: IDispatch; FeatureID: OleVariant; Flag: Smallint); dispid 1;
    procedure ClearSelection; dispid 2;
    procedure SelectByPoint(X: Double; Y: Double; Flag: Smallint); dispid 3;
    procedure SelectByRadius(X: Double; Y: Double; radius: Double; Flag: Smallint); dispid 4;
    procedure SelectByRectangle(X1: Double; Y1: Double; X2: Double; Y2: Double; Flag: Smallint); dispid 5;
    function SelectAll(Flag: Smallint): WordBool; dispid 6;
    procedure SelectByID(FeatureID: OleVariant; Flag: Smallint); dispid 7;
  end;

// *********************************************************************//
// DispIntf:  CMapXFeature
// Flags:     (4112) Hidden Dispatchable
// GUID:      {B0929662-BA3A-11CF-9019-00AA00A53B3C}
// *********************************************************************//
  CMapXFeature = dispinterface
    ['{B0929662-BA3A-11CF-9019-00AA00A53B3C}']
    property FeatureID: Integer readonly dispid 1;
    property Type_: Smallint dispid 2;
    property Length: Double readonly dispid 3;
    property CenterX: Double readonly dispid 4;
    property CenterY: Double readonly dispid 5;
    property Style: CMapXStyle dispid 6;
    property Bounds: CMapXRectangle readonly dispid 7;
    property Caption: WideString dispid 8;
    property Parts: CMapXParts readonly dispid 9;
    property Area: Double readonly dispid 10;
    property Layer: CMapXLayer readonly dispid 11;
    property Point: CMapXPoint dispid 12;
    property LabelPoint: CMapXPoint readonly dispid 13;
    property _FeatureID: Integer readonly dispid 0;
    property Perimeter: Double readonly dispid 14;
    property Smooth: WordBool dispid 15;
    property Name: WideString readonly dispid 16;
    property KeyValue: WideString dispid 17;
    property FeatureKey: WideString readonly dispid 23;
    procedure Update(UpdateFeature: OleVariant; RowValues: OleVariant); dispid 18;
    procedure Offset(deltaX: Double; deltaY: Double); dispid 19;
    procedure Attach(const Map: IDispatch); dispid 20;
    function Clone: CMapXFeature; dispid 21;
    property Nodes[CSys: OleVariant]: OleVariant dispid 22;
  end;

// *********************************************************************//
// DispIntf:  CMapXRangeCategory
// Flags:     (4112) Hidden Dispatchable
// GUID:      {97F45D06-BF8A-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXRangeCategory = dispinterface
    ['{97F45D06-BF8A-11CF-9BEE-00AA00A478CB}']
    property Min: Double dispid 1;
    property Max: Double dispid 2;
    property NumItems: Integer readonly dispid 3;
    property Style: CMapXStyle dispid 4;
  end;

// *********************************************************************//
// DispIntf:  CMapXFields
// Flags:     (4112) Hidden Dispatchable
// GUID:      {3DBD18C2-C2AC-11CF-8796-00AA00B7EF73}
// *********************************************************************//
  CMapXFields = dispinterface
    ['{3DBD18C2-C2AC-11CF-8796-00AA00B7EF73}']
    property Count: Integer readonly dispid 1;
    function Add(SourceField: OleVariant; Name: OleVariant; AggregationFunction: OleVariant; 
                 Type_: OleVariant): CMapXField; dispid 2;
    function Item(Index: OleVariant): CMapXField; dispid 3;
    procedure Remove(Index: OleVariant); dispid 4;
    procedure RemoveAll; dispid 5;
  end;

// *********************************************************************//
// DispIntf:  CMapXStyle
// Flags:     (4112) Hidden Dispatchable
// GUID:      {1C1EE340-C439-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXStyle = dispinterface
    ['{1C1EE340-C439-11CF-9BEE-00AA00A478CB}']
    property SymbolCharacter: Smallint dispid 1;
    property LineColor: OLE_COLOR dispid 2;
    property LineStyle: Smallint dispid 3;
    property LineWidth: Smallint dispid 4;
    property RegionColor: OLE_COLOR dispid 5;
    property RegionPattern: Smallint dispid 6;
    property RegionBackColor: OLE_COLOR dispid 7;
    property RegionBorderStyle: Smallint dispid 8;
    property RegionBorderColor: OLE_COLOR dispid 9;
    property RegionBorderWidth: Smallint dispid 10;
    property TextFont: IFontDisp readonly dispid 11;
    property SymbolFont: IFontDisp readonly dispid 12;
    property TextFontColor: OLE_COLOR dispid 13;
    property TextFontBackColor: OLE_COLOR dispid 14;
    property SymbolFontColor: OLE_COLOR dispid 15;
    property SymbolFontBackColor: OLE_COLOR dispid 16;
    property SymbolFontOpaque: WordBool dispid 17;
    property TextFontOpaque: WordBool dispid 18;
    property SymbolFontHalo: WordBool dispid 19;
    property SymbolFontShadow: WordBool dispid 20;
    property TextFontHalo: WordBool dispid 21;
    property TextFontShadow: WordBool dispid 22;
    property TextFontAllCaps: WordBool dispid 23;
    property TextFontDblSpace: WordBool dispid 24;
    property SymbolBitmapTransparent: WordBool dispid 33;
    property SymbolBitmapOverrideColor: WordBool dispid 34;
    property SymbolBitmapColor: OLE_COLOR dispid 35;
    property SymbolBitmapName: WideString dispid 36;
    property SymbolType: Smallint dispid 37;
    property SymbolBitmapSize: Integer dispid 38;
    property SupportsBitmapSymbols: WordBool readonly dispid 39;
    property SymbolFontRotation: Smallint dispid 40;
    property LineStyleCount: Integer readonly dispid 42;
    property RegionTransparent: WordBool dispid 43;
    property LineInterleaved: WordBool dispid 44;
    property LineWidthUnit: StyleUnitConstants dispid 45;
    property RegionBorderWidthUnit: StyleUnitConstants dispid 46;
    property LineSupportsInterleave: WordBool readonly dispid 47;
    property TextFontRotation: Smallint dispid 48;
    property SymbolVectorColor: OLE_COLOR dispid 53;
    property SymbolVectorSize: Smallint dispid 54;
    property MinVectorSymbolCharacter: Smallint readonly dispid 55;
    property MaxVectorSymbolCharacter: Smallint readonly dispid 56;
    function PickRegion: WordBool; dispid 25;
    function PickLine: WordBool; dispid 26;
    function PickText: WordBool; dispid 27;
    function PickSymbol: WordBool; dispid 28;
    procedure DrawTextSample(hDC: OLE_HANDLE; const Rectangle: IDispatch; 
                             const SampleText: WideString); dispid 29;
    procedure DrawSymbolSample(hDC: OLE_HANDLE; const Rectangle: IDispatch); dispid 30;
    procedure DrawRegionSample(hDC: OLE_HANDLE; const Rectangle: IDispatch); dispid 31;
    procedure DrawLineSample(hDC: OLE_HANDLE; const Rectangle: IDispatch); dispid 32;
    function Clone: CMapXStyle; dispid 41;
    procedure ExportSymbolSample(const Destination: WideString; Format: Smallint; Width: Double; 
                                 Height: Double; BackgroundColor: OleVariant); dispid 49;
    procedure ExportRegionSample(const Destination: WideString; Format: Smallint; Width: Double; 
                                 Height: Double; BackgroundColor: OleVariant); dispid 50;
    procedure ExportLineSample(const Destination: WideString; Format: Smallint; Width: Double; 
                               Height: Double; BackgroundColor: OleVariant); dispid 51;
    procedure ExportTextSample(const Destination: WideString; Format: Smallint; Width: Double; 
                               Height: Double; const SampleText: WideString; 
                               BackgroundColor: OleVariant); dispid 52;
  end;

// *********************************************************************//
// DispIntf:  CMapXIValueCategory
// Flags:     (4112) Hidden Dispatchable
// GUID:      {985148C3-C84B-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXIValueCategory = dispinterface
    ['{985148C3-C84B-11CF-9BEE-00AA00A478CB}']
    property Style: CMapXStyle dispid 1;
    property NumItems: Integer readonly dispid 2;
    property Value: WideString dispid 3;
  end;

// *********************************************************************//
// DispIntf:  CMapXPieChartCategory
// Flags:     (4112) Hidden Dispatchable
// GUID:      {6DDA5660-C853-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXPieChartCategory = dispinterface
    ['{6DDA5660-C853-11CF-9BEE-00AA00A478CB}']
    property Style: CMapXStyle dispid 1;
  end;

// *********************************************************************//
// DispIntf:  CMapXSourceRows
// Flags:     (4112) Hidden Dispatchable
// GUID:      {46FF43C0-C9ED-11CF-8796-00AA00B7EF73}
// *********************************************************************//
  CMapXSourceRows = dispinterface
    ['{46FF43C0-C9ED-11CF-8796-00AA00B7EF73}']
    property Count: Integer readonly dispid 1;
    function Item(Index: OleVariant): CMapXSourceRow; dispid 2;
  end;

// *********************************************************************//
// DispIntf:  CMapXSourceRow
// Flags:     (4112) Hidden Dispatchable
// GUID:      {46FF43C2-C9ED-11CF-8796-00AA00B7EF73}
// *********************************************************************//
  CMapXSourceRow = dispinterface
    ['{46FF43C2-C9ED-11CF-8796-00AA00B7EF73}']
    property Row: Integer readonly dispid 1;
    property _Row: Integer dispid 0;
  end;

// *********************************************************************//
// DispIntf:  CMapXAnnotation
// Flags:     (4112) Hidden Dispatchable
// GUID:      {1C66DB81-D40D-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXAnnotation = dispinterface
    ['{1C66DB81-D40D-11CF-9BEE-00AA00A478CB}']
    property Type_: Smallint readonly dispid 1;
    property Graphic: IDispatch readonly dispid 2;
  end;

// *********************************************************************//
// DispIntf:  CMapXText
// Flags:     (4112) Hidden Dispatchable
// GUID:      {4B6690A0-D4D1-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXText = dispinterface
    ['{4B6690A0-D4D1-11CF-9BEE-00AA00A478CB}']
    property Caption: WideString dispid 1;
    property X: Double dispid 2;
    property Y: Double dispid 3;
    property Position: Smallint dispid 4;
    property Style: CMapXStyle dispid 5;
  end;

// *********************************************************************//
// DispIntf:  CMapXLegendText
// Flags:     (4112) Hidden Dispatchable
// GUID:      {4EC9B520-DFCF-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXLegendText = dispinterface
    ['{4EC9B520-DFCF-11CF-9BEE-00AA00A478CB}']
    property Text: WideString dispid 1;
    property Visible: WordBool dispid 2;
  end;

// *********************************************************************//
// DispIntf:  CMapXLegendTexts
// Flags:     (4112) Hidden Dispatchable
// GUID:      {4EC9B528-DFCF-11CF-9BEE-00AA00A478CB}
// *********************************************************************//
  CMapXLegendTexts = dispinterface
    ['{4EC9B528-DFCF-11CF-9BEE-00AA00A478CB}']
    property AutoGenerate: WordBool dispid 1;
    property Count: Integer readonly dispid 2;
    property AllOthersText: C