[Overview][Classes][Index] |
[Properties (by Name)] [Methods (by Name)] [Events (by Name)]
A ValueBar component.
Source position: fpg_colorwheel.pas line 76
type TfpgValueBar = class(TfpgWidget) |
||
protected |
||
FHue: LongInt; |
||
FSaturation: double; |
||
FValue: double; |
||
FMarginWidth: LongInt; |
||
FCursorHeight: LongInt; |
||
FOnChange: TNotifyEvent; |
||
procedure DrawCursor; |
||
procedure SetMarginWidth(); |
||
procedure SetValue(); |
||
procedure SetCursorHeight(); |
||
function GetSelectedColor; |
||
procedure Change; |
||
function DrawWidth; |
||
function DrawHeight; |
||
function ValueFromY(); |
||
procedure DrawLine(); |
||
procedure HandlePaint; override; |
||
procedure HandleLMouseDown(); override; |
||
procedure HandleMouseMove(); override; |
||
procedure HandleLMouseUp(); override; |
||
public |
||
constructor Create(); override; |
||
procedure SetHS(); |
|
Sets the Hue and Saturation values. |
published |
||
property Align; |
||
property BackgroundColor; |
||
property Enabled; |
||
property Value: double; [rw] |
|
Currently selected Value |
property SelectedColor: TfpgColor; [r] |
|
The selected HSV color but in TfpgColor format. |
property MarginWidth: LongInt; [rw] |
|
Margin width around the ValueBar. |
property CursorHeight: LongInt; [rw] |
|
The height of the selection cursor. |
property OnChange: TNotifyEvent; [rw] |
|
Event is triggered when a new color is selected. |
end; |
|
A ValueBar component. |
|
| | ||
TfpgWidget |
||
? | ||
TObject |
At runtime, this component draws a ValueBar. It allows the user to select the brightness (Value) color in the HSV colorspace. This components works with the TfpgColorWheel component to set the full HSV color values.