TColorPalette.CreateDefaultPalette Method

procedure CreateDefaultPalette(aMax: double; aMin: double);

Create default palette entries/levels.

Result: stored in self (calling object)

Remarks:

Create default palette entries/levels by using <See cref="BottomColor"/>, <See cref="TopColor"/> and <See cref="PaletteSteps"/> properties. <Example>Plot matrix values by identifying minium value with clBlack and maximum value with clWhite: <code> procedure TForm1.FormCreate(Sender: TObject); var A: Matrix; GridSeries: TMtxGridSeries; begin GridSeries := TMtxGridSeries.Create(Chart1); GridSeries.ColorPalette.PaletteScale := ppsNone; GridSeries.ColorPalette.PaletteStyle := palCustom; GridSeries.ColorPalette.Clear; GridSeries.ColorPalette.ColorBalance := 0; GridSeries.ColorPalette.UseMidColor := false; GridSeries.ColorPalette.CreateDefaultPalette(400, 0); GridSeries.UpdateColor; A.Size(20,20); Vector(A).Ramp; DrawValues(A,GridSeries); end; </code> <code lang="C++"> #include "MtxExpr.hpp" #include "MtxVecEdit.hpp" #include "MtxVecTee.hpp" __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { sMatrix A; TMtxGridSeries *GridSeries; GridSeries = new TMtxGridSeries(Chart1); GridSeries->ColorPalette->PaletteScale = ppsNone; GridSeries->ColorPalette->PaletteStyle = palCustom; GridSeries->ColorPalette->Clear(); GridSeries->ColorPalette->ColorBalance = 0; GridSeries->ColorPalette->UseMidColor = false; GridSeries->ColorPalette->CreateDefaultPalette(400, 0); GridSeries->UpdateColor(); A->Size(20,20); A()->Ramp(); //view A as a Vector DrawValues(A,GridSeries); } </code> </Example> <SeeAlso cref="BottomColor"/> <SeeAlso cref="TopColor"/> <SeeAlso cref="PaletteStyle"/>

Examples

procedure TForm1.FormCreate(Sender: TObject);
var A: Matrix;
GridSeries: TMtxGridSeries;
begin
    GridSeries := TMtxGridSeries.Create(Chart1);

    GridSeries.ColorPalette.PaletteScale := ppsNone;
    GridSeries.ColorPalette.PaletteStyle := palCustom;
    GridSeries.ColorPalette.Clear;
    GridSeries.ColorPalette.ColorBalance := 0;
    GridSeries.ColorPalette.UseMidColor := false;
    GridSeries.ColorPalette.CreateDefaultPalette(400, 0);
    GridSeries.UpdateColor;

    A.Size(20,20);
    Vector(A).Ramp;
    DrawValues(A,GridSeries);
end;