Graph mit TChar erstellen.

[Vincman]

Hallo,

ich möchte in einer Pascal Gui Anwendung den Graphen einer Funktion mithilfe eines TCharts anzeigen.
Ich möchte den Graphen jedoch nur von x = -10 bis x = 10 anzeigen lassen und habe dafür entsprechend im Objektinspektor unter
>Marks >Range Min und Max angepasst und dasselbe nur unter >Range (ohne >Marks) gemacht. Danach habe ich bei den beiden UseMax und UseMin auf True gesetzt und auch unter >Intervals >Options alles auf True gesetzt.

Nur leider sieht es überhaupt nicht so aus wie ich es haben möchte:





Wie kann man das Problem beheben?

(Wenn noch irgendwas unverständlich ist oder man die Bilder nicht sehen kann, bitte Bescheid geben. )

Danke im Vorraus,
Vincman.

[wp_xyz]

Die beiden Bilder sehen für mich gleich aus. Was willst du genau sehen? Es wäre auch noch wichtig zu wissen, welchen SeriesTyp du verwendest. Eine TLineSeries oder eine TFunctionSeries? (Letztere hat einen eigenen Range)

[Vincman]

Danke erstmal!

Ich hab das andere Bild jetzt nochmal hochgeladen, hoffe es klappt...

Mein Problem ist, dass der Graph so klein; ich möchte quasi einen anderen Maßstab haben, damit man nicht so viel weißen Rand sieht.

Danke,
Vincman

[Vincman]

... und es ist eine LineSeries.

[Vincman]

Leider bin ich zu blöd zwei verschiedene Bilder hochzuladen, aber was ich erreichen möchte ist, dass man nur einen Ausschnitt des Grapen aus dem Bereich x = -10 bis x= 10 sieht und dabei keine unnütze weiße Fläche links und rechts bzw. oben und unten hat.

Man könnte natürlich als Benutzer rein-zoomen, aber ich möchte, dass es gleich von Anfang an richtig ist.

[wp_xyz]

Eigentlich geht das bei TLineSeries automatisch, die Achsenbereiche werden durch die Bereiche der Daten definiert, du musst normalerweise gar keine Ranges setzen. Wie erzeugst du denn die Daten für die LineSeries? So mache ich es (keinerlei Ranges gesetzt):

Code: Alles auswählen

function MeineFunktion(x: Double): Double;
begin
  Result := x;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
const
  XMIN = -10;
  XMAX = +10;
  N = 100;
var
  x,y: Double;
  i: Integer;
begin
  for i:=0 to N-1 do begin
    x := XMIN + (XMAX - XMIN) * i / (N-1);
    y := MeineFunktion(x);
    Chart1LineSeries1.AddXY(x, y);
  end;
end;  

[Vincman]

Wie erzeugst du denn die Daten für die LineSeries?

Eigentlich genauso wie du es machst.
Aber wenn ich keine Range vorgebe, dann hört der Graph einfach irgendwo auf und deswegen wollte ich da, wo der Graph aufhört das TChar begrenzen, damit sich der Benutzer nicht wundert, warum der Graph nicht weiter geht:



Der Graph hört abrupt auf aber die x-Achse geht noch weiter; das sieht blöd aus ...

[Vincman]

Ich bin so dämlich!

Ich hatte Proportional auf True und deswegen wurde die x-Achse immer so lang gezogen...

Trotzdem Danke!

Aber eine Frage hätte ich noch:
Kann man es irgendwie unterbinden, dass der Benutzer den Graphen verschieben kann? (Wenn man mit der rechten Maustaste gedrückt den Graph verschiebt.)

[wp_xyz]

Du musst nur eine TChartToolSet-Komponente auf das Formular klicken und der Eigenschaft Toolset des Chart zuweisen. Dadurch wird das eingebaute Toolset, das für Zoomen und Verschieben zuständig ist, deaktiviert. Falls du trotzdem zoomen willst, musst du jetzt auf der ChartToolSet-Komponente doppelt klicken und mit "+" ein ZoomDragTool einfügen ("Zoomen durch Ziehen"). Wenn du jetzt bei dem ZoomDragTool unter "Shift" den Eintrag "ssLeft" aktivierst, dann kannst zu mit gedrückter linker Maustaste von links oben nach recht unten das Zoom-Rechteck aufziehen, das beim Loslassen der Taste aktiv wird. Den Originalzustand stellst du durch einen einfachen Klick im Chart wieder her (bzw. durch die anderen in RestoreExtenton aktiven Optionen).