Class TfmHeightField

Unit

Declaration

type TfmHeightField = class()

Description

Fields

	Name	Description
	btnRun
	Camera
	cbAxis
	cbColorMode
	cbGrid
	cbLighting
	FocusCube
	GLScene
	GLSceneViewer
	Grid
	HeatField
	LabelOpacity
	Light
	LightCube
	Panel3
	Panel4
	tbAlpha
	XAxis
	YAxis

Methods

Overview

	procedure Advance;
	procedure btnRunClick(Sender: TObject);
	procedure cbAxisClick(Sender: TObject);
	procedure cbColorModeChange(Sender: TObject);
	procedure cbGridClick(Sender: TObject);
	procedure cbLightingClick(Sender: TObject);
	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
	procedure FormCreate(Sender: TObject);
	procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
	procedure FormShow(Sender: TObject);
	procedure GLSceneViewerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure GLSceneViewerMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure HeatFormula(const x, y: Single; var z: Single; var color: TColorVector; var texPoint: TTexPoint);
	procedure HumidityFormula(const x, y: Single; var z: Single; var color: TColorVector; var texPoint: TTexPoint);
	procedure tbAlphaChange(Sender: TObject);

Description

procedure Advance;

Public declarations

procedure btnRunClick(Sender: TObject);

procedure cbAxisClick(Sender: TObject);

procedure cbColorModeChange(Sender: TObject);

procedure cbGridClick(Sender: TObject);

procedure cbLightingClick(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure FormCreate(Sender: TObject);

procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

procedure FormShow(Sender: TObject);

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

procedure GLSceneViewerMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure HeatFormula(const x, y: Single; var z: Single; var color: TColorVector; var texPoint: TTexPoint);

procedure HumidityFormula(const x, y: Single; var z: Single; var color: TColorVector; var texPoint: TTexPoint);

procedure tbAlphaChange(Sender: TObject);