Class TfrmExportCSV

Unit

frmExportCSVUnit

Declaration

type TfrmExportCSV = 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
• TfrmExportCSV

Overview

Fields

	sdSaveCSV: TSaveDialog;
	Panel1: TPanel;
	vstDataSets: TVirtualStringTree;
	rgOrientation: TRadioGroup;
	rgEvaluatedAt: TRadioGroup;
	btnHelp: TBitBtn;
	btnSave: TBitBtn;
	pnlModel: TPanel;
	lblModel: TLabel;
	comboModel: TComboBox;
	FDataSets: TList;
	FFileStream: TFileStream;

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 vstDataSetsGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
	procedure rgOrientationClick(Sender: TObject);
	procedure rgEvaluatedAtClick(Sender: TObject);
	procedure vstDataSetsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
	procedure sdSaveCSVTypeChange(Sender: TObject);
	procedure btnSaveClick(Sender: TObject);
	procedure GetData;
	procedure SetData;
	function SelectDataArrays(DataArray: TDataArray): boolean;
	procedure GetOrientationAndEvalAt(var EvaluatedAt: TEvaluatedAt; var Orientation: TDataSetOrientation);
	procedure WriteString(const Value: String);
	procedure NewLine;

Description

Fields

	sdSaveCSV: TSaveDialog;

	Panel1: TPanel;

	vstDataSets: TVirtualStringTree;

	rgOrientation: TRadioGroup;

	rgEvaluatedAt: TRadioGroup;

	btnHelp: TBitBtn;

	btnSave: TBitBtn;

	pnlModel: TPanel;

	lblModel: TLabel;

	comboModel: TComboBox;

	FDataSets: TList;

	FFileStream: TFileStream;

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 vstDataSetsGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);

	procedure rgOrientationClick(Sender: TObject);

	procedure rgEvaluatedAtClick(Sender: TObject);

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

	procedure sdSaveCSVTypeChange(Sender: TObject);

	procedure btnSaveClick(Sender: TObject);

	procedure GetData;

	procedure SetData;

	function SelectDataArrays(DataArray: TDataArray): boolean;

	procedure GetOrientationAndEvalAt(var EvaluatedAt: TEvaluatedAt; var Orientation: TDataSetOrientation);

	procedure WriteString(const Value: String);

	procedure NewLine;