Class TfrmSutraLayers

Unit

frmSutraLayersUnit

Declaration

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

Overview

Fields

	pnl1: TPanel;
	tvLayerGroups: TTreeView;
	pnlTop: TPanel;
	pnlMain: TPanel;
	lbl1: TLabel;
	edName: TRbwEdit;
	frameDiscretization: TframeDiscretization;
	pnl2: TPanel;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	sbAddUnit: TSpeedButton;
	sbInsertUnit: TSpeedButton;
	sbDeleteUnit: TSpeedButton;
	spl1: TSplitter;
	FLayerStructure: TSutraLayerStructure;
	FSelectedUnits: TList;
	FSelectedTreeNodes: TList;
	FSettingUnit: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure FormDestroy(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure tvLayerGroupsChange(Sender: TObject; Node: TTreeNode);
	procedure sbAddUnitClick(Sender: TObject);
	procedure sbInsertUnitClick(Sender: TObject);
	procedure sbDeleteUnitClick(Sender: TObject);
	procedure edNameChange(Sender: TObject);
	procedure GetData;
	Procedure SetData;
	procedure UpdateSelectedUnits;
	procedure SetControlValues;
	function AddNewUnit(Position: integer): TTreeNode;
	procedure EnableOkButton;
	procedure UpdateDiscretization;

Description

Fields

	pnl1: TPanel;

	tvLayerGroups: TTreeView;

	pnlTop: TPanel;

	pnlMain: TPanel;

	lbl1: TLabel;

	edName: TRbwEdit;

	frameDiscretization: TframeDiscretization;

	pnl2: TPanel;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	sbAddUnit: TSpeedButton;

	sbInsertUnit: TSpeedButton;

	sbDeleteUnit: TSpeedButton;

	spl1: TSplitter;

	FLayerStructure: TSutraLayerStructure;

	FSelectedUnits: TList;

	FSelectedTreeNodes: TList;

	FSettingUnit: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure FormDestroy(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure tvLayerGroupsChange(Sender: TObject; Node: TTreeNode);

	procedure sbAddUnitClick(Sender: TObject);

	procedure sbInsertUnitClick(Sender: TObject);

	procedure sbDeleteUnitClick(Sender: TObject);

	procedure edNameChange(Sender: TObject);

	procedure GetData;

	Procedure SetData;

	procedure UpdateSelectedUnits;

	procedure SetControlValues;

	function AddNewUnit(Position: integer): TTreeNode;

	procedure EnableOkButton;

	procedure UpdateDiscretization;