Class TfrmScaleRotateMove

Unit

frmScaleRotateMoveUnit

Declaration

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

Overview

Fields

	gbScale: TJvGroupBox;
	gbRotate: TJvGroupBox;
	gbMove: TJvGroupBox;
	rdeXScale: TRbwDataEntry;
	lblXScale: TLabel;
	cbLockAspectRatio: TCheckBox;
	lblYScale: TLabel;
	rdeYScale: TRbwDataEntry;
	lblAngle: TLabel;
	rdeAngle: TRbwDataEntry;
	lblMoveX: TLabel;
	rdeMoveX: TRbwDataEntry;
	lblMoveY: TLabel;
	rdeMoveY: TRbwDataEntry;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	gbCenter: TGroupBox;
	comboCenterOfRotation: TJvImageComboBox;
	lblXCenter: TLabel;
	rdeXCenter: TRbwDataEntry;
	lblYCenter: TLabel;
	rdeYCenter: TRbwDataEntry;
	FViewDirection: TViewDirection;

Methods

	procedure rdeXScaleChange(Sender: TObject);
	procedure cbLockAspectRatioClick(Sender: TObject);
	procedure FormCreate(Sender: TObject); override;
	procedure EnableOk(Sender: TObject);
	procedure comboCenterOfRotationChange(Sender: TObject);
	procedure btnOKClick(Sender: TObject);
	procedure rdeAngleChange(Sender: TObject);
	procedure rdeMoveXChange(Sender: TObject);
	procedure rdeMoveYChange(Sender: TObject);
	procedure SetViewDirection(const Value: TViewDirection);
	procedure EnableRotationCenterControls;
	procedure EnableOkButton;

Properties

property ViewDirection: TViewDirection read FViewDirection write SetViewDirection;

Description

Fields

	gbScale: TJvGroupBox;

	gbRotate: TJvGroupBox;

	gbMove: TJvGroupBox;

	rdeXScale: TRbwDataEntry;

	lblXScale: TLabel;

	cbLockAspectRatio: TCheckBox;

	lblYScale: TLabel;

	rdeYScale: TRbwDataEntry;

	lblAngle: TLabel;

	rdeAngle: TRbwDataEntry;

	lblMoveX: TLabel;

	rdeMoveX: TRbwDataEntry;

	lblMoveY: TLabel;

	rdeMoveY: TRbwDataEntry;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	gbCenter: TGroupBox;

	comboCenterOfRotation: TJvImageComboBox;

	lblXCenter: TLabel;

	rdeXCenter: TRbwDataEntry;

	lblYCenter: TLabel;

	rdeYCenter: TRbwDataEntry;

	FViewDirection: TViewDirection;
FScaleOnClick: TNotifyEvent; FRotateOnClick: TNotifyEvent; FMoveOnClick: TNotifyEvent;

Methods

	procedure rdeXScaleChange(Sender: TObject);

	procedure cbLockAspectRatioClick(Sender: TObject);

	procedure FormCreate(Sender: TObject); override;

	procedure EnableOk(Sender: TObject);

	procedure comboCenterOfRotationChange(Sender: TObject);

	procedure btnOKClick(Sender: TObject);

	procedure rdeAngleChange(Sender: TObject);

	procedure rdeMoveXChange(Sender: TObject);

	procedure rdeMoveYChange(Sender: TObject);

	procedure SetViewDirection(const Value: TViewDirection);

	procedure EnableRotationCenterControls;

	procedure EnableOkButton;

Properties

	property ViewDirection: TViewDirection read FViewDirection write SetViewDirection;