Steema Central

Code: Select all

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, TeeSurfa, TeeLegendPalette;

type
  TForm10 = class(TForm)
    Chart1: TChart;
    procedure FormShow(Sender: TObject);
    Procedure SetColorPalette;
    procedure InitSeries(ASeries: TCustom3DGridSeries);
    function CoolColorCode(ColorValue:single):TColor;
  private
    { Private declarations }
  public
    LegendPalette : TLegendPaletteTool;
    LegendPalette2 : TLegendPaletteTool;
    ColorPalette: array[0..50] of TColor;
    ColorPaletteLevels: array[0..50] of double;
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.FormShow(Sender: TObject);
var
i,j,k : integer;
begin

Chart1.RemoveAllSeries;
Chart1.FreeAllSeries();

if (LegendPalette=nil) then
  LegendPalette:=TLegendPaletteTool.Create(Chart1);

Chart1.View3D := false;
Chart1.Legend.Visible := false;
Chart1.Legend.Shadow.Visible := false;
Chart1.Legend.Gradient.Visible := false;
Chart1.Color := clwhite;

Chart1.AddSeries(TColorGridSeries.Create(self));
Chart1[0].ParentChart := Chart1;
SetColorPalette;
InitSeries(TCustom3DGridSeries(Chart1[0]));

with LegendPalette do
  begin
    Series:=Chart1[0];
    Pen.Visible:=false;
    LegendPalette.Left:= Chart1.Width-LegendPalette.Width-10;
    LegendPalette.Height := round(2*Chart1.Height/3);
  end;

Chart1.Tools.Add(LegendPalette);

with Chart1[0] as TColorGridSeries do
  begin
    IrregularGrid := true;
    CenteredPoints := false;
    Pen.Visible := false;
  end;

for i := 0 to 100-1 do
  for k := 0 to 100-1 do
    with Chart1[0] as TColorGridSeries do
      AddXYZ(i,i*k,k);

Chart1.Title.Clear;
Chart1.Title.Text.Add('Mesh Geometry');
Chart1.Title.Font.Size := 18;

Chart1.MarginRight := 10;
LegendPalette.Left:= Chart1.Width-LegendPalette.Width-10;
LegendPalette.Height := Chart1.Height-10;

end;


Procedure TForm10.SetColorPalette;
var
i:integer;
begin

for i := Low(ColorPalette) to High(ColorPalette) do
  begin
    ColorPalette[i] := CoolColorCode(i/High(ColorPalette));
    ColorPaletteLevels[i] := 20 + i*230/High(ColorPalette);
  end;

end;

procedure TForm10.InitSeries(ASeries: TCustom3DGridSeries);
var i: Integer;
begin
  ASeries.UsePalette := True;
  ASeries.UseColorRange := false;

  ASeries.ClearPalette;
  for i := Low(ColorPalette) to High(ColorPalette) do
    ASeries.AddPalette(ColorPaletteLevels[i],ColorPalette[i]);

  ASeries.Repaint;
end;

function TForm10.CoolColorCode(ColorValue:single):TColor;
begin

ColorValue := 100 - ColorValue*100;

if (ColorValue < 0) then
  ColorValue := 0
else if (ColorValue > 100) then
  ColorValue := 100;

if ColorValue < 25 then
  result := rgb(255,round(ColorValue/25*255),0)
else if ColorValue < 50 then
  result := rgb(255-round((ColorValue-25)/25*255),255,0)
else if ColorValue < 75 then
  result := rgb(0,255,round((ColorValue-50)/25*255))
else
  result := rgb(0,255-round((ColorValue-75)/25*255),255);
end;

end.