Steema Central

Code: Select all

uses TeCanvas, Math;

var Colors: array of TColor;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=0 to 8 do
  begin
    if i > 0 then Series1.AddPolar(i*30, Series1.YValue[Series1.Count-1]);
    Series1.AddPolar(i*30, 0);
    if i < 8 then Series1.AddPolar(i*30, random*30);
  end;

  Series1.Pointer.Visible := false;

  SetLength(Colors,Series1.Count div 3);
  for i:=0 to length(Colors) do
  begin
    Colors[i] := RGB(Random(255), Random(255), Random(255));
  end;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var i: Integer;
    tmpPoints: TPointArray;
begin
  SetLength(tmpPoints,3);

  for i:=0 to Series1.Count-1 div 3 do
  begin
     tmpPoints[0].X := Series1.CalcXPos(i*3);
     tmpPoints[0].Y := Series1.CalcYPos(i*3);
     tmpPoints[1].X := Series1.CalcXPos(i*3+1);
     tmpPoints[1].Y := Series1.CalcYPos(i*3+1);
     tmpPoints[2].X := Series1.CalcXPos(i*3+2);
     tmpPoints[2].Y := Series1.CalcYPos(i*3+2);
     Chart1.Canvas.Brush.Color := Colors[i];
     Chart1.Canvas.Polygon(tmpPoints);
  end;
end;

Code: Select all

procedure TfrmRoseVent.DrawAllPetales(num_chart:integer;prjt:string);
var
  prctg_max,prctg,ind: Integer;
begin
...
  //parcours des enregs
  while not frmMain.IbcQryRd.Eof do
  begin
    //dessine le contour d'une pétale
    DrawPetale(num_chart,frmMain.IbcQryRd.FieldByName('ANGLE').AsInteger,frmMain.SpnEdtAngle.Value,prctg);
    ColorPetale(num_chart,ind,frmMain.IbcQryRd.FieldByName('VIT_MOY').AsFloat);
    frmMain.IbcQryRd.Next;
    Inc(ind,3);
  end;//fin du while parcours des enregs
end;

//dessine une petale de la rose
procedure TfrmRoseVent.DrawPetale(num_chart,angle_deb, pas_angle: integer; prctg: double);
begin
  //Déssine le contour
  TabSeriesRoseVent[num_chart].AddPolar(angle_deb,prctg);
  TabSeriesRoseVent[num_chart].AddPolar(angle_deb+pas_angle,prctg);
  TabSeriesRoseVent[num_chart].AddPolar(angle_deb+pas_angle,0);
end;

//colorie toutes les pétales
procedure TfrmRoseVent.ColorPetale(num_chart,ind_serie:integer ;vit_moy:double);
var
  tmp_pts: TPointArray;
begin
  SetLength(tmp_pts,3);
  //colorie
  tmp_pts[0].X:=TabSeriesRoseVent[num_chart].CalcXPos(ind_serie);
  tmp_pts[0].Y:=TabSeriesRoseVent[num_chart].CalcYPos(ind_serie);
  tmp_pts[1].X:=TabSeriesRoseVent[num_chart].CalcXPos(ind_serie+1);
  tmp_pts[1].Y:=TabSeriesRoseVent[num_chart].CalcYPos(ind_serie+1);
  tmp_pts[2].X:=TabSeriesRoseVent[num_chart].CalcXPos(ind_serie+2);
  tmp_pts[2].Y:=TabSeriesRoseVent[num_chart].CalcYPos(ind_serie+2);
  TabChrtRoseVent[num_chart].Canvas.Brush.Color := clYellow;
  TabChrtRoseVent[num_chart].Canvas.Polygon(tmp_pts);
end;