TmbBasicPicker

type TmbBasicPicker = class(TCustomControl)

protected

  FBufferBmp: TBitmap;

  FGradientWidth: Integer;

  FGradientHeight: Integer;

  FHintShown: Boolean;

  procedure CreateGradient; virtual;

  procedure DoChange; virtual;

  function GetGradientColor(); virtual;

  function GetGradientColor2D(); virtual;

  function GetHintPos(); virtual;

  function GetHintStr(); virtual;

  function GetSelectedColor; virtual; abstract;

  procedure PaintParentBack();

  procedure SetSelectedColor(); virtual; abstract;

  procedure CMHintShow(); message;

  procedure CMParentColorChanged(); message;

  property OnChange: TNotifyEvent; [rw]

  property OnGetHintStr: TGetHintStrEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetColorUnderCursor; virtual;

  function GetColorAtPoint(); virtual;

  function GetHexColorAtPoint();

  function GetHexColorUnderCursor; virtual;

  procedure Lock;

  function IsLocked;

  procedure Unlock;

  property ColorUnderCursor: TColor; [r]

published

  property ParentColor;

  property SelectedColor: TColor; [rw]

end;

TmbBasicPicker

TObject