操作TChar
vari, j, kum: Integer;s, t: TBarSeries;beginwith Chart1 dobegin// Title of the ChartSeriesList.Clear;Title.Text.Clear;Title.Text.Add('My Title for Char');Legend.Visible :=True;Legend.LegendStyle :=lsAuto;Legend.TextStyle := ltsLeftValue;// Create first Seriess := TBarSeries.Create(nil);// Clear its.Clear;s.BarStyle :=bsRectGradient;s.ColorEachPoint :=True;// set the titles.Title := 'Bar 1';// determine the chart, this series belongs tos.ParentChart := Chart1;// the x-axis shall use dates.XValues.DateTime := False;s.AutoBarSize :=False;s.BarWidthPercent := 70;s.OffsetPercent :=0;s.Marks.Style :=smsPercent; // create the second Seriest := TBarSeries.Create(nil);t.Clear;t.Title := 'Bar 2';t.ParentChart := Chart1;t.XValues.DateTime := False;// this series uses the right axist.VertAxis := aLeftAxis;// now add the random valuesRandomize;for i := 0 to 5 dobeginj := Random(100) + 1;s.AddXY(i, j);kum := j;t.AddXY(i , kum + Random(20));end;end;end;
自猛料
vari, j, kum: Integer;s, t: TBarSeries;beginwith Chart1 dobegin// Title of the ChartSeriesList.Clear;Title.Text.Clear;Title.Text.Add('My Title for Char');Legend.Visible :=True;Legend.LegendStyle :=lsAuto;Legend.TextStyle := ltsLeftValue;// Create first Seriess := TBarSeries.Create(nil);// Clear its.Clear;s.BarStyle :=bsRectGradient;s.ColorEachPoint :=True;// set the titles.Title := 'Bar 1';// determine the chart, this series belongs tos.ParentChart := Chart1;// the x-axis shall use dates.XValues.DateTime := False;s.AutoBarSize :=False;s.BarWidthPercent := 70;s.OffsetPercent :=0;s.Marks.Style :=smsPercent; // create the second Seriest := TBarSeries.Create(nil);t.Clear;t.Title := 'Bar 2';t.ParentChart := Chart1;t.XValues.DateTime := False;// this series uses the right axist.VertAxis := aLeftAxis;// now add the random valuesRandomize;for i := 0 to 5 dobeginj := Random(100) + 1;s.AddXY(i, j);kum := j;t.AddXY(i , kum + Random(20));end;end;end;
自猛料
欢迎大家继续提供资料。