Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
General
»
FloodFill
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Browser User Agent & Frie...
by
Aruna
[
Today
at 03:45:33 pm]
programming with Lazarus
by
VisualLab
[
Today
at 03:36:59 pm]
Class designer/editor
by
Aruna
[
Today
at 03:10:32 pm]
Extended Module Player
by
Gigatron
[
Today
at 03:08:43 pm]
Change execution order wh...
by
Khrys
[
Today
at 03:02:06 pm]
Broken Icon Display on ma...
by
wp
[
Today
at 01:59:36 pm]
7zip DLL is super broken
by
rvk
[
Today
at 01:55:47 pm]
TListView.OnChange Event ...
by
wp
[
Today
at 01:38:35 pm]
Searching for a safe alte...
by
marcov
[
Today
at 01:28:57 pm]
Hints.
by
seghele0
[
Today
at 12:29:35 pm]
CLI | Wildcard parameters...
by
Bart
[
Today
at 11:21:42 am]
TDBF Recordcount
by
rvk
[
Today
at 11:19:09 am]
Error code 5
by
ccrause
[
Today
at 11:14:19 am]
Font draw in customdraw i...
by
mikutu
[
Today
at 08:02:02 am]
Problems with Gitlab
by
Joanna
[
Today
at 07:35:08 am]
Cannot open Access databa...
by
Khrys
[
Today
at 06:59:12 am]
TMemo and paste from clip...
by
Aruna
[
Today
at 05:58:24 am]
environment variables
by
dbannon
[
Today
at 01:59:07 am]
TDBDateEdit component def...
by
wp
[September 11, 2024, 11:56:30 pm]
TStateMachine
by
matthius
[September 11, 2024, 11:40:00 pm]
Any support for Perpendic...
by
circular
[September 11, 2024, 09:05:59 pm]
Local Vars often inspect ...
by
Martin_fr
[September 11, 2024, 08:58:22 pm]
Problem with pasting text...
by
artist
[September 11, 2024, 08:55:36 pm]
Identifier capitalization...
by
DomingoGP
[September 11, 2024, 08:33:22 pm]
Listview how to custom or...
by
jenson
[September 11, 2024, 06:10:31 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: FloodFill (Read 488 times)
BubikolRamios
Sr. Member
Posts: 293
FloodFill
«
on:
August 09, 2024, 09:48:20 am »
White is flood filled black, is this intended that the rest of
1 px
black lines are not flooded ?
Code: Pascal
[Select]
[+]
[-]
PaintBox1
.
Canvas
.
FloodFill
(
b
.
X
,
b
.
y
,
PaintBox1
.
Canvas
.
Pixels
[
b
.
X
,
b
.
y
]
,
fsSurface
)
;
«
Last Edit: August 09, 2024, 09:49:54 am by BubikolRamios
»
Logged
lazarus 3.2-fpc-3.2.2-win32/win64
Eugene Loza
Hero Member
Posts: 729
Re: FloodFill
«
Reply #1 on:
August 09, 2024, 08:13:32 pm »
Looks like it's the default behavior, GIMP does exactly the same way (see screenshot, flood-filled your white with black and then with red).
I believe this happens because flood-fill doesn't do "diagonal" movements, only vertical or horizontal.
Logged
My FOSS games in FreePascal&CastleGameEngine:
https://decoherence.itch.io/
(Sources:
https://gitlab.com/EugeneLoza
)
wp
Hero Member
Posts: 12286
Re: FloodFill
«
Reply #2 on:
August 09, 2024, 08:41:48 pm »
The parameter "fsSurface" fills all horizontally and vertically adjacent pixels having the specified color (
https://lazarus-ccr.sourceforge.io/docs/lazutils/graphtype/tgraphicsfillstyle.html
). But when you look carefully at the magnified screenshot in the first post you see that there is no connection from the white to the diagonally adjacent black pixels.
What you can do is to iterate over all pixels, check the color and replace black pixels with white. But do not use the Canvas.Pixels[x,y] property if your image has some reasonable size. Instead, convert the bitmap to a LazIntfImage which gives you much faster access to the pixels; at the end convert back to TBitmap. If you post your test image I can write a procedure for this.
«
Last Edit: August 09, 2024, 08:45:27 pm by wp
»
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
General
»
FloodFill
TinyPortal
© 2005-2018