FiveTech Software tech support forums

Antonio, I tried also with ::bPainted := { |hDC|FillRectEx( ::hDC, aPoints, aGrad) } or ::bPainted := { |hDC|FloodFill( ::hDC, aPoints [1][1], aPoints [5][1], nil, nColor ) } or local hBru := CreateSolidBrush( nColor ) local hOld := SelectObject( ::hDC, hBru ) local hpen:=CreatePen(0,8,nColor) ...

... aRect, hBrush1 )     SelectObject( hOld1 )     DeleteObject( hBrush1 ) I tried also with FillRect( ::hDC, aRect, hBrush1 ) or FloodFill( ::hDC, aPoints [1][1]+nRaggio , aPoints [5][1]+nRaggio , nil, nColor ) or SetPixel( ::hDC,aPoints [1][1],aPoints [2][1], nColor )

... that the problem is precisely that to draw the contour in using the on:Line() method of any color. As a result, I solved the problem - first using FloodFill, and then saving the fragment to a file (although I couldn't get a contour around the picture). I stopped at .png files because they are smaller ...

Natter wrote:Hi,
1. When viewing .bmp in Windows the polygon frame has turned black
2. When opening .bmp in TBitmap or Timage the polygon frame turns white

That means the color used for the border is an alpha color/ transparent color.
We need the boundary in RGB color to use floodfill

karinha wrote:What is wrong? Show with a picture please.

He did not say there is anything wrong with the code.
He also sent "map.bmp". You can download and view the image.
His problem is floodfill.
We need to help him with that issue, which includes the issue of the color of the rectangle border.'

Hi, I need to paint over the space around the polygon in the picture - floodfill(). On the window, using the :line() method, I limit the green polygon. I make a bitmap of this window FW_MakeYourBitmap() and save it to the file FW_Save Image(). - my.bmp 1. When ...

... nCol,; FILLCOLOR(oImg, nPickRow, nPickCol, nColorSet ) } // ----------- FUNCTION FILLCOLOR( oImg, nRow, nCol, nColor ) LOCAL hDC := oImg:getDc() FloodFill( hDC, nRow, nCol, nil, nColor ) oImg:SaveToBmp( "A.bmp" ) // save the last result :!: oImg:ReleaseDC() RETURN NIL The original test-image ...

... through a record in an xbrowse as you can see on this picture https://i.postimg.cc/k5vLVBr1/hte.png on this application I used FloodFill function  25, 10 BITMAP oBmp RESOURCE "CARTINA" OF oDlg UPDATE PIXEL SIZE 127, 179 NOBORDER TRANSPARENToBmp:bPainted := { ...

Silvio, showing a black and white image I expected that You want to repaint it because from Rao Use Windows GDI functions FloodFill() or ExtFloodFill(). I used the extended test for maybe getting a working FLOODFILL -solution a answer of Your question is included for the first time ...

Silvio my changes and tests I tested < Floodfill and ExtFloodFill > but got NO result :( FUNCTION MAIN()local cFile:="a.bmp"local cColori:="colori.png"local oDlg,oBmp,oImglocal nColor := 0, oColorlocal hdc, nPickRow ...

Otto, Use Windows GDI functions FloodFill() or ExtFloodFill(). a idea maybe using a colorpicker I still have to work on the < floodfill function > I could not' find any working tests inside the forum or sample folder :cry: I don't know ...

Use Windows GDI functions FloodFill() or ExtFloodFill().

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

...     2946 FINDNEXT()             (function  in ?)    WINDOW.PRG      587 FIRSTACTIVECTRL()      (function  in ?)    WINDOW.PRG      589  3921 FLOODFILL()            (function  in ?)    WINDOW.PRG      591   592 FM_CHANGE              WINDOW.PRG     1405 FM_CLICK                WINDOW.PRG   ...

... small application on 16 bit oldest fw+clipper with a database on this database there are fields with posx and posy for to draw with the function floodfill a zone of a map made witha Bitmap ( Italy) the problem now is when I recompile this small Appp not run correctly and when I select a Region ...