Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Fill Funktion bei paint (https://www.delphipraxis.net/112334-fill-funktion-bei-paint.html)

counterskiller 18. Apr 2008 21:46


Fill Funktion bei paint
 
Hallo, ich möchte sowas wie paint programmieren,
eigendlich ist alles fertig fehlt nur noch die fill in funktion(das gesammte ausmalen einer bestimmten fläche). Ich habe auch leider keinen ansatz vllt kann mir da einer helfen, wäre euch sehr verbunden.

mfg counterskiller

dominikkv 18. Apr 2008 21:53

Re: Fill Funktion bei paint
 
Delphi-Quellcode:
Canvas.FloodFill(X, Y, clRed, fsBorder); // bzw fsSurface

counterskiller 18. Apr 2008 22:05

Re: Fill Funktion bei paint
 
mh ich weiß nicht also bei mir geht das nicht.
wenn ich auf den button drücke wird das ganz feld grau und wenn ich auf das feld klicke kann ich ganz normal zeichen.
vllt hab ich was übersehen

mfg

dominikkv 18. Apr 2008 22:21

Re: Fill Funktion bei paint
 
Delphi-Quellcode:
Canvas.Brush.Color := clBlue; // Die Farbe mit der ausgefüllt werden soll
Canvas.FloodFill(X, Y, Canvas.Pixels[X, Y], fsSurface); // X und Y ersetzt du natürlich durch deine Koordinaten

counterskiller 18. Apr 2008 22:46

Re: Fill Funktion bei paint
 
erstmal vielen dank, es funktioniert, aber wie bekomme ich es hin, dass wenn man zb ein kreis gemalt hat, nur das äußere ausgemalt wird aber nicht das innere des kreises

XecuterX 20. Apr 2008 19:13

Re: Fill Funktion bei paint
 
Juhuu, ein Thema wo ich mitreden kann :D
Also, in meiner Stufe haben wir das Problem so gelöst:
1. Wenn wir ein Objekt zeichnen (Linien, Rechtecke oder Kreise), dann werden sie mit Koordinaten in einer Liste gespeichert.
2. Wenn du jetzt ein Kreis ausmalen willst, dann musst du mithilfe der Liste überprüfen, ob du in einen geklickt hast.
3. Wenn ja, dann mit dem oben genanten alles ausmalen :) .


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:40 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