FiveTech Software tech support forums

https://i.postimg.cc/rFDYXrz3/poli.png

I drew a polygon as you see in this figure with

PolyPolygon( ::oCiclo:GetDC(), aVertex )

but it is not transparent

I had previously used gdiplus (transparent)




Now to draw another figure I have to delete the previously created figure






how can i ...

... I have expanded the TBtnBmp.
Now, when I insert a PopupMenu, I can select the width of the clickable area and use a bitmap instead of the PolyPolygon.
Best regards,
Otto



METHOD PaintPopupSection() CLASS TBtnBmp

local nWidth, nHeight, hDC
local hBlackBrush, hOldBrush
local hDarkPen ...

... connected by straight lines.
The polygon is outlined by using the current pen and filled by using the current brush and polygon fill mode.

PolyPolygon
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-polypolygon

The PolyPolygon function draws a series of ...

... aNumpos[nAt2][3]} aPoints [1] := {aNumpos[nAt1][2], aNumpos[nAt1][3]} * PolyPolygon( ::oWnd:GetDC(),aPoints) ::line( aPoints [1][1],aPoints [1][2],aPoints [2][1&#93 ...

... here is such window
procedure Plg_Dlg
local oBrh
private oPlg

DEFINE BRUSH oBru

DEFINE DIALOG oPlg PIXEL STYLE nOR(WS_POPUP) BRUSH oBru TRANSPARENT
ACTIVATE DIALOG oPlg
return

I draw on it
oPlg:Line()
oPlg:PolyPolygon(GetDc(oPlg:hWnd),..)
and etc.

Then I want to erase the painting.

Using the polypolygon() function, I draw different polygons on the window. Before drawing each new polygon, I need to clear the eye. How do I do it better

... BTNBMP
Error: Unresolved external '_HB_FUN_WNDBOX2007' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|BTNBMP
Error: Unresolved external '_HB_FUN_POLYPOLYGON' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|BTNBMP
Error: Unresolved external '_HB_FUN_WNDRAISED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB ...

Si puedes disponer de los puntos de los vértices puedes usar la function PolyPolygon incluida en Fw

https://msdn.microsoft.com/en-us/librar ... 18(v=vs.85).aspx

Qué datos vas a tener inicialmente?

Silvio,

What drawing do you get with this code ?

aPoints = PolyForms( rc[1]-2, rc[2]-8,::nStarWidth,::nStarHeight,5,-18,31 )
aPoints = { aPoints[ 9 ], aPoints[ 10 ], aPoints[ 1 ], aPoints[ 2 ], aPoints[ 3 ], aPoints[ 4 ], aPoints[ 9 ] }
PolyPolygon( ::hDc, aPoints )

... with
local hPen1 := CreatePen( 0 , 1, nRGB( 255, 0, 0) )local hBrush1  := CreateSolidBrush( nRGB( 255, 0, 0) )hOldBrush := SelectObject( sWnd:hDC, hBrush1 )hOldPen := SelectObject( sWnd:hDC, hPen1 )polypolygon( sWnd:hDC, vsolid )

Marc

... array with the coördinates)
local hBrush1 := CreateSolidBrush( nRGB( 255, 0, 0) )hOldBrush := SelectObject( sWnd:hDC, hBrush1 )polypolygon( sWnd:hDC, vsolid )

The polygon is drawn in red, but there is a black line around it, how can I change this color?

Thanks,
MArc

... the line ( border) at the right

http://img339.imageshack.us/img339/3808/borderdl.jpg

then I create a mine round setup with PolyPolygon function it run ok but on the top there is an error at left and righr where the function PolyPolygon create

the round angle ( you can see it ...

... PalBtnPaint()
ParamCount()
pBmpColors()
pBmpHeigh()
pBmpWidth()
PeekByte()
PeekMessage()
PeekWord()
Pie()
PlayMetafile()
PokeByte()
PokeWord()
PolyPolygon()
PostMessage()
PostQuitMessage()
PrintBegin()
PrinterEsc()
PrinterSetup()
PrnBinSource()
PrnDuplex()
PrnGetName()
PrnGetOrientation ...

I saw on 3dobj a sample to use polygon
AAdd( ::aVertex, { x, y, z } )
obj:AddVertex( 100, 80, 50 )
obj:AddVertex( 200, 85, 75 )
obj:AddVertex( 300, 60, 40 )
PolyPolygon( hDC, ::aVertex )

But I not understand How I can create a draw with this function
can you help me and drar a sample as a button

Hola. Alguien tiene un ejemplo de Polypolygon() ? Deseo manipular unos mapas. Es decir. Tengo ya la imagen del mapa y tengo que reflejar con diferentes colores los resultados de una base de datos. ejemplo. Poblacion de mujeres de un color en una parte del mapa, poblacion de hombres de otro color en ...