Forum: Multimedia
Delphi
by himitsu,
19. Mai 2010
Male in ein TBitMap und zeige über dieses alles im Ganzen an. (entweder direkt auf dem Form.Canvas oder auf einer TPaintBox)
DoubleBuffering kannst'e abschalten.
Forum: Multimedia
Delphi
by himitsu,
17. Mai 2010
Womöglich könnte es auch mehrere Stellen geben
- jenachdem welche zuerst anfangt "durchzudrehn", bzw. als Letzes gezeichnet wird, ist ja immer nur eine sichtbar, da sie sich ja gegenseitig übermalen.
Im Prinzip brauchst du erstmal nur die FloddFill auszukommensieren.
Am Besten gleich alle und dann Befehl für Befehl wieder aktivieren
und so den/die ensprechenden Befehl(e) erstmal...
Forum: Multimedia
Delphi
by himitsu,
17. Mai 2010
Also ich denke auch, daß es an den FlodFill liegt.
Eventuell sind ja einige deiner selbstgemalten Kreise nicht richtig geschlossen
(warum überhaupt selber zusammenstückeln und nicht gleich einen Kreis zeichnen lassen? )
for Winkel := 1 to 360 do
begin
LineTo(A_DC, AStartX+Round(cos(Pi*Winkel/180)*AGroesse), AStartY+Round(sin(Pi*Winkel/180)*AGroesse) );
end;