TIEColorPalette.IndexUnderCursor

Declaration

property IndexUnderCursor: integer; (Read-Only)

Description

Returns the index of the color cell that is currently under the cursor.

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;

---