Class TfrmExportShapefile

Unit

frmExportShapefileUnit

Declaration

type TfrmExportShapefile = class(TfrmCustomGoPhast)

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
• TfrmExportShapefile

Overview

Fields

	tvExportItems: TTreeView;
	rdgTime: TRbwDataGrid4;
	seTimeCount: TJvSpinEdit;
	jfeElements: TJvFilenameEdit;
	jfeNodes: TJvFilenameEdit;
	jfeHorizontalFlowBarrier: TJvFilenameEdit;
	btnCancel: TBitBtn;
	btnOK: TBitBtn;
	btnHelp: TBitBtn;
	lblExportItems: TLabel;
	lblTime: TLabel;
	lblTimeCount: TLabel;
	lblElements: TLabel;
	lblNodes: TLabel;
	lblHorizontalFlowBarrier: TLabel;
	ilCheckImages: TImageList;
	rgExportObjectType: TRadioGroup;
	rgHfbDimensions: TRadioGroup;
	comboModel: TComboBox;
	pnlBottom: TPanel;
	pnlTop: TPanel;
	FEdgeEdits: TList;
	FShapeFileName: string;
	FLocalGrid: TCustomModelGrid;
	FLayerLimit: Integer;
	FFields: TStringList;
	FNames: TStringList;
	FShapeDataBase: TXBase;
	FShapeType: Integer;
	FShapeFileWriter: TShapefileGeometryWriter;
	FGettingData: Boolean;
	FLocalMesh: TSutraMesh3D;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure FormDestroy(Sender: TObject); override;
	procedure tvExportItemsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure seTimeCountChange(Sender: TObject);
	procedure rdgTimeSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure btnOKClick(Sender: TObject);
	procedure GetDataSets;
	procedure GetBoundaryConditions;
	procedure UpdateParentNodeStates;
	procedure UpdateEnabledControls;
	procedure GetData;
	procedure InitializeNodeStates;
	procedure InitializeFileNames;
	procedure ReadSelectedTimes;
	procedure SetData;
	procedure ExportNodeShapes(DataSets, TimeLists: TList);
	procedure ExportElementShapes(DataSets, TimeLists: TList);
	procedure ExportHfbShapes(Edits: TList);
	procedure Assign2DShapeGeometry(Shape: TShapeObject; ColIndex, RowIndex: Integer; EvaluatedAt: TEvaluatedAt);
	function GetShapeType: Integer;
	procedure GetFieldNames(Names, Fields: TStringList; LayerLimit: Integer; TimeLists, DataSets: TList; EvaluatedAt: TEvaluatedAt);
	procedure InitializeControls;
	procedure Assign2DID_Fields(ID, ColIndex, RowIndex: Integer; ShapeDataBase: TXBase; EvaluatedAt: TEvaluatedAt);
	procedure Assign2DDataSetValuesToDataBase(DataSets: TList; DataSetIndex: Integer; Names: TStringList; LayerLimit, ColIndex, RowIndex: integer; ShapeDataBase: TXBase);
	procedure Export2DNodeShapes(DataSets: TList);
	procedure Export3DNodeShapes(DataSets: TList);
	procedure Assign3DShapeGeometry(Shape: TShapeObject; ColIndex, RowIndex, LayerIndex: Integer; EvaluatedAt: TEvaluatedAt);
	procedure Assign3DID_Fields(ID, ColIndex, RowIndex, LayerIndex: Integer; ShapeDataBase: TXBase; EvaluatedAt: TEvaluatedAt);
	procedure Assign3DDataSetValuesToDataBase(DataSets: TList; DataSetIndex: Integer; Names: TStringList; ColIndex, RowIndex, LayerIndex: integer; ShapeDataBase: TXBase);
	procedure Export2DElementShapes(DataSets: TList);
	procedure Export3DElementShapes(DataSets: TList);
	procedure GetModels;

Description

Fields

	tvExportItems: TTreeView;

	rdgTime: TRbwDataGrid4;

	seTimeCount: TJvSpinEdit;

	jfeElements: TJvFilenameEdit;

	jfeNodes: TJvFilenameEdit;

	jfeHorizontalFlowBarrier: TJvFilenameEdit;

	btnCancel: TBitBtn;

	btnOK: TBitBtn;

	btnHelp: TBitBtn;

	lblExportItems: TLabel;

	lblTime: TLabel;

	lblTimeCount: TLabel;

	lblElements: TLabel;

	lblNodes: TLabel;

	lblHorizontalFlowBarrier: TLabel;

	ilCheckImages: TImageList;

	rgExportObjectType: TRadioGroup;

	rgHfbDimensions: TRadioGroup;

	comboModel: TComboBox;

	pnlBottom: TPanel;

	pnlTop: TPanel;

	FEdgeEdits: TList;

	FShapeFileName: string;

	FLocalGrid: TCustomModelGrid;

	FLayerLimit: Integer;

	FFields: TStringList;

	FNames: TStringList;

	FShapeDataBase: TXBase;

	FShapeType: Integer;

	FShapeFileWriter: TShapefileGeometryWriter;

	FGettingData: Boolean;

	FLocalMesh: TSutraMesh3D;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure FormDestroy(Sender: TObject); override;

	procedure tvExportItemsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

	procedure seTimeCountChange(Sender: TObject);

	procedure rdgTimeSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

	procedure btnOKClick(Sender: TObject);

	procedure GetDataSets;

	procedure GetBoundaryConditions;

	procedure UpdateParentNodeStates;

	procedure UpdateEnabledControls;

	procedure GetData;

	procedure InitializeNodeStates;

	procedure InitializeFileNames;

	procedure ReadSelectedTimes;

	procedure SetData;

	procedure ExportNodeShapes(DataSets, TimeLists: TList);

	procedure ExportElementShapes(DataSets, TimeLists: TList);

	procedure ExportHfbShapes(Edits: TList);

	procedure Assign2DShapeGeometry(Shape: TShapeObject; ColIndex, RowIndex: Integer; EvaluatedAt: TEvaluatedAt);

	function GetShapeType: Integer;

	procedure GetFieldNames(Names, Fields: TStringList; LayerLimit: Integer; TimeLists, DataSets: TList; EvaluatedAt: TEvaluatedAt);
A side effect of GetFieldNames is to add the data sets in the TCustomTimeLists in "TimeLists" to "DataSets".

	procedure InitializeControls;

	procedure Assign2DID_Fields(ID, ColIndex, RowIndex: Integer; ShapeDataBase: TXBase; EvaluatedAt: TEvaluatedAt);

	procedure Assign2DDataSetValuesToDataBase(DataSets: TList; DataSetIndex: Integer; Names: TStringList; LayerLimit, ColIndex, RowIndex: integer; ShapeDataBase: TXBase);

	procedure Export2DNodeShapes(DataSets: TList);

	procedure Export3DNodeShapes(DataSets: TList);

	procedure Assign3DShapeGeometry(Shape: TShapeObject; ColIndex, RowIndex, LayerIndex: Integer; EvaluatedAt: TEvaluatedAt);

	procedure Assign3DID_Fields(ID, ColIndex, RowIndex, LayerIndex: Integer; ShapeDataBase: TXBase; EvaluatedAt: TEvaluatedAt);

	procedure Assign3DDataSetValuesToDataBase(DataSets: TList; DataSetIndex: Integer; Names: TStringList; ColIndex, RowIndex, LayerIndex: integer; ShapeDataBase: TXBase);

	procedure Export2DElementShapes(DataSets: TList);

	procedure Export3DElementShapes(DataSets: TList);

	procedure GetModels;