TcyBaseColorMatrix

type TcyBaseColorMatrix = class(TGraphicControl)

protected

  property Autosize;

  procedure AdjustSize; override;

  function CanAutoSize(); override;

  procedure Click; override;

  function GetClientRect; override;

  procedure Loaded; override;

  procedure MouseDown(); override;

  procedure Paint; override;

  procedure BackgroundChanged();

  procedure DrawMatrix; virtual;

  procedure DrawBackground(); virtual;

  function GetBorderSize; virtual;

  procedure SetColorArrayItem();

  procedure SetColorArrayItemsRange();

  procedure SetColorArrayWithDefaultColor();

  property Background: TcyGradient; [rw]

  property BorderWidth: Integer; [rw]

  property Canvas: TCanvas; [r]

  property CellHeight: Integer; [rw]

  property CellWidth: Integer; [rw]

  property ColCount: Integer; [rw]

  property CellFrameColor: TColor; [rw]

  property CellFrameWidth: Integer; [rw]

  property CellSpacingWidth: Integer; [rw]

  property CellSpacingHeight: Integer; [rw]

  property DefaultColor: TColor; [rw]

  property TopRowValue: Double; [rw]

  property LeftColumnValue: Double; [rw]

  property BottomRowValue: Double; [rw]

  property RightColumnValue: Double; [rw]

  property RowCount: Integer; [rw]

  property OnCustomDrawCell: TProcOnDrawCell; [rw]

  property OnCellClick: TProcOnCellClick; [rw]

  property OnPaint: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure DrawText();

  procedure DrawCanvas();

  procedure DrawGraphic();

  procedure LoadFromGraphic();

  procedure SaveToBitmap();

  function FindCellColor();

  function GetCellAtPos();

  function GetColumnPosition();

  function GetRowPosition();

  function GetColorGrid(); virtual;

  procedure DrawCell();

  procedure DefaultDrawCell();

  procedure ReplaceColor(); virtual;

  procedure SetColorGrid();

  procedure SetColorGridRange();

  function RowToValue();

  function ValueToRow();

  function ColumnToValue();

  function ValueToColumn();

end;

TcyBaseColorMatrix

TObject