Re: Diese prozedur gängig machen
Zitat:
Und was soll zurück gegeben werden? :gruebel: ich würde es so lassen, geht doch einwandfrei, nur, dass der Kreis evtl. nicht den Bedürfnissen von LkZ entspricht. ;) |
Re: Diese prozedur gängig machen
vl ein bitmap .. was er dann im form1 mit canvas.draw zeichnet :stupid:
|
Re: Diese prozedur gängig machen
Zitat:
|
Re: Diese prozedur gängig machen
Oder man zwischenspeichert die Kreise; Ich hab das gefühl das die "überschrieben" werden
|
Re: Diese prozedur gängig machen
hab den code grad mal überflogen und ja, deine vorherigen kreise werden überschrieben, da du von innen nach außen zeichnest, womit die immer größer werdenden neu gezeichneten kreise die alten überdecken (und der größte kommt zuletzt)... versuch mal die for-to-do schleife durch eine for-downto-do zu ersetzen und den atomkern dementsprechend als letztes zu zeichnen
//Edit: oder ich hab den code nich ordentlich überflogen und die kreise werden kleiner, dann weiß ich es auch nich :stupid: |
Re: Diese prozedur gängig machen
Zitat:
|
Re: Diese prozedur gängig machen
Die Lösung...
Delphi-Quellcode:
es muss vom äussersten zum kleinsten kreis gezeichnet werden, da alles im kreis neu gezeichnet wird!!!
procedure TForm1.DrawModel(Canvas:TCanvas;AtomNr:Real;Rad:integer);
var x0,y0,k,d:integer; begin x0:=Form1.ClientWidth div 2; y0:=Form1.ClientHeight div 2; // Canvas.Ellipse(x0-Rad,y0-Rad,x0+Rad,y0+Rad); // -> wird in der schleife gezeichnet for k:=round(sqrt(AtomNr/2)) downto 1 do // -> hier war der fehler !!!! begin d:=Rad*k; // nur einmal berechnet je durchgang! Canvas.Ellipse(x0-d,y0-d,x0+d,y0+d); end; end; |
Re: Diese prozedur gängig machen
Zitat:
|
Re: Diese prozedur gängig machen
Alternativ könnte man die Brush.color auch auf durchsichtig setzen...
|
Re: Diese prozedur gängig machen
Ja danke leute, is mir gestern auch eingefallen.. :thumb: hab ich auch schon gemacht
bis dann MfG LKZ |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:24 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