Class TfrmFishnetElementProperties

Unit

frmFishnetElementPropertiesUnit

Declaration

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

Overview

Fields

	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	pc1: TPageControl;
	tabFirst: TTabSheet;
	tabSecond: TTabSheet;
	tabCornerCoordinates: TTabSheet;
	rdgCornerCoordinates: TRbwDataGrid4;
	frameDiscretization1: TframeDiscretization;
	frameDiscretization2: TframeDiscretization;
	FElement: TFishnetMeshElement;
	FExistingElement: TFishnetMeshElement;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure FormDestroy(Sender: TObject); override;
	procedure SetData;
	procedure GetData(Element: TFishnetMeshElement);

Description

Fields

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	pc1: TPageControl;

	tabFirst: TTabSheet;

	tabSecond: TTabSheet;

	tabCornerCoordinates: TTabSheet;

	rdgCornerCoordinates: TRbwDataGrid4;

	frameDiscretization1: TframeDiscretization;

	frameDiscretization2: TframeDiscretization;

	FElement: TFishnetMeshElement;

	FExistingElement: TFishnetMeshElement;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure FormDestroy(Sender: TObject); override;

	procedure SetData;
Private declarations

	procedure GetData(Element: TFishnetMeshElement);