Steema Central

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
const
ColorPalette: array [00..15] of TColor =
(
$000000, $ff0000, $ff8000, $ffc000,
$ffff00, $c0ff00, $80ff00, $00ff00,
$00ff80, $00ffff, $00dfff, $00c0ff,
$00a0ff, $0080ff, $0060ff, $0000ff
);
var I: Integer;
begin
  with Series1 do begin
    ClearPalette;
    PaletteStyle := psCustom;
    Active := TRUE;
    Clear;
    UsePalette := TRUE;
    UseColorRange := False;

    for I := 0 to 15 do begin
      AddPalette(20 + 5 * I, ColorPalette [I]);
    end;

    FillSampleValues();
  end;
end;

Code: Select all

procedure TSawIsoForm.FormActivate(Sender: TObject);
var
   M, H, I : Byte;
begin
   with Chart1 do begin
      View3D := FALSE; {IT IS WHAT I HAVE CHANGED}
   end;
   with Series1 do begin
      Clear;
      IrregularGrid:=true;

//      for I := 0 to 15 do begin
//         AddPalette (5 * I, ColorPalette [I]);
//      end;
      {MONTHS}
      for M := 1 to 12 do begin
         {HOURS}
         for H := 00 to 23 do begin
            AddXYZ (H, MYMAP [M, H], M);
         end;
      end;
      Active := TRUE;
   end;
end;