Class TfrmExportShapefileObjects

Unit

frmExportShapefileObjectsUnit

Declaration

type TfrmExportShapefileObjects = class(TfrmCustomSelectObjects)

Description

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

• TForm
• TfrmCustomGoPhast
• TfrmCustomSelectObjects
• TfrmExportShapefileObjects

Overview

Fields

	pnlTop: TPanel;
	lblObjects: TLabel;
	vstDataSets: TVirtualStringTree;
	lblDataArrays: TLabel;
	splLeft: TSplitter;
	BitBtn1: TBitBtn;
	rdeMissingData: TRbwDataEntry;
	lblMissingData: TLabel;
	gbExportAs: TGroupBox;
	rbPoints: TRadioButton;
	rbMultipoint: TRadioButton;
	rbPolyline: TRadioButton;
	rbPolygons: TRadioButton;
	sdShapefile: TSaveDialog;
	XBaseShapeFile: TXBase;
	cbExportName: TCheckBox;
	cbExportElevationFormulas: TCheckBox;
	chklstTimes: TCheckListBox;
	splRight: TSplitter;
	lblTimes: TLabel;
	rgView: TRadioGroup;
	FCurrentNodeName: string;
	FObjectOwner: TList;
	FSelectedDataSets: TList;
	FSelectedBoundaries: TBoundaryTypes;
	FSelectedScreenObjects: TList;
	FSettingChecked: Boolean;
	FFieldDefinitions: array of TFieldDefinition;
	FBreakScreenObjects: array of TBreakScreenObject;
	FShapeType: Integer;
	FMissingValueString: AnsiString;
	FMissingValue: Integer;
	FShowWarning: boolean;
	FShapeFileWriter: TShapefileGeometryWriter;
	FClassifiationList: TList;
	FEdgeList: TList;
	FBoundaryNames: TStringList;
	FBoundDataSetCount: Integer;
	FTimeCount: Integer;
	FTimeBoundaryFound: Boolean;
	FMaxHeadObsTimes: Integer;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure FormDestroy(Sender: TObject); override;
	procedure vstDataSetsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
	procedure FormResize(Sender: TObject);
	procedure splLeftMoved(Sender: TObject);
	procedure vstDataSetsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
	procedure vstDataSetsChecking(Sender: TBaseVirtualTree; Node: PVirtualNode; var NewState: TCheckState; var Allowed: Boolean);
	procedure vstObjectsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
	procedure btnCloseClick(Sender: TObject);
	procedure splRightMoved(Sender: TObject);
	procedure rgViewClick(Sender: TObject);
	function ShouldCheckBoxBeChecked(ScreenObject: TScreenObject): boolean; override;
	procedure HandleChecked(AScreenObject: TScreenObject); override;
	procedure HandleUnchecked(AScreenObject: TScreenObject); override;
	function CanSelect(ScreenObject: TScreenObject): boolean; override;
	procedure GetData;
	procedure CenterLabels;
	procedure SetCheckedNodes(Sender: TBaseVirtualTree);
	procedure SetAllowableShapeTypes;
	procedure SetData;
	procedure DefinePointGeometry(AScreenObject: TScreenObject);
	procedure DefineMultipointGeometry(AScreenObject: TScreenObject; BreakObject: boolean);
	procedure DefinePolylineGeometry(AScreenObject: TScreenObject; BreakObject: boolean);
	procedure DefinePolygonGeometrySingleSection(AScreenObject: TScreenObject; BreakObject: boolean);
	procedure DefinePolygonGeometryMultipleSections( AScreenObject: TScreenObject);
	procedure SetFieldType(DataArrayIndex: Integer);
	procedure AssignFieldName(FieldNames: TStringList; DataArrayIndex: Integer);
	procedure FillFieldDefinitions(FieldDefinitions: TStringList);
	procedure CreateDataBase(FieldDefinitions: TStringList);
	procedure DefineShapeGeometry(AScreenObject: TScreenObject; BreakObject: boolean);
	procedure InitializeDataBase;
	procedure GetShapeType(var ShapeType: Integer);
	procedure AssignFieldValues(AScreenObject: TScreenObject; BreakObject: boolean);
	procedure InitializeBreakScreenObjects;
	function GetImportedValuesFromFormula(DataArray: TDataArray; ScreenObject: TScreenObject; Formula: string): TValueArrayStorage;
	procedure CreateShape(var Shape: TShapeObject);
	function GetExtraDataSetCount: Integer;
	function CanSelectBoundary( BoundaryClassification: TBoundaryClassification): Boolean;
	function CanSelectBoundaryType(Element: TBoundaryType): boolean;
	procedure EnableTimesCheckList;

Description

Fields

	pnlTop: TPanel;

	lblObjects: TLabel;

	vstDataSets: TVirtualStringTree;

	lblDataArrays: TLabel;

	splLeft: TSplitter;

	BitBtn1: TBitBtn;

	rdeMissingData: TRbwDataEntry;

	lblMissingData: TLabel;

	gbExportAs: TGroupBox;

	rbPoints: TRadioButton;

	rbMultipoint: TRadioButton;

	rbPolyline: TRadioButton;

	rbPolygons: TRadioButton;

	sdShapefile: TSaveDialog;

	XBaseShapeFile: TXBase;

	cbExportName: TCheckBox;

	cbExportElevationFormulas: TCheckBox;

	chklstTimes: TCheckListBox;

	splRight: TSplitter;

	lblTimes: TLabel;

	rgView: TRadioGroup;

	FCurrentNodeName: string;

	FObjectOwner: TList;

	FSelectedDataSets: TList;

	FSelectedBoundaries: TBoundaryTypes;

	FSelectedScreenObjects: TList;

	FSettingChecked: Boolean;

	FFieldDefinitions: array of TFieldDefinition;

	FBreakScreenObjects: array of TBreakScreenObject;

	FShapeType: Integer;

	FMissingValueString: AnsiString;

	FMissingValue: Integer;

	FShowWarning: boolean;

	FShapeFileWriter: TShapefileGeometryWriter;

	FClassifiationList: TList;

	FEdgeList: TList;

	FBoundaryNames: TStringList;

	FBoundDataSetCount: Integer;

	FTimeCount: Integer;

	FTimeBoundaryFound: Boolean;

	FMaxHeadObsTimes: Integer;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure FormDestroy(Sender: TObject); override;

	procedure vstDataSetsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);

	procedure FormResize(Sender: TObject);

	procedure splLeftMoved(Sender: TObject);

	procedure vstDataSetsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);

	procedure vstDataSetsChecking(Sender: TBaseVirtualTree; Node: PVirtualNode; var NewState: TCheckState; var Allowed: Boolean);

	procedure vstObjectsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);

	procedure btnCloseClick(Sender: TObject);

	procedure splRightMoved(Sender: TObject);

	procedure rgViewClick(Sender: TObject);

	function ShouldCheckBoxBeChecked(ScreenObject: TScreenObject): boolean; override;

	procedure HandleChecked(AScreenObject: TScreenObject); override;

	procedure HandleUnchecked(AScreenObject: TScreenObject); override;

	function CanSelect(ScreenObject: TScreenObject): boolean; override;

	procedure GetData;

	procedure CenterLabels;

	procedure SetCheckedNodes(Sender: TBaseVirtualTree);

	procedure SetAllowableShapeTypes;

	procedure SetData;

	procedure DefinePointGeometry(AScreenObject: TScreenObject);

	procedure DefineMultipointGeometry(AScreenObject: TScreenObject; BreakObject: boolean);

	procedure DefinePolylineGeometry(AScreenObject: TScreenObject; BreakObject: boolean);

	procedure DefinePolygonGeometrySingleSection(AScreenObject: TScreenObject; BreakObject: boolean);

	procedure DefinePolygonGeometryMultipleSections( AScreenObject: TScreenObject);

	procedure SetFieldType(DataArrayIndex: Integer);

	procedure AssignFieldName(FieldNames: TStringList; DataArrayIndex: Integer);

	procedure FillFieldDefinitions(FieldDefinitions: TStringList);

	procedure CreateDataBase(FieldDefinitions: TStringList);

	procedure DefineShapeGeometry(AScreenObject: TScreenObject; BreakObject: boolean);

	procedure InitializeDataBase;

	procedure GetShapeType(var ShapeType: Integer);

	procedure AssignFieldValues(AScreenObject: TScreenObject; BreakObject: boolean);

	procedure InitializeBreakScreenObjects;

	function GetImportedValuesFromFormula(DataArray: TDataArray; ScreenObject: TScreenObject; Formula: string): TValueArrayStorage;

	procedure CreateShape(var Shape: TShapeObject);

	function GetExtraDataSetCount: Integer;

	function CanSelectBoundary( BoundaryClassification: TBoundaryClassification): Boolean;

	function CanSelectBoundaryType(Element: TBoundaryType): boolean;

	procedure EnableTimesCheckList;