Class TfrmImportTprogs

DescriptionHierarchyFieldsMethodsProperties

Unit

frmImportTprogsUnit

Declaration

type TfrmImportTprogs = class(TfrmCustomGoPhast)

Description

no description available, TfrmCustomGoPhast description follows

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

Overview

Fields

Implicit fedTprogs: TJvFilenameEdit;
Implicit lblTprogs: TLabel;
Implicit rdeXOrigin: TRbwDataEntry;
Implicit lblXOrigin: TLabel;
Implicit rdeDeltaX: TRbwDataEntry;
Implicit lblDeltaX: TLabel;
Implicit lblYOrigin: TLabel;
Implicit lblDeltaY: TLabel;
Implicit rdeYOrigin: TRbwDataEntry;
Implicit rdeDeltaY: TRbwDataEntry;
Implicit lblZOrigin: TLabel;
Implicit lblDeltaZ: TLabel;
Implicit rdeZOrigin: TRbwDataEntry;
Implicit rdeDeltaZ: TRbwDataEntry;
Implicit lblAngle: TLabel;
Implicit rdeAngle: TRbwDataEntry;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit btnCancel: TBitBtn;
Implicit cbVisible: TCheckBox;
Implicit rgDataType: TRadioGroup;
Implicit rgFileType: TRadioGroup;
Implicit rgEvaluatedAt: TRadioGroup;
Private NCOL: integer;
Private NROW: integer;
Private NLAY: integer;
Private RealData: array of array of array of single;
Private IntegerData: array of array of array of integer;
Private XYArray: array of array of TPoint2D;
Private ZArray: TOneDRealArray;
Private FDataSets: TList;
Private NewDataSetName3D: string;

Methods

Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure FormDestroy(Sender: TObject); override;
Private procedure GetData;
Private procedure SetData;
Private function ReadTProgFile: boolean;
Private procedure MakeNewDataSets(NewDataSets: TList);
Private procedure MakeNewScreenObject(ScreenObjectList: TList);

Description

Fields

Implicit fedTprogs: TJvFilenameEdit;
 
Implicit lblTprogs: TLabel;
 
Implicit rdeXOrigin: TRbwDataEntry;
 
Implicit lblXOrigin: TLabel;
 
Implicit rdeDeltaX: TRbwDataEntry;
 
Implicit lblDeltaX: TLabel;
 
Implicit lblYOrigin: TLabel;
 
Implicit lblDeltaY: TLabel;
 
Implicit rdeYOrigin: TRbwDataEntry;
 
Implicit rdeDeltaY: TRbwDataEntry;
 
Implicit lblZOrigin: TLabel;
 
Implicit lblDeltaZ: TLabel;
 
Implicit rdeZOrigin: TRbwDataEntry;
 
Implicit rdeDeltaZ: TRbwDataEntry;
 
Implicit lblAngle: TLabel;
 
Implicit rdeAngle: TRbwDataEntry;
 
Implicit btnHelp: TBitBtn;
 
Implicit btnOK: TBitBtn;
 
Implicit btnCancel: TBitBtn;
 
Implicit cbVisible: TCheckBox;
 
Implicit rgDataType: TRadioGroup;
 
Implicit rgFileType: TRadioGroup;
 
Implicit rgEvaluatedAt: TRadioGroup;
 
Private NCOL: integer;
 
Private NROW: integer;
 
Private NLAY: integer;
 
Private RealData: array of array of array of single;
 
Private IntegerData: array of array of array of integer;
 
Private XYArray: array of array of TPoint2D;
 
Private ZArray: TOneDRealArray;
 
Private FDataSets: TList;
 
Private NewDataSetName3D: string;
 

Methods

Implicit procedure FormCreate(Sender: TObject); override;
 
Implicit procedure btnOKClick(Sender: TObject);
 
Implicit procedure FormDestroy(Sender: TObject); override;
 
Private procedure GetData;
 
Private procedure SetData;
 
Private function ReadTProgFile: boolean;
 
Private procedure MakeNewDataSets(NewDataSets: TList);
 
Private procedure MakeNewScreenObject(ScreenObjectList: TList);
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:41:38