Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

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

  Alt 4. Apr 2012, 20:28
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat