TIEPaintCellEvent

Declaration

TIEPaintCellEvent = procedure(Sender: TObject; ACanvas: TCanvas; CellRect: TRect; aColor: TColor; Index: Integer; aState: TIEColorCellState; var aStyle: TIETransparentStyle; var Handled: Boolean) of object;

Description

Occurs whenever a color cell is painted. Set Handled to True if you have drawn the cell yourself.

Example

procedure TForm1.IEColorPalette1PaintCell(Sender: TObject; ACanvas: TCanvas;
  CellRect: TRect; aColor: TColor; Index: Integer; aState: TIEColorCellState;
  var aStyle: TIETransparentStyle; var Handled: Boolean);
begin
  if aColor = clRed then
  begin
    ACanvas.Brush.Color := clRed;
    ACanvas.FillRect( CellRect );
    Handled := True;
  end;
end;

See Also

◼OnPaintCell
◼OnAfterPaintCell
◼TIEColorCellState

---