Farbwähler Control

[venice2]

Einfaches Farbwähler Control mit dem man die Blur und Transparente Farbe des Caption ändern kann.

Delphi-Quellcode:

  ClPicker := CTRL_ColorPickerCreate;
  ClPicker.Left  := 120;
  ClPicker.Width := 200;
  ClPicker.Height := 15;
  ClPicker.Top := YMIN_SIZE - 105;
  ClPicker.DlgItemID := ID_CLPICKER;
  ClPicker.ColorLabel := SKAERO_COLORLABEL;
  SKAERO_SplitColorARGB(SKAERO_AEROCOLOR, Alpha, Red, Green, Blue);
  ClPicker.UseColor := SKAERO_RGBtoHEX(RGB(Red, Green, Blue));
  ClPicker.ColorImg := SKAERO_FOLDER + 'color190.bmp';
  ClPicker.PipetteCursor := SKAERO_FOLDER + 'pipette.cur';
  ClPicker.DropDownImg := SKAERO_FOLDER + 'BTN_DropDown.png';
  ClPicker.CreateWindow(hMain);
  SKAERO_SetAnchorMode(ClPicker.Handle, ANCHOR_BOTTOM);
  SKAERO_SetZorder(ClPicker.Handle, HWND_TOP);