Class TfrmColors

Properties

Unit

Declaration

type TfrmColors = class(TfrmCustomGoPhast)

Description

TfrmColors allows the user to edit the values of ColorValues and thus affect the appearance of the 3D view of the model.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmColors

Overview

Fields

	`btnApply: TButton;`
	`btnClose: TBitBtn;`
	`btnHelp: TBitBtn;`
	`lblAmbient: TLabel;`
	`lblDiffuse: TLabel;`
	`lblLightIntensity: TLabel;`
	`lblLightPosition: TLabel;`
	`lblSpecular: TLabel;`
	`lblX: TLabel;`
	`lblY: TLabel;`
	`lblZ: TLabel;`
	`rdeAmb: TRbwDataEntry;`
	`rdeDiff: TRbwDataEntry;`
	`rdeSpec: TRbwDataEntry;`
	`rdeX: TRbwDataEntry;`
	`rdeY: TRbwDataEntry;`
	`rdeZ: TRbwDataEntry;`
	`Modified: boolean;`

Methods

	`procedure btnApplyClick(Sender: TObject);`
	`procedure FormHide(Sender: TObject);`
	`procedure FormShow(Sender: TObject);`
	`procedure rdeValuesChange(Sender: TObject);`
	`procedure ApplyData;`
	`procedure GetData;`
	`procedure HideMe;`

Description

Fields

	`btnApply: TButton;`
`btnApply`: TButton; See btnApplyClick

	`btnClose: TBitBtn;`
`btnClose`: TBitBtn; `btnClose` closes the dialog box.

	`btnHelp: TBitBtn;`
`btnHelp`: TBitBtn; `btnHelp` shows help for the dialog box.

	`lblAmbient: TLabel;`
`lblAmbient`: TLabel; `lblAmbient` labels the edit box for the ambient light intensity.

	`lblDiffuse: TLabel;`
`lblDiffuse`: TLabel; `lblDiffuse` labels the edit box for the diffuse light intensity.

	`lblLightIntensity: TLabel;`
`lblLightIntensity`: TLabel; `lblLightIntensity` labels group of edit boxes for light intensity.

	`lblLightPosition: TLabel;`
`lblLightPosition`: TLabel; `lblLightPosition` labels group of edit boxes for light position.

	`lblSpecular: TLabel;`
`lblSpecular`: TLabel; `lblSpecular` labels the edit box for the specular light intensity.

	`lblX: TLabel;`
`lblX`: TLabel; `lblX` labels the edit box for the X-coordinate of the light position.

	`lblY: TLabel;`
`lblY`: TLabel; `lblY` labels the edit box for the Y-coordinate of the light position.

	`lblZ: TLabel;`
`lblZ`: TLabel; `lblZ` labels the edit box for the Z-coordinate of the light position.

	`rdeAmb: TRbwDataEntry;`
`rdeAmb`: TRbwDataEntry; `rdeAmb` is the edit box for the ambient light intensity.

	`rdeDiff: TRbwDataEntry;`
`rdeDiff`: TRbwDataEntry; `rdeDiff` is the edit box for the diffuse light intensity.

	`rdeSpec: TRbwDataEntry;`
`rdeSpec`: TRbwDataEntry; `rdeSpec` is the edit box for the specular light intensity.

	`rdeX: TRbwDataEntry;`
`rdeX`: TRbwDataEntry; `rdeX` is the edit box for the X-coordinate of the light position.

	`rdeY: TRbwDataEntry;`
`rdeY`: TRbwDataEntry; `rdeY` is the edit box for the Y-coordinate of the light position.

	`rdeZ: TRbwDataEntry;`
`rdeZ`: TRbwDataEntry; `rdeZ` is the edit box for the Z-coordinate of the light position.

	`Modified: boolean;`
`Modified`: boolean; `Modified` is set to true when the user has changed something is this dialog box.

Methods

	`procedure btnApplyClick(Sender: TObject);`
`btnApplyClick` transfers the data from this `TfrmColors` to ColorValues.

	`procedure FormHide(Sender: TObject);`
`FormHide` asks the user if he want to apply the data before closing the dialog box.

	`procedure FormShow(Sender: TObject);`
`FormShow` reads the values from ColorValues into this `TfrmColors`.

	`procedure rdeValuesChange(Sender: TObject);`
`rdeValuesChange` sets Modified to `True`.

	`procedure ApplyData;`
`ApplyData` copies the data from this `TfrmColors` to ColorValues.

	`procedure GetData;`
`GetData` reads ColorValues and copies those values to the controls in this `TfrmColors`.

	`procedure HideMe;`
`HideMe` closes this `TfrmColors`.

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:34