Größe von horizontalen Balken automatisch anpassen

wulfskin · Verfasst: Do 15.12.05 20:34

Hallo,

ich möchte, dass sich die Größe von meinen Balken automatisch an die Größe vom Chart anpassen. Da die Anzahl der Balken immer unterschiedlich ist, sollen die Balken bei weniger größer sein und kleiner bei mehreren.
Ich habe es schonmal hinbekommen, aber irgendwie ist es wieder verloren gegangen.

Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses Chart, Series;

var
  I: Integer;
  Series: THorizBarSeries;
  C: TColor;
begin
  Randomize;
  Chart1.SeriesList.Clear;
  for I := 1 to Random(10) + 5 do begin
    Series := THorizBarSeries.Create(Chart1);
    C := Random(High(TColor));
    Series.Title := 'Test';
    Series.SeriesColor := C;
    Series.AddBar(Random(High(Integer)), 'test', C);
    Chart1.AddSeries(Series);
  end;
end;

Bei mir sind die Balken leider immer gleich breit und füllen nicht den vollen Bereich aus. Wie kann ich das ändern?

Viele Grüße,
Hape

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

Lannes · Verfasst: Fr 16.12.05 20:15

Hallo,

so oder?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var x,xBarH,    //<------
    I: Integer;
    Series: THorizBarSeries;
    C: TColor;
begin
  Randomize;
  Chart1.SeriesList.Clear;
  x := Random(10) + 5;//<------
  xBarH := Round((Chart1.ChartHeight-10)/x);//<------
  //for I := 1 to Random(10) + 5 do
  for I := 1 to x do begin//<------ x eingefügt
    Series := THorizBarSeries.Create(Chart1);
    Series.CustomBarHeight := xBarH;//<-------
    C := Random(High(TColor));
    Series.Title := 'Test';
    Series.SeriesColor := C;
    Series.AddBar(Random(High(Integer)), 'test', C);
    Chart1.AddSeries(Series);
  end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

wulfskin · Verfasst: Fr 16.12.05 20:18

Super, muss es zwar noch testen, aber klingt logisch

!

Komisch, ich weiss genau, dass es dafür eine Einstellung gab. Aber ist auch wurscht, hauptsache es funktioniert!

Vielen Danke und viele Grüße,
Hape

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme