Kreisdiagramm?

[kiar]

hallo citybreaker
hier mal ein quickie.

ein TImage, ein button und ein edit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   breite,
   hoehe,
   mittex,
   mittey : integer;
   delta: double;
   rect : TRect;
begin
    rect:= image1.canvas.ClipRect;
    with image1.canvas do begin
      brush.color:= clred;
      pen.color  := clblack;
      pen.width  :=1;
      Ellipse(rect.left, rect.top, rect.right, rect.bottom);
      if strtoint(Edit1.text) > 0 then
        brush.color:= clyellow;
        pen.Color  := clBlue;
        breite:= rect.Right - rect.Left;
        hoehe:= rect.Bottom * 2 - rect.top;
        mittex:= breite div 2;
        mittey:= hoehe  div 2;
        delta:=(pi * (strtoint(edit1.text) div 2)+ 0.5 );
        pie(rect.Left, rect.top, rect.right, rect.bottom,round(mittex *1-cos(delta)),round(mittey *(1-sin(delta))),mittex,0);
        end;
       

end;

das ist sicher ausbaubar

raik