SetDatumShifts Method

[VB6]

Sub SetDatumShifts(newVal As IDatumShiftCollection)

[Delphi 7]

procedure SetDatumShifts(const newVal: IDatumShiftCollection);

Description

The SetDatumShifts method sets the value of the DatumShifts property.

Example

[VB6]

Sub CoordTransform_SetDatumShifts(ct As CoordTransform, data As DataSource)

    Dim shiftPrefs As New DatumShiftPreferencesEx

    shiftPrefs.BitFlags = dsbMolodensky

    shiftPrefs.OnlyGoThruIntermediate = False

    Dim picker As New DatumShiftPicker

    picker.DataSource = data

    picker.SourceCoordSys = ct.SourceCoordSys

    picker.TargetCoordSys = ct.TargetCoordSys

    picker.DatumShiftPrefs = shiftPrefs

    Dim retVal As DialogState

    Dim selectedShifts As New DatumShiftCollection

    retVal = picker.Show(selectedShifts)

    If retVal = drsSuccess Then

        ct.SetDatumShifts selectedShifts

    End If

End Sub

[Delphi 7]

procedure CoordTransform_SetDatumShifts(ct : CoordTransform; data : DataSource);

var

  picker : DatumShiftPicker;

  shiftPrefs : DatumShiftPreferencesEx;

  selectedShifts : IDatumShiftCollection;

  retVal : DialogState;

begin

  shiftPrefs := CoDatumShiftPreferencesEx.Create;

  shiftPrefs.BitFlags := dsbMolodensky;

  shiftPrefs.OnlyGoThruIntermediate := false;

  picker := CoDatumShiftPicker.Create;

  picker.DataSource := data;

  picker.DatumShiftPrefs := shiftPrefs;

  picker.SourceCoordSys := ct.SourceCoordSys;

  picker.TargetCoordSys := ct.TargetCoordSys;

  selectedShifts := CoDatumShiftCollection.Create;

  retVal := picker.Show(selectedShifts);

  if retVal = drsSuccess then

  begin

    ct.SetDatumShifts(selectedShifts);

  end;

end;