ImageEn, unit iexColorPalette |
|
TIEColorPalette.OnCellClick
Declaration
property OnCellClick: TIECellClickEvent;
Description
Occurs whenever the user clicks a color cell.
Set
Allow to false, if you do not want to allow the selection.
procedure TForm1.ColorPalette1CellClick(Button: TMouseButton; Shift:
TShiftState; Index: Integer; aColor: TColor; var Allow: Boolean);
begin
if aColor = clRed then
// Don't allow red cells to be clicked
Allow := False;
end;