TOfficeMoreColorsWin

type TOfficeMoreColorsWin = class(TForm)

  Bevel2: TBevel;

  BTrackbar: TBColorPicker;

  Bevel1: TBevel;

  EdGREEN: TSpinEdit;

  EdBLUE: TSpinEdit;

  EdHUE: TSpinEdit;

  EdSAT: TSpinEdit;

  EdLUMVAL: TSpinEdit;

  GTrackbar: TGColorPicker;

  HSLRing: THSLRingPicker;

  LblR: TLabel;

  LblG: TLabel;

  LblB: TLabel;

  LblCurrent: TLabel;

  LblLumVal: TLabel;

  LblSat: TLabel;

  LblHue: TLabel;

  nbRGB: TPage;

  Panel1: TPanel;

  SidePanel: TPanel;

  PickerNotebook: TNotebook;

  nbHSL: TPage;

  nbHSLRing: TPage;

  nbSLH: TPage;

  Pages: TPageControl;

  RTrackbar: TRColorPicker;

  SLH: TSLHColorPicker;

  EdRED: TSpinEdit;

  Standard: TTabSheet;

  Custom: TTabSheet;

  Hexa: THexaColorPicker;

  HSL: THSLColorPicker;

  LblCustomColors: TLabel;

  LblStandardColors: TLabel;

  LblPicker: TLabel;

  cbColorDisplay: TComboBox;

  LblRed: TLabel;

  LblGreen: TLabel;

  LblBlue: TLabel;

  Label4: TLabel;

  Label5: TLabel;

  BtnOK: TButton;

  BtnCancel: TButton;

  NewSwatch: TmbColorPreview;

  OldSwatch: TmbColorPreview;

  procedure cbColorDisplayChange();

  procedure ColorPickerChange();

  procedure EdBlueChange();

  procedure EdGreenChange();

  procedure EdHueChange();

  procedure EdLumValChange();

  procedure EdRedChange();

  procedure EdSatChange();

  procedure FormCreate();

  procedure FormKeyDown();

  procedure FormResize();

  procedure FormShow();

  function GetHint();

  procedure HexaChange();

  procedure HSLChange();

  procedure HSLRingChange();

  procedure nbHSLRingResize();

  procedure NewSwatchColorChange();

  procedure OldSwatchColorChange();

  procedure PagesChange();

  procedure PagesChanging();

  procedure SLHChange();

protected

  procedure BeginUpdate;

  procedure CreateParams(); override;

  procedure EndUpdate;

public

  property PickerIndex: Integer; [rw]

  property SelectedColor: TColor; [rw]

  property MaxHue: Integer; [rw]

  property MaxSaturation: Integer; [rw]

  property MaxLuminance: Integer; [rw]

  property MaxValue: Integer; [rw]

published

  property ShowHint: Boolean; [rw]

end;

TOfficeMoreColorsWin

TObject