THSLColorPicker

type THSLColorPicker = class(TmbBasicPicker)

protected

  procedure DoChange; override;

  procedure DoMouseMove();

  function GetColorUnderCursor; override;

  function GetSelectedColor; override;

  procedure HSPickerChange();

  procedure LVPickerChange();

  procedure Paint; override;

  procedure Resize; override;

  procedure SetSelectedColor(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetHexColorUnderCursor; override;

  function GetSelectedHexColor;

  procedure SetFocus; override;

  property ColorUnderCursor: TColor;

  property Red: Integer; [rw]

  property Green: Integer; [rw]

  property Blue: Integer; [rw]

  property RValue: Integer; [rw]

  property GValue: Integer; [rw]

  property BValue: Integer; [rw]

  property RelHue: Double; [rw]

  property RelSaturation: Double; [rw]

  property RelLuminance: Double; [rw]

  property RelValue: Double; [rw]

published

  property BrightnessMode: TBrightnessMode; [rw]

  property Hue: Integer; [rw]

  property Saturation: Integer; [rw]

  property Luminance: Integer; [rw]

  property HValue: Integer; [rw]

  property SValue: Integer; [rw]

  property LValue: Integer; [rw]

  property LVIncrement: Integer; [rw]

  property Value: Integer; [rw]

  property SelectedColor: TColor;

  property HSPickerPopupMenu: TPopupMenu; [rw]

  property LVPickerPopupMenu: TPopupMenu; [rw]

  property HSPickerHintFormat: string; [rw]

  property LPickerHintFormat: string; [rw]

  property VPickerHintFormat: string; [rw]

  property HSPickerCursor: TCursor; [rw]

  property LVPickerCursor: TCursor; [rw]

  property MaxHue: Integer; [rw]

  property MaxSaturation: Integer; [rw]

  property MaxLuminance: Integer; [rw]

  property MaxValue: Integer; [rw]

  property TabStop;

  property ShowHint;

  property ParentShowHint;

  property Anchors;

  property Align;

  property BorderSpacing;

  property Visible;

  property Enabled;

  property TabOrder;

  property Color;

  property ParentColor;

  property OnChange: TNotifyEvent;

  property OnMouseMove;

end;

THSLColorPicker

TmbBasicPicker

TObject