Kreisdiagramm?
Hallo,
wie kann man am besten ein Kreisdiagramm realisieren? Zum einarbeiten möchte ich erst mal 2 Edits haben und die zahlen daraus dann als Kreisdiagramm darstellen. |
Re: Kreisdiagramm?
hallo citybreaker,
wie wäre es mit mathe. mein großer ist 1 und hatte das dieses jahr in der schule. den flächeninhalt eines kreisbogens zu berechnen. :mrgreen: der umfang sollte auch klar sein, oder? raik |
Re: Kreisdiagramm?
Zitat:
|
Re: Kreisdiagramm?
@sanchez, da biste aber zurück :mrgreen:
sch*** tastatur, 14 meine ich :wall: raik |
Re: Kreisdiagramm?
Ähm es geht mir erstmal dadrum wie ich sowas zeichnen soll. Ich hab kein Plan
wie ich das in Delphi machen soll. -.- |
Re: Kreisdiagramm?
Schau die mal 'pie' an. Da kannst du u.A. einen Winkel übergeben und dann wird dir daraus ein 'Tortenstück' gezeichnet.
Tox |
Re: Kreisdiagramm?
hallo citybreaker
hier mal ein quickie. ein TImage, ein button und ein edit:
Delphi-Quellcode:
das ist sicher ausbaubar :mrgreen:
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; raik |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:51 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