TIEColorPalette.ColorUnderCursor

Declaration

property ColorUnderCursor: TColor;

Description

Returns the color of the cell that is currently under the cursor.
If nothing is under the cursor, clNone is returned.

Read-only

Example

procedure TForm1.ColorPalette1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
// Show the color under the cursor
pnlHoverColor.ParentBackground := False;
pnlHoverColor.Color := ColorPalette1.SelectedColor;
end;

---