Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Chart selber zeichnen -> Fläche unter Graph einfärben (https://www.delphipraxis.net/167540-chart-selber-zeichnen-flaeche-unter-graph-einfaerben.html)

Viktorii 4. Apr 2012 15:51

Delphi-Version: XE2

Chart selber zeichnen -> Fläche unter Graph einfärben
 
Moin.

Ich möchte mir ein paar Messwerte als Graph darstellen. Ich möchte außerdem, dass in dem Chart Hilfslinien dargestellt werden und die Fläche unter dem Graph eingefärbt ist. In etwa so wie hier.

Da dies (soweit ich weiß) mit TChart nicht geht, habe ich dem Graph und die Hilfslinien in einer PaintBox auf TCanvas selber gezeichnet. Das funktioniert auch schon wunderbar.

Nur mit dem Einfärben hapert es noch. Ich habe es bis jetzt so gemacht, das die Farbwerte der Pixel jeweils gelesen werden und dann entsprechend eingefärbt werden. Das funktioniert zwar ist aber unglaublich langsam. Wie kann man das geschickter und schneller implementieren?

Coffeecoder 4. Apr 2012 16:00

AW: Chart selber zeichnen -> Fläche unter Graph einfärben
 
Hi,
Diese Charts müssten (?)Area Chart heissen.
Guck mal hier. Vielleicht hilft es dir weiter.

Bummi 4. Apr 2012 19:28

AW: Chart selber zeichnen -> Fläche unter Graph einfärben
 
Wenn Du selbst Zeichnen willst FillPolygon aus GDI+
oder
Delphi-Quellcode:
type
 PArray=Array of TPoint;
var
 rg:Hrgn;
 arr:PArray;
begin
  SetLength(arr,4);
  arr[0].X := 100;
  arr[0].y := 100;
  arr[1].X := 200;
  arr[1].y := 200;
  arr[2].X := 0;
  arr[2].y := 50;
  arr[3].X := 100;
  arr[3].y := 100;

  rg:= CreatePolygonRgn(arr[0],High(Arr) + 1,Winding);
  Canvas.Brush.Color := clRed;
  PaintRgn(Canvas.Handle,rg);
  DeleteObject(rg);
end;

UliBru 5. Apr 2012 06:11

AW: Chart selber zeichnen -> Fläche unter Graph einfärben
 
Zitat:

Zitat von Viktorii (Beitrag 1160198)
Ich möchte mir ein paar Messwerte als Graph darstellen. Ich möchte außerdem, dass in dem Chart Hilfslinien dargestellt werden und die Fläche unter dem Graph eingefärbt ist. In etwa so wie hier.

Da dies (soweit ich weiß) mit TChart nicht geht, habe ich dem Graph und die Hilfslinien in einer PaintBox auf TCanvas selber gezeichnet. Das funktioniert auch schon wunderbar.

Schau Dir mal bei TChart die Tools an und dort speziell das Tool Region.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:15 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz