TfpgColorWheel

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

A colorwheel component.

Declaration

Source position: fpg_colorwheel.pas line 32

`type TfpgColorWheel = class(TfpgWidget)`
`protected`
`FValueBar: TfpgValueBar;`
`FHue: LongInt;`
`FSaturation: double;`
`FMarginWidth: LongInt;`
`FCursorSize: LongInt;`
`FWhiteAreaPercent: LongInt;`
`FOnChange: TNotifyEvent;`
`FImage: TfpgImage;`
`FRecalcWheel: Boolean;`
`procedure HSFromPoint();`
`procedure DrawCursor;`
`procedure SetMarginWidth();`
`procedure SetCursorSize();`
`procedure SetValueBar();`
`procedure SetWhiteAreaPercent();`
`procedure SetBackgroundColor(); override;`
`procedure Notification(); override;`
`function DrawWidth;`
`function DrawHeight;`
`procedure Change;`
`procedure HandlePaint; override;`
`procedure HandleLMouseDown(); override;`
`procedure HandleMouseMove(); override;`
`procedure HandleLMouseUp(); override;`
`public`
`constructor Create(); override;`
`destructor Destroy; override;`
`property Hue: LongInt; [r]`		Hue value of selected color.
`property Saturation: double; [r]`		Saturation value of selected color.
`procedure SetSelectedColor();`		Sets a new color value programatically.
`published`
`property Align;`
`property BackgroundColor;`
`property Enabled;`
`property ValueBar: TfpgValueBar; [rw]`		Used to link the ColorWheel to the ValueBar component.
`property MarginWidth: LongInt; [rw]`		The width of the black area around the wheel.
`property CursorSize: LongInt; [rw]`		Size of the crosshair.
`property WhiteAreaPercent: LongInt; [rw]`		The percentage from the centre of the wheel.
`property OnChange: TNotifyEvent; [rw]`		This event is triggered when a new color has been selected in the wheel.
`end;`

Inheritance

`TfpgColorWheel`		A colorwheel component.
\|
`TfpgWidget`
?
`TObject`

Description

This component draws a ColorWheel at runtime. This allows the user to select the Hue and Saturation values in the HSV color range.