Malwerkzeug

[Plattenputzer]

Ich habe 2 Probleme:
1. Weiß jemand wie man die normalen Mal- und Zeichnenwerkzeuge bei einem TImage einsetzen kann?
z.b. wie man eine Flache mit Farbe ausfüllen kann?
2. Wenn ich z.b ein Kreis habe und ihn füllen will, aber er ist "nicht ganz dicht" Kann man machen, dass das Programm kleine Lücken erkennt und anschliesend schließt?

Ich bin für jede Hilfe schon im voraus dankbar.

[alcaeus]

Hallo Plattenputzer,

Zitat von Plattenputzer:

Ich habe 2 Probleme:

mach bitte fuer jede deiner Fragen einen eigenen Thread auf. Sonst gibts hier ein heilloses Durcheinander.
Und herzlich willkommen in der DP

Greetz
alcaeus

[Plattenputzer]

Das ist eigentlich ein Hauptproblem mit einem Unterproblem:
Wie kann ich eine Fläche, die von einer Linie, z.B. einem Kreis, begrenzt wird mit Farbe füllen.
(Wie in Paint der Farbeimer es tut)
Das Problem, was zu tun ist, wenn die Linie nicht ganz sauber geschloßen ist, ist erst mal nicht so wichtig.

[Khabarakh]

Schau dir mal TCanvas.FloodFill an.

[Plattenputzer]

Danke!

Es funkt. Aber wie kann ich einen Farbwert angeben, mit dem gefüllt wird.
Bisher wird nur mit weis gefüllt. Ich kann nur bestimmen was die Grenze sein soll und nich mit was gefüllt wird. Mach ich was falsch? Meine Delphihilfe ist leider nur Englisch.

[pacman1986]

Hier die Delphi Hilfe zu TCanvas.FloodFill auf Deutsch

Zitat:

Die Methode FloodFill füllt unter Verwendung des aktuellen Pinsels einen Bereich der Zeichenfläche.

Delphi-Syntax:
procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);
Beschreibung

Mit FloodFill können Sie unter Verwendung des aktuellen Pinsels einen (nicht unbedingt rechteckigen) Bereich des Bildes füllen. Zur Bestimmung des Bereichs wird ausgehend vom Punkt (X,Y) der Bereich verwendet, der so weit reicht, bis eine Änderung der im Parameter Color angegebenen Farbe auftritt.

X und X geben die Koordinaten auf der Zeichenfläche an, bei denen der zu füllende Bereich beginnt.

Color gibt die Farbe an, die an der Begrenzung des zu füllenden Bereichs verwendet werden soll. Die Interpretation ist von dem Wert in FillStyle abhängig.

FillStyle gibt an, ob für alle Pixel des Bereichs derselbe Wert (in Color angegeben) verwendet werden soll oder ob für alle Punkte andere Werte gelten.

Tipp: Wenn Sie fsSurface als FillStyle verwenden, können Sie mit der Eigenschaft Pixels den genauen Wert der Farbe am Punkt (X,Y) ermitteln. Bei fsBorder können Sie mit derselben Eigenschaft den genauen Farbwert der Begrenzung ermitteln, wenn einer der Begrenzungspunkte bekannt ist.

Daraus Ergibt sich
wenn du Brush.Color veränderst verändert sich die Fülfarbe

[Plattenputzer]

Des habe ich gerade auch herausgefunden und es funktioniert. Trozdem Danke.
Jetzt komme ich zu meinem Unterproblem mit den undichten Linien:
Also: Wenn der Kreis, der gefüllt werden soll nicht sauber gezeichnet ist und ein paar Pixel fehlen, läuft die Farbe mit der gefüllt werden soll sozusagen aus und die Fläche ausßerhalb des Kreises wird auch gefüllt.
Jetzt wäre es schön, das so hinzubiegen, dass die Farbe "zähflüssig" ist und bei kleineren Lücken eben nicht "ausläuft".
Hat jemand eine Idee?

[Khabarakh]

Was für Kreise denn? Die von TCanvas.Ellipse erzeugten sind doch "dicht", oder etwa nicht ?
Auf jeden Fall wirst du um eine eigene Prozedur nicht herumkommmen. Spontan fällt mir aber keine Lösung, um dann die Lücken zu erkennen, ein.

[Sanchez]

Hallo,

Zum Zeichnen würde ich im Übrigen kein TImage sondern eine Paintbox und ein Offscreen-Bitmap verwenden
TImage ist dafür nicht gedacht.

grüße, daniel

[Plattenputzer]

Ich habe vor ein Programm zu machen dass einen Höhenlinienplan in verschiedene Graustufen färbt und man nicht wie in Paint mit dem Stift malt oder so.
Und da ist es halt mal so, dass beim einscannen (z.b wegen einer Schrift oder wenn eine Linie mit einer anderen Farbe die über der Höhenlinie gedruckt ist) eine Lücke entstehen kann, wenn man z.B. alle Pixel die nicht die Farbe der Höhenlinie hat, wegrechnen lässt.
Wenn man jetzt füllt werden mehrere Höhenebenen In einem Farbton gefüllt, wo doch jede Höhe ihre eigene Farbfläche braucht.
Das ganze soll dazu dienen Höhenlinienpläne in Greyscalemaps für die UR-2-Runtime zu konvertieren.