Class TfrmSpecifyContours

Unit

frmSpecifyContoursUnit

Declaration

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

Overview

Fields

	pnlBottom: TPanel;
	btnCancel: TBitBtn;
	btnOK: TBitBtn;
	btnHelp: TBitBtn;
	rdgContourData: TRbwDataGrid4;
	GridPanel1: TGridPanel;
	sbAddRow: TSpeedButton;
	sbInsertRow: TSpeedButton;
	sbDeleteRow: TSpeedButton;
	seRowCount: TJvSpinEdit;
	lblRowCount: TLabel;
	clrDlg: TJvColorDialog;
	cbAutomaticColors: TJvCheckBox;
	Panel1: TPanel;
	rdeLineThickness: TRbwDataEntry;
	FContourColors: TColorParameters;
	FLogTransform: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure rdgContourDataBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
	procedure rdgContourDataButtonClick(Sender: TObject; ACol, ARow: Integer);
	procedure seRowCountChange(Sender: TObject);
	procedure rdgContourDataSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure rdgContourDataEndUpdate(Sender: TObject);
	procedure sbAddRowClick(Sender: TObject);
	procedure sbInsertRowClick(Sender: TObject);
	procedure sbDeleteRowClick(Sender: TObject);
	procedure cbAutomaticColorsClick(Sender: TObject);
	procedure rdgContourDataColSize(Sender: TObject; ACol, PriorWidth: Integer);
	procedure rdgContourDataHorizontalScroll(Sender: TObject);
	procedure rdeLineThicknessChange(Sender: TObject);
	procedure rdgContourDataMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure FormDestroy(Sender: TObject); override;
	procedure UpdateRowCount;
	procedure ArrangeControls;
	procedure FillThicknessCells;
	procedure NumberGrid;
	procedure GetData(Contours: TContours; ColorScheme, ColorCycles: integer; ColorExponent: real; LogTransform: boolean);
	procedure SetData(var Contours: TContours);

Description

Fields

	pnlBottom: TPanel;

	btnCancel: TBitBtn;

	btnOK: TBitBtn;

	btnHelp: TBitBtn;

	rdgContourData: TRbwDataGrid4;

	GridPanel1: TGridPanel;

	sbAddRow: TSpeedButton;

	sbInsertRow: TSpeedButton;

	sbDeleteRow: TSpeedButton;

	seRowCount: TJvSpinEdit;

	lblRowCount: TLabel;

	clrDlg: TJvColorDialog;

	cbAutomaticColors: TJvCheckBox;

	Panel1: TPanel;

	rdeLineThickness: TRbwDataEntry;

	FContourColors: TColorParameters;

	FLogTransform: Boolean;

Methods

	procedure FormCreate(Sender: TObject); override;

	procedure rdgContourDataBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);

	procedure rdgContourDataButtonClick(Sender: TObject; ACol, ARow: Integer);

	procedure seRowCountChange(Sender: TObject);

	procedure rdgContourDataSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

	procedure rdgContourDataEndUpdate(Sender: TObject);

	procedure sbAddRowClick(Sender: TObject);

	procedure sbInsertRowClick(Sender: TObject);

	procedure sbDeleteRowClick(Sender: TObject);

	procedure cbAutomaticColorsClick(Sender: TObject);

	procedure rdgContourDataColSize(Sender: TObject; ACol, PriorWidth: Integer);

	procedure rdgContourDataHorizontalScroll(Sender: TObject);

	procedure rdeLineThicknessChange(Sender: TObject);

	procedure rdgContourDataMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

	procedure FormDestroy(Sender: TObject); override;

	procedure UpdateRowCount;

	procedure ArrangeControls;

	procedure FillThicknessCells;

	procedure NumberGrid;

	procedure GetData(Contours: TContours; ColorScheme, ColorCycles: integer; ColorExponent: real; LogTransform: boolean);
Private declarations

	procedure SetData(var Contours: TContours);