Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Chart selber zeichnen -> Fläche unter Graph einfärben
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)
|