Class TfrmModflowNameFile

Unit

frmModflowNameFileUnit

Declaration

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

Overview

Fields

	pnlMain: TPanel;
	lblLines: TLabel;
	memoLines: TMemo;
	cbFlowPackage: TCheckBox;
	cbSolvers: TCheckBox;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	pnlModel: TPanel;
	comboModel: TComboBox;
	lblModel: TLabel;
	FSettings: TNameFileSettingsCollection;
	FCurrentSettings: TNameFileSettings;
	FCreating: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure comboModelChange(Sender: TObject);
	procedure FormDestroy(Sender: TObject); override;
	procedure SetCurrentSettings(const Value: TNameFileSettings);
	procedure GetData;
	procedure SetData;

Properties

property CurrentSettings: TNameFileSettings read FCurrentSettings write SetCurrentSettings;

Description

Fields

	pnlMain: TPanel;

	lblLines: TLabel;

	memoLines: TMemo;

	cbFlowPackage: TCheckBox;

	cbSolvers: TCheckBox;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	pnlModel: TPanel;

	comboModel: TComboBox;

	lblModel: TLabel;

	FSettings: TNameFileSettingsCollection;

	FCurrentSettings: TNameFileSettings;

	FCreating: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure comboModelChange(Sender: TObject);

	procedure FormDestroy(Sender: TObject); override;

	procedure SetCurrentSettings(const Value: TNameFileSettings);

	procedure GetData;

	procedure SetData;

Properties

	property CurrentSettings: TNameFileSettings read FCurrentSettings write SetCurrentSettings;