TIEColorPalette.IndexUnderCursor

Declaration

property IndexUnderCursor: Integer;

Description

Returns the index of the color cell that is currently under the cursor.
If nothing is under the cursor, -1 is returned.

Read-only

Example

procedure TForm1.ColorPalette1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  lblIndex.Caption := 'Index under cursor: ' + IntToStr( ColorPalette1.IndexUnderCursor );
  uc.color := ColorPalette1.ColorUnderCursor;
end;

---