Class TfrmImportDXF

Properties

Unit

frmImportDXFUnit

Declaration

type TfrmImportDXF = class(TfrmCustomGoPhast)

Description

TfrmImportDXF is used to import DXF files into GoPhast.

See miImportDXFFileClick.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmImportDXF

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`cbEnclosedCells: TCheckBox;`
	`cbInterpolation: TCheckBox;`
	`cbIntersectedCells: TCheckBox;`
	`comboDataSets: TComboBox;`
	`comboInterpolators: TComboBox;`
	`lblDataSet: TLabel;`
	`lblInterpolator: TLabel;`
	`OpenDialogDXF: TOpenDialog;`
	`rgEvaluatedAt: TRadioGroup;`
	`FDxfObject: DXF_Object;`

Methods

	`procedure btnOKClick(Sender: TObject);`
	`procedure cbEnclosedCellsClick(Sender: TObject);`
	`procedure comboDataSetsChange(Sender: TObject);`
	`procedure comboInterpolatorsChange(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormDestroy(Sender: TObject);`
	`procedure rgEvaluatedAtClick(Sender: TObject);`
	`function CoordConvert(P: Point3D; OCS: pMatrix): Point3D;`
	`procedure GetDataSets;`
	`procedure GetInterpolators;`
	`procedure MakeNewDataSet;`
	`procedure SetCheckBoxCaptions;`
	`procedure SetData;`
	`procedure Think(const Sender: TObject; Message: string);`
	`function GetData: boolean;`

Description

Fields

	`btnCancel: TBitBtn;`
`btnCancel`: TBitBtn; Clicking `btnCancel` closes `TfrmImportDXF` without doing anything.

	`btnHelp: TBitBtn;`
`btnHelp`: TBitBtn; Clicking `btnHelp` displays help about `TfrmImportDXF`.

	`btnOK: TBitBtn;`
`btnOK`: TBitBtn; See btnOKClick.

	`cbEnclosedCells: TCheckBox;`
`cbEnclosedCells`: TCheckBox; `cbEnclosedCells` indicates that the value of the imported TScreenObjects should set the value of enclosed cells or elements in the related TDataArray.

	`cbInterpolation: TCheckBox;`
`cbInterpolation`: TCheckBox; `cbInterpolation` indicates that the value of the imported TScreenObjects should set the value of cells or elements in the related TDataArray by interpolation.

	`cbIntersectedCells: TCheckBox;`
`cbIntersectedCells`: TCheckBox; `cbIntersectedCells` indicates that the value of the imported TScreenObjects should set the value of intersected cells or elements in the related TDataArray.

	`comboDataSets: TComboBox;`
`comboDataSets`: TComboBox; `comboDataSets` is used to select the name of the TDataArray to be affected by the imported TScreenObjects.

	`comboInterpolators: TComboBox;`
`comboInterpolators`: TComboBox; `comboInterpolators` is the name of the TCustom2DInterpolater that will be used with a new TDataArray.

	`lblDataSet: TLabel;`
`lblDataSet`: TLabel; `lblDataSet` displays "Data Set".

	`lblInterpolator: TLabel;`
`lblInterpolator`: TLabel; `lblInterpolator` displays "Interpolator".

	`OpenDialogDXF: TOpenDialog;`
`OpenDialogDXF`: TOpenDialog; `OpenDialogDXF` is used to select the DXF file.

	`rgEvaluatedAt: TRadioGroup;`
`rgEvaluatedAt`: TRadioGroup; `rgEvaluatedAt` indicates whether a new data set will be evaluated at elements or cells.

	`FDxfObject: DXF_Object;`
`FDxfObject`: DXF_Object; `FDxfObject` represents the contents of the DXF file. DXF_Object is defined in DXF_Structs.

Methods

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` calls SetData.

	`procedure cbEnclosedCellsClick(Sender: TObject);`
`cbEnclosedCellsClick` makes sure that at least one of the following checkboxes is checked: cbEnclosedCells, cbIntersectedCells, and cbInterpolation. If not, their fonts are changed to emphasize them and btnOK is disabled.

	`procedure comboDataSetsChange(Sender: TObject);`
`comboDataSetsChange` enables or disables comboInterpolators depending on whether a new TDataArray is to be created. comboInterpolators will be enabled if a new TDataArray is to be created.

	`procedure comboInterpolatorsChange(Sender: TObject);`
`comboInterpolatorsChange` enables cbInterpolation if an interpolator is specified.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` calls GetInterpolators.

	`procedure FormDestroy(Sender: TObject);`
`FormDestroy` frees FDxfObject.

	`procedure rgEvaluatedAtClick(Sender: TObject);`
`rgEvaluatedAtClick` changes the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation.

	`function CoordConvert(P: Point3D; OCS: pMatrix): Point3D;`
`CoordConvert` is used to transform the coordinates of P based on OCS.

	`procedure GetDataSets;`
`GetDataSets` fills comboDataSets with the names of TDataArrays that can be used the the imported TScreenObjects.

	`procedure GetInterpolators;`
`GetInterpolators` fills comboInterpolators with a list of TCustom2DInterpolaters.

	`procedure MakeNewDataSet;`
`MakeNewDataSet` creates a new TDataArray.

	`procedure SetCheckBoxCaptions;`
Set the captions of cbEnclosedCells, cbIntersectedCells, and cbInterpolation based on rgEvaluatedAt.ItemIndex.

	`procedure SetData;`
`SetData` converts the entities from FDxfObject to TScreenObjects.

	`procedure Think(const Sender: TObject; Message: string);`
`Think` is used to update frmProgress.

	`function GetData: boolean;`
`GetData` is used to open and read a DXF file. It returns `True` if it was able to do so and the file contains something it can use.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:36