Diese prozedur gängig machen

[Matze]

Zitat von Nicodius:

war nur beiläufig...

aber ich glaube das dzdas besser mit ner function machen solltest - vl geht das gezeichnete verloren ...

eine Function?

Und was soll zurück gegeben werden?

ich würde es so lassen, geht doch einwandfrei, nur, dass der Kreis evtl. nicht den Bedürfnissen von LkZ entspricht.

[Nicodius]

vl ein bitmap .. was er dann im form1 mit canvas.draw zeichnet

[LkZ]

Zitat von Matze:

Zitat von Nicodius:

war nur beiläufig...

aber ich glaube das dzdas besser mit ner function machen solltest - vl geht das gezeichnete verloren ...

eine Function?

Und was soll zurück gegeben werden?

ich würde es so lassen, geht doch einwandfrei, nur, dass der Kreis evtl. nicht den Bedürfnissen von LkZ entspricht.

Wie kann man das denn hinbekommen, dass es meinen bedürfnissen entspricht?

[LkZ]

Oder man zwischenspeichert die Kreise; Ich hab das gefühl das die "überschrieben" werden

[Nothine]

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

[Matze]

Zitat von LkZ:

Wie kann man das denn hinbekommen, dass es meinen bedürfnissen entspricht?

Ich meinte damit nur, es zeichnet einen Kreis, nur willst du den Kreis wahrscheinlich anders haben, weil ja etwas an dem Code nicht stimmt, laut deiner Aussage.

[ibp]

Die Lösung...

Delphi-Quellcode:

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;

es muss vom äussersten zum kleinsten kreis gezeichnet werden, da alles im kreis neu gezeichnet wird!!!

[ibp]

Zitat von Nothine:

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

ooops da war ja die lösung schon!

[atreju2oo0]

Alternativ könnte man die Brush.color auch auf durchsichtig setzen...

[LkZ]

Ja danke leute, is mir gestern auch eingefallen.. hab ich auch schon gemacht

bis dann
MfG LKZ