FiveTech Software tech support forums

by **Silvio.Falconi** » Sat Jul 30, 2022 9:00 am

Strange where i compile and running not make me error, do i thinked It Is on fwh

by **Silvio.Falconi** » Sun Jul 31, 2022 9:19 pm

Antonio,
Making this .. run bad

Code: Select all Expand view: // refill area of Polygon hBrush1 := CreateSolidBrush( nColor ) hOld1:= SelectObject( hBrush1 ) aRect:= { aPoints [1][1], aPoints [2][1], aPoints [3][1], aPoints [4][1] } FillRect( ::hDC, 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 )

by **Jimmy** » Mon Aug 01, 2022 5:47 am

hi Silvio,

Silvio.Falconi wrote:Now How I can to refill the area with transparent color ?

have not work with it yet

i "think" you need Polygon API Function
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-polygon

The Polygon function draws a polygon consisting of two or more vertices 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 closed polygons. Each polygon is outlined by using the current pen and filled by using the current brush and polygon fill mode. The polygons drawn by this function can overlap.

---

perhaps you need a "Region" Function

CreatePolygonRgn function
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-createpolygonrgn

CreatePolyPolygonRgn function
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-createpolypolygonrgn

by **Silvio.Falconi** » Wed Aug 03, 2022 8:43 pm

For now I have to give up the refill of the area, I have created 10 circles to display all the shapes of the 10 lottery reels

I saw that it can not do them automatically I do not understand why

if I associate a button with the function Mostra_Form(aCicloSmall,aColors,oBrw) then it create the form but then there is the erro U see on snapshot

In the class I'm going to memorize the graph points where the numbers are positioned, that is the positions where to draw the shapes

when I call the Distance_multiple () method it needs the positions of the circle

I did not understand why it does not find them

this does not happen in the large circle even if it does not initially create the shape of the first record "Bari"

if after I scroll through the browse, the procedure shows the corresponding form

in the test I go to create adata by uploading data from an Italian site of Italian state television

test.prg

Code: Select all Expand view: #include "fivewin.ch" #include "constant.ch" #include "colors.ch" //fwcolors // test for TCyclometric class for Italian Lottery Function Test() local oCicloMetric local aCicloSmall:=array(11) local oDlg,oFont,oBold local oBtnPos,oBtnClose local nBottom := 43 local nRight := 120 local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) local nHeight := nBottom * DLG_CHARPIX_H local cUrl:="http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786" local adata:=TestUrl( cUrl ) local oBrw local aColors:= {CLR_BLUE,; CLR_GREEN,; CLR_RED,; CLR_MAGENTA,; CLR_BROWN,; CLR_HGRAY,; CLR_LIGHTGRAY,; CLR_HBLUE,; CLR_HMAGENTA,; METRO_VIOLET ,; METRO_BROWN} DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-10 DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD DEFINE DIALOG oDlg SIZE nWidth, nHeight ; PIXEL TRUEPIXEL FONT oFont ; //RESIZABLE TiTle "Manage Ciclometric" @ 200,500 XBROWSE oBrw OF oDlg SIZE 300,250 PIXEL NOBORDER; COLS 1,2,3,4,5,6; HEADERS "Ruota", "E1", "E2", "E3", "E4", "E5" ; SIZES 80,30,30,30,30,30 ; ARRAY adata ; CELL LINES WITH OBJECT oBrw :nRowHeight := 20 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :lHeader := .f. :lHscroll := .f. :lvscroll := .f. :l2007 := .F. :l2015 := .t. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector := .F. :nColDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_LIGHTGRAY :bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, nRgb(173,216,230) , CLR_WHITE ) } } :bChange := { ||Showform(oBrw:nArrayAt,oCicloMetric,aColors,oBrw) } :CreateFromCode() End //------------------------------------------------------------------------// //Big Circle oCicloMetric:= TCyclometric():New(90,15,510,510, oDlg,380) oCicloMetric:lShowNumbers:=.t. oCicloMetric:nDimPenCircle:= 3 oCicloMetric:nDimPenLine:= 3 @ 100,10 BUTTON oBtnClose PROMPT "Close" of oDlg SIZE 80,22 ACTION oDlg:End() @ 100,10 BUTTON oBtnPos PROMPT "Test position" of oDlg SIZE 80,22 ; ACTION Mostra_Form(aCicloSmall,aColors,oBrw) oDlg:bResized := <|| local oRect := oDlg:GetCliRect() oBtnClose:nLeft := oRect:nRight - 100 oBtnClose:nTop := oRect:nBottom - 45 oBtnPos:nLeft := oRect:nLeft +10 oBtnPos:nTop := oRect:nBottom - 45 RETURN NIL > ACTIVATE DIALOG oDlg CENTERED ; ON INIT (oBrw:setfocus(),; Showform(oBrw:nArrayAt,oCicloMetric,aColors,oBrw),; aCicloSmall:=Mostra_Ciclo_Ruote(oBrw,oDlg,aCicloSmall,aColors) ,; Eval(oDlg:bResized)) RELEASE FONT oFont, oBold Return nil //---------------------------------------------------------------------------// Function Showform(nRecord,oCiclo,aColors,oBrw) local aNumeri:= {} local atemp:= {} local cText local num1,num2,num3,num4,num5 nColor:=aColors[ nRecord ] AAdd(atemp,oBrw:aArrayData[ nRecord ] ) cText:=atemp[1][1] //text num1 :=atemp[1][2] num2 :=atemp[1][3] num3 :=atemp[1][4] num4 :=atemp[1][5] num5 :=atemp[1][6] aNumeri := {num1,num2,num3,num4,num5} ASort( aNumeri, nil, nil, { |x,y| x < y } ) num1 :=aNumeri[1] num2 :=aNumeri[2] num3 :=aNumeri[3] num4 :=aNumeri[4] num5 :=aNumeri[5] oCiclo:Paint() oCiclo:Distance_Multiple(val(num1),val(num2),val(num3),val(num4),val(num5),nColor,oCiclo:apos) Return nil //-----------------------------------------------------------------------------------------/ Function TestUrl( cUrl ) local cRet:="" local cData:="" local cFile := "test.txt" local cBuff local nHndl local aShow:={} local nI IF IsInternet() cRet := WebPageContents( cUrl ) cData := WebPageContents( cUrl ) if Empty( cRet ) ? "Invalid URL" else //per la data estrazione cData := subStr( cData, at( "ALMANACCO", cData )+9 ) cData := allTrim( subStr( cData, 1, at("BARI", cData ) -1 ) ) // per il blocco Bari - Nazionale cRet := subStr( cRet, at( "BARI", cRet ) ) cRet := allTrim( subStr( cRet, 1, at( "Controlla", cRet ) - 1 ) ) nHndl := fCreate( cFile ) fWrite( nHndl, cRet ) fClose( nHndl ) IF ( nHndl := fOpen( cFile ) ) < 1 msgStop( "UNABLE TO OPEN: " + cFile ) ELSE aShow := {} WHILE hb_fReadLine( nHndl, @cBuff, chr( 10 ) ) == 0 cBuff := allTrim( cBuff ) IF ! empty( cBuff ) aAdd( aShow, {} ) aAdd( aTail( aShow ), subStr( cBuff, 1, 11 ) ) FOR nI := 12 TO 28 STEP 4 aAdd( aTail( aShow ), subStr( cBuff, nI, 2 ) ) NEXT ENDIF ENDDO * xBrowse( aShow ) ferase(cfile) return aShow ENDIF endif else MsgAlert("Controlla la connessione su internet!","EasyLotto") endif return nil //--------------------------------------------------// Function Mostra_Ciclo_Ruote(oBrw,oDlg,aCicloMetric,aColors) local nRuote:= 11,n local xCol local xSay local nRow,nCol local nDia,nHeight,nWidth Local aRuote := {"Bari","Cagliari","Firenze","Genova",; "Milano","Napoli","Palermo","Roma","Torino",; "Venezia","Nazionale"} local nColor,atemp:= {} local ctext,num1,num2,num3,num4,num5 local aNumeri:= {} nRow:= 5 nCol:= 10 nDia:= 80 nHeight:= nDia+20 nWidth := nDia+nCol xCol:= 50 xSay:= 50 For n= 1 to 10 aCicloMetric[n]:= TCyclometric():New(nRow,nCol,nWidth,nHeight, oDlg,nDia) aCicloMetric[n]:lShowNumbers:=.f. aCicloMetric[n]:nDimPenCircle:= 0.2 aCicloMetric[n]:lShowSMallCircles:=.f. aCicloMetric[n]:lShowDistance:=.f. nCol+= xCol -10 nWidth := nDia+nCol @ nHeight+8,xSay say aRuote[n] size 55,18 PIXEL OF oDlg xSay+= 80 next return aCicloMetric Function Mostra_Form(aCicloMetric,aColors,oBrw) local n local aPosNew For n= 1 to len(aCicloMetric) aNum:= Give_Numbers(oBrw,n) nColor:=aColors[ n ] num1 :=val(aNum[1]) num2 :=val(aNum[2]) num3 :=val(aNum[3]) num4 :=val(aNum[4]) num5 :=val(aNum[5]) aPosNew := aCicloMetric[n]:apos * aCicloMetric[n]:Paint() aCicloMetric[n]:Distance_Multiple(num1,num2,num3,num4,num5,nColor,aPosNew) next return nil Function Give_Numbers(oBrw,nrecord) local aNumeri:= {} local atemp:= {} local cText local num1,num2,num3,num4,num5 AAdd(atemp,oBrw:aArrayData[ nRecord ] ) cText:=atemp[1][1] //text num1 :=atemp[1][2] num2 :=atemp[1][3] num3 :=atemp[1][4] num4 :=atemp[1][5] num5 :=atemp[1][6] aNumeri := {num1,num2,num3,num4,num5} ASort( aNumeri, nil, nil, { |x,y| x < y } ) num1 :=aNumeri[1] num2 :=aNumeri[2] num3 :=aNumeri[3] num4 :=aNumeri[4] num5 :=aNumeri[5] Return aNumeri

The TCyclometric class ( New Release)

Code: Select all Expand view: #include "fivewin.ch" // TCyclometric class for Italian Lottery #define darkgray nRgb(169,169,169) #define darkorange nRgb(255,140,0) #define darkred nRgb(139,0,0) #define lightblue nRgb(173,216,230) #define TA_CENTER 6 #define COLOR_BTNFACE 15 #define PS_SOLID 0 CLASS TCyclometric FROM TControl CLASSDATA lRegistered AS LOGICAL DATA nDiametro DATA oFont,oBold DATA aPos AS ARRAY DATA lShowNumbers AS LOGICAL init .T. DATA lShowSmallCircles AS LOGICAL init .T. DATA lShowDistance AS LOGICAL init .T. DATA nDimPenCircle,nDimPenLine METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, nDiametro) CONSTRUCTOR METHOD Init( hDlg ) METHOD End() INLINE if( ::hWnd == 0, ::Destroy(), Super:End() ) METHOD Destroy() METHOD Display() METHOD Paint() METHOD Line( nTop, nLeft, nBottom, nRight, oPen ) METHOD Say( nRow, nCol, cText, nClrFore, nClrBack, oFont, lPixel,lTransparent, nAlign ) METHOD Distance(num1,num2) METHOD Distance_Multiple(num1,num2,num3,num4,num5) METHOD Say_distance(num1,num2) ENDCLASS METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, nDiametro,; lDesign,lShowNumbers,nDimPenCircle,nDimPenLine,lShowSMallCircles,lShowDistance ) CLASS TCyclometric DEFAULT nDiametro := 200 ,; nHeight := 200 ,; nLeft := 10 ,; nTop := 10 ,; nWidth := 200 ,; lDesign := .f. ,; lShowNumbers := .t. ,; lShowDistance := .t. ,; lShowSMallCircles := .t. ,; nDimPenCircle := 1 ,; nDimPenLine := 1 ,; oWnd := GetWndDefault() ::nId := ::GetNewId() ::nTop := nTop ::nLeft := nLeft ::nBottom := nTop + nHeight - 1 ::nRight := nLeft + nWidth - 1 ::oWnd := oWnd ::lDrag := lDesign ::oBrush := TBrush():New(,GetSysColor(COLOR_BTNFACE) ) ::apos := {} ::nDiametro = nDiametro ::oFont = TFont():New( "Tahoma", 0, -10 ) ::oBold = TFont():New( "Verdana", 0, -10, , .t. ) ::nStyle := nOr( WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_CLIPSIBLINGS ) ::Register( nOr( CS_VREDRAW, CS_HREDRAW ) ) ::lShowNumbers := lShowNumbers ::nDimPenCircle := nDimPenCircle ::nDimPenLine := nDimPenLine ::lShowSMallCircles := lShowSMallCircles ::lShowDistance := lShowDistance if ! Empty( oWnd:hWnd ) ::Create() ::Default() ::lVisible = .t. oWnd:AddControl( Self ) else oWnd:DefControl( Self ) ::lVisible = .f. endif if lDesign ::CheckDots() endif Return self //--------------------------------------------------------------------------------------------------------// METHOD Init( hDlg ) CLASS TCyclometric Super:Init( hDlg ) return nil //--------------------------------------------------------------------------------------------------------// METHOD Destroy() CLASS TCyclometric if ::hWnd != 0 ::Super:Destroy() endif return nil //--------------------------------------------------------// METHOD Display() CLASS TCyclometric ::BeginPaint() ::Paint() ::EndPaint() return 0 //--------------------------------------------------------// METHOD Paint() CLASS TCyclometric local nI local nRaggio := (::nDiametro/2) local xCent := ::nLeft+nRaggio local yCent := ::nTop+nRaggio local aTcPen := array(4) local nTotalNumbers := 90 local step_fi := PI() / 4.5 / 10 // add by Jimmy local hDc:=::getDc(), nDeltaR local nRaggioSay,nY2,nX2 aTcPen[1] := CREATEPEN( PS_SOLID, ::nDimPenCircle, darkgray ) aTcPen[2] := CREATEPEN( PS_SOLID, ::nDimPenLine, darkred ) //draw the circle Ellipse(hDC,::nLeft,::nTop,::nLeft+::nDiametro,::nTop+ ::nDiametro,aTcPen[1]) //draw the numbers nYOffset = ::oFont:nHeight / 2 nXOffset = ::oFont:nWidth / 2 nDeltaR := ::oFont:nHeight FOR nI = 1 TO nTotalNumbers nAngolo := 2* Pgreco() / nTotalNumbers * ( nI - 1 ) nY := INT( nRaggio * SIN(( ni-22.5) * step_fi ) + yCent) nX := INT( nRaggio * COS(( ni-22.5) * step_fi ) + xCent) If ::lShowSMallCircles // small circles Ellipse(hDC, nX,nY ,nX-3,nY+3,aTcPen[2]) Endif // Save the positions of numbers aadd( ::apos , {nI,nY,nX} ) If ::lShowNumbers nRaggioSay := (::nDiametro/2) + 10 nY2 := INT( nRaggioSay * SIN(( ni-22.5) * step_fi ) + yCent) nX2 := INT( nRaggioSay * COS(( ni-22.5) * step_fi ) + xCent) ::Say( nY2 - nYOffset, nX2 - 0, hb_ntoc( nI,0 ),CLR_RED , , ::oFont, .t.,.t., TA_CENTER ) Endif //Say( nRow, nCol, cText, nClrFore, nClrBack, oFont, lPixel, lTransparent, nAlign ) NEXT ::ReleaseDC() return nil //--------------------------------------------------------------// STAT FUNC Pgreco(); RETURN (3.1415926536) //--------------------------------------------------------------// METHOD Line( nTop, nLeft, nBottom, nRight, nColor, nDim ) CLASS TCyclometric * local hPen := if( oPen = nil, 0, oPen:hPen ) local oPen := CreatePen(PS_SOLID, nDim, nColor ) local hOldPen ::GetDC() hOldPen := SelectObject( ::hDC, oPen ) MoveTo( ::hDC, nLeft, nTop ) LineTo( ::hDC, nRight, nBottom, oPen ) SelectObject( ::hDC, hOldPen ) ::ReleaseDC() return nil //--------------------------------------------------------------// METHOD Say( nRow, nCol, cText, nClrFore, nClrBack, oFont, lPixel,; lTransparent, nAlign ) CLASS TCyclometric DEFAULT nClrFore := ::nClrText,; nClrBack := ::nClrPane,; oFont := ::oFont,; lPixel := .f.,; lTransparent := .f. if ValType( nClrFore ) == "C" // xBase Color string nClrBack = nClrFore nClrFore = nGetForeRGB( nClrFore ) nClrBack = nGetBackRGB( nClrBack ) endif ::GetDC() DEFAULT nAlign := GetTextAlign( ::hDC ) WSay( ::hWnd, ::hDC, nRow, nCol, cValToChar( cText ), nClrFore, nClrBack,; If( oFont != nil, oFont:hFont, 0 ), lPixel, lTransparent, nAlign ) ::ReleaseDC() return nil //--------------------------------------------------------------// METHOD Distance(num1,num2) CLASS TCyclometric local aNumpos := ::apos local nAt1,nAt2 local oPen,hOldPen local aRect:= {} local nDistanza,nYOffset,nXOffset, nY,nX // xbrowser aNumpos nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) aRect:= {aNumpos[nAt1][2],aNumpos[nAt1][3],aNumpos[nAt2][2],aNumpos[nAt2][3]} ::line( aRect[1],aRect[2],aRect[3],aRect[4], CLR_RED) // draw the distance number IF num2>num1 nDistanza:= num2-num1 else nDistanza:= num1-num2 Endif If nDistanza > 45 nDistanza:= 90-nDistanza Endif nYOffset = ::oFont:nHeight / 2 nXOffset = ::oFont:nWidth / 2 nY := aRect[2] nX := aRect[4] ::Say( nY - nYOffset, nX - nXOffset, LTRIM( STRzero( nDistanza,2 ) ), , , ::oFont, .t.,; .t., nil ) return nil //--------------------------------------------------------------// METHOD Distance_Multiple(num1,num2,num3,num4,num5,nColor) CLASS TCyclometric local aNumpos := ::apos local nAt1,nAt2,nAt3,nAt4,nAt5 local oPen,hOldPen local aRect:= {} local nDistanza,nYOffset,nXOffset, nY,nX local nRaggio := (::nDiametro/2) local xCent := ::nLeft+nRaggio local yCent := ::nTop+nRaggio local aPoints := array(5) local hBrush1,hOld1 nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) nAt3:= AScan( aNumpos, { | a | a[1] = num3 } ) nAt4:= AScan( aNumpos, { | a | a[1] = num4 } ) nAt5:= AScan( aNumpos, { | a | a[1] = num5 } ) aPoints [5] := {aNumpos[nAt5][2], aNumpos[nAt5][3]} aPoints [4] := {aNumpos[nAt4][2], aNumpos[nAt4][3]} aPoints [3] := {aNumpos[nAt3][2], aNumpos[nAt3][3]} aPoints [2] := {aNumpos[nAt2][2], aNumpos[nAt2][3]} aPoints [1] := {aNumpos[nAt1][2], aNumpos[nAt1][3]} ::line( aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2], nColor,::nDimPenLine) ::line( aPoints [2][1],aPoints [2][2],aPoints [3][1],aPoints [3][2], nColor,::nDimPenLine) ::line( aPoints [3][1],aPoints [3][2],aPoints [4][1],aPoints [4][2], nColor,::nDimPenLine) ::line( aPoints [4][1],aPoints [4][2],aPoints [5][1],aPoints [5][2], nColor,::nDimPenLine) ::line( aPoints [5][1],aPoints [5][2],aPoints [1][1],aPoints [1][2], nColor,::nDimPenLine) IF ::lShowDistance ::Say_distance(num1,num2) ::Say_distance(num2,num3) ::Say_distance(num3,num4) ::Say_distance(num4,num5) ::Say_distance(num5,num1) Endif ::ReleaseDC() return nil //by Antonino /* METHOD Distance_Multiple(num1,num2,num3,num4,num5) CLASS TCyclometric local aNumpos := ::apos local nAt1,nAt2,nAt3,nAt4,nAt5 local oPen,hOldPen local aRect:= {} local nDistanza,nYOffset,nXOffset, nY,nX local aPoints := array(5) // xbrowser aNumpos nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) nAt3:= AScan( aNumpos, { | a | a[1] = num3 } ) nAt4:= AScan( aNumpos, { | a | a[1] = num4 } ) nAt5:= AScan( aNumpos, { | a | a[1] = num5 } ) aPoints [5] := {aNumpos[nAt5][3], aNumpos[nAt5][2]} aPoints [4] := {aNumpos[nAt4][3], aNumpos[nAt4][2]} aPoints [3] := {aNumpos[nAt3][3], aNumpos[nAt3][2]} aPoints [2] := {aNumpos[nAt2][3], aNumpos[nAt2][2]} aPoints [1] := {aNumpos[nAt1][3], aNumpos[nAt1][2]} PolyPolygon( ::GetDC(),aPoints) ::ReleaseDC() return nil */ //-----------------------------------------------------------------------// METHOD Say_distance(num1,num2) CLASS TCyclometric local nDistanza:= 0 local nAt1,nAt2 local aNumpos := ::apos local aRect:= {} local nYOffset,nXOffset, nY,nX //calc the distance IF num2>num1 nDistanza:= num2-num1 else nDistanza:= num1-num2 Endif If nDistanza > 45 nDistanza:= 90-nDistanza Endif // Print the distance nYOffset = ::oFont:nHeight / 2 nXOffset = ::oFont:nWidth / 2 nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) IF aNumpos[nAt1][3] > aNumpos[nAt2][3] nX := aNumpos[nAt2][3] + ( aNumpos[nAt1][3] - aNumpos[nAt2][3] ) /2 ELSE nX := aNumpos[nAt1][3] + ( aNumpos[nAt2][3] - aNumpos[nAt1][3] ) /2 ENDIF IF aNumpos[nAt1][2] > aNumpos[nAt2][2] nY := aNumpos[nAt2][2] + ( aNumpos[nAt1][2] - aNumpos[nAt2][2] ) /2 ELSE nY := aNumpos[nAt1][2] + ( aNumpos[nAt2][2] - aNumpos[nAt1][2] ) /2 ENDIF ::Say( nY - nYOffset, nX - 0, LTRIM( STRzero( nDistanza,2 ) ),CLR_BLACK , , ::oFont, .t.,.t., nil ) return Nil

by **Silvio.Falconi** » Fri Dec 02, 2022 11:12 am

I tried to improve the class because the object is not centered now the circle is inside the object
practically creating the circumference I halved the measures as you can see in this picture

But now I have problems with the small circles and the numbers because they are attached and I don't understand why

numbers must be 1 to 90 and the number 1 must be located in the top center, the number 45 in the bottom center

even the circles are not all attached and instead should be drawn one behind the other, the position is bad

is there someone can help me please ?

the test with new class

Code: Select all Expand view: #include "fivewin.ch" #include "constant.ch" Function Test() local oDlg,oFont,oBold local oBtnClose local nBottom := 24 local nRight := 55 local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) local nHeight := nBottom * DLG_CHARPIX_H local oCicloMetric DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-10 DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD DEFINE DIALOG oDlg SIZE nWidth, nHeight ; PIXEL TRUEPIXEL FONT oFont ; //RESIZABLE TiTle "Manage Ciclometric" oCicloMetric:= TCyclometric():New( 1, 1, oDlg, 400, 300, CLR_HGRAY) @ 100,10 BUTTON oBtnClose PROMPT "Close" of oDlg SIZE 80,22 ACTION oDlg:End() oDlg:bResized := <|| local oRect := oDlg:GetCliRect() oBtnClose:nLeft := oRect:nRight - 100 oBtnClose:nTop := oRect:nBottom - 45 RETURN NIL > ACTIVATE DIALOG oDlg CENTERED; ON INIT ( Eval(oDlg:bResized)) RELEASE FONT oFont, oBold Return nil //------------------------------------------------------------------// #define darkgray nRgb(169,169,169) #define darkorange nRgb(255,140,0) #define darkred nRgb(139,0,0) #define lightblue nRgb(173,216,230) #define TA_CENTER 6 #define COLOR_BTNFACE 15 #define PS_SOLID 0 Class TCyclometric From Tcontrol CLASSDATA lRegistered AS LOGICAL DATA nColorCirc DATA nColorText DATA oFont DATA lShowSmallCircles DATA lDrawBorder DATA nMedWidth,nMedHeight,nMedSide DATA nTopCir,nLeftCir DATA nRadiusExt DATA nRadiusInt METHOD New( nRow, nCol, oWnd, nWidth, nHeight) CONSTRUCTOR METHOD Paint() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD PaintCircle() METHOD PaintNumbers() ENDCLASS //-----------------------------------------------------------------------// METHOD New( nRow, nCol, oWnd, nWidth, nHeight, nColorCirc,oFont,nColorText,; lPixel, lDesign,lShowSMallCircles,lDrawBorder) Class TCyclometric DEFAULT nRow := 0, nCol := 0, oWnd := GetWndDefault() DEFAULT lPixel := .f. DEFAULT nColorCirc := CLR_HGRAY DEFAULT nWidth := 50, nHeight := 50,; lDesign := .f. DEFAULT lShowSMallCircles := .t. DEFAULT lDrawBorder := .t. //test ::nTop = If( lPixel, nRow, nRow * MTR_CHARPIX_H ) //14 ::nLeft = If( lPixel, nCol, nCol * MTR_CHARPIX_W ) //8 ::nBottom = ::nTop + nHeight ::nRight = ::nLeft + nWidth ::oWnd = oWnd ::lDrawBorder = lDrawBorder ::nId = ::GetNewId() ::nColorCirc = nColorCirc ::lShowSMallCircles := lShowSMallCircles ::lDrag = lDesign ::lCaptured = .f. ::ltransparent =.t. if oFont == nil DEFINE FONT ::oFont NAME "Verdana" SIZE 0, -10 BOLD else ::SetFont( oFont ) endif ::nColorText = nColorText ::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN, WS_TABSTOP,; if( lDrawBorder, WS_BORDER, 0 ) ) ::Register() if ! Empty( ::oWnd:hWnd ) ::Create() ::Default() ::oWnd:AddControl( Self ) if ::oWnd:oBrush != nil ::SetBrush( ::oWnd:oBrush ) endif else ::oWnd:DefControl( Self ) endif if lDesign ::CheckDots() endif return Self //------------------------------------------------------------// METHOD Paint() Class TCyclometric local aInfo, aRect aInfo := ::DispBegin() if ::lTransparent .or. ::nOpacity < 255 aRect := GetClientRect( ::hWnd ) SetBrushOrgEx( ::hDC, -::nLeft, -::nTop ) FillRect( ::hDC, aRect, ::oWnd:oBrush:hBrush ) if ! ::lTransparent FillRectEx( ::hDC, aRect, nARGB( ::nOpacity, ::nClrPane ) ) endif else ::PaintBack( ::hDC ) endif ::PaintCircle() //draw the main circle ::PaintNumbers() //draw the numbers and small circles if ValType( ::bPainted ) == "B" Eval( ::bPainted, ::hDC, ::cPS, Self ) endif ::DispEnd( aInfo ) return nil //------------------------------------------------------------------------// METHOD PaintCircle() Class TCyclometric local aRect := GetClientRect( ::hWnd ) local oPen := CREATEPEN( PS_SOLID, 2, darkgray ) ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 ::nMedSide := min( ::nMedWidth, ::nMedHeight ) - 10 ellipse( ::hDC, ::nLeftCir - ::nMedSide,; ::nTopCir - ::nMedSide,; ::nLeftCir + ::nMedSide,; ::nTopCir + ::nMedSide,oPen ) return 0 //------------------------------------------------------------------------// METHOD PaintNumbers() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local step_fi := PI() / 4.5 / 10 local aRect := GetClientRect( ::hWnd ) local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nColor ::nRadiusExt := int( ::nMedSide ) * 0.98 ::nRadiusInt := ::nRadiusExt * 0.98 //draw numbers and circles FOR nI = 1 TO nTotalNumbers nTop := ::nTopCir - ( ::nRadiusInt * Cos( nI ) ) nLeft := ::nLeftCir + ( ::nRadiusInt * Sin( nI ) ) Ellipse(::hDC, nLeft - 5, nTop - 5, nLeft+ 5, nTop + 5 ) ::Say( nTop , nLeft , hb_ntoc( nI,0 ),CLR_RED , , ::oFont, .t.,.t., TA_CENTER ) NEXT return 0 //------------------------------------------------------------------------//

with circles and numbers together

by **Silvio.Falconi** » Fri Dec 02, 2022 11:37 am

Now I correct the position of numbers but there is also some errors

Code: Select all Expand view: METHOD PaintNumbers() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nColor local nAngolo ::nRadiusExt := int( ::nMedSide ) * 0.98 ::nRadiusInt := ::nRadiusExt * 0.98 //draw numbers and circles FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusInt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusInt * Sin( nAngolo ) ) * Ellipse(::hDC, nLeft - 5, nTop - 5, nLeft+ 5, nTop + 5 ) ::Say( nTop , nLeft , hb_ntoc( nI,0 ),CLR_RED , , ::oFont, .t.,.t., TA_CENTER ) NEXT return 0 //------------------------------------------------------------------------//

the numbers must be outside the circumference

While the small circles seems run ok and right position

by **Silvio.Falconi** » Fri Dec 02, 2022 12:10 pm

Perhaps I resolve but there is a small error

Now the small circles are right and in their place and also the numbers only in the lower part touch the edge of the object
the numbers seem crooked to me i.e. there is no axis 90-> 45 the numbers are slightly off , How I can resolve ?

New code

Code: Select all Expand view: #include "fivewin.ch" #include "constant.ch" Function Test() local oDlg,oFont,oBold local oBtnClose local nBottom := 24 local nRight := 55 local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) local nHeight := nBottom * DLG_CHARPIX_H local oCicloMetric DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-10 DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD DEFINE DIALOG oDlg SIZE nWidth, nHeight ; PIXEL TRUEPIXEL FONT oFont ; //RESIZABLE TiTle "Manage Ciclometric" oCicloMetric:= TCyclometric():New( 1, 1, oDlg, 400, 300, CLR_HGRAY) @ 100,10 BUTTON oBtnClose PROMPT "Close" of oDlg SIZE 80,22 ACTION oDlg:End() oDlg:bResized := <|| local oRect := oDlg:GetCliRect() oBtnClose:nLeft := oRect:nRight - 100 oBtnClose:nTop := oRect:nBottom - 45 RETURN NIL > ACTIVATE DIALOG oDlg CENTERED; ON INIT ( Eval(oDlg:bResized)) RELEASE FONT oFont, oBold Return nil //------------------------------------------------------------------// #define darkgray nRgb(169,169,169) #define darkorange nRgb(255,140,0) #define darkred nRgb(139,0,0) #define lightblue nRgb(173,216,230) #define TA_CENTER 6 #define COLOR_BTNFACE 15 #define PS_SOLID 0 Class TCyclometric From Tcontrol CLASSDATA lRegistered AS LOGICAL DATA nColorCirc DATA nColorText DATA oFont DATA lShowSmallCircles DATA lDrawBorder DATA nMedWidth,nMedHeight,nMedSide DATA nTopCir,nLeftCir DATA nRadiusExt DATA nRadiusInt METHOD New( nRow, nCol, oWnd, nWidth, nHeight) CONSTRUCTOR METHOD Paint() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD PaintCircle() METHOD PaintNumbers() METHOD PaintSmallCircles() ENDCLASS //-----------------------------------------------------------------------// METHOD New( nRow, nCol, oWnd, nWidth, nHeight, nColorCirc,oFont,nColorText,; lPixel, lDesign,lShowSMallCircles,lDrawBorder) Class TCyclometric DEFAULT nRow := 0, nCol := 0, oWnd := GetWndDefault() DEFAULT lPixel := .f. DEFAULT nColorCirc := CLR_HGRAY DEFAULT nColorText := CLR_BLUE DEFAULT nWidth := 50, nHeight := 50,; lDesign := .f. DEFAULT lShowSMallCircles := .t. DEFAULT lDrawBorder := .t. //test ::nTop = If( lPixel, nRow, nRow * MTR_CHARPIX_H ) //14 ::nLeft = If( lPixel, nCol, nCol * MTR_CHARPIX_W ) //8 ::nBottom = ::nTop + nHeight ::nRight = ::nLeft + nWidth ::oWnd = oWnd ::lDrawBorder = lDrawBorder ::nId = ::GetNewId() ::nColorCirc = nColorCirc ::lShowSMallCircles := lShowSMallCircles ::lDrag = lDesign ::lCaptured = .f. ::ltransparent =.t. if oFont == nil DEFINE FONT ::oFont NAME "TAHOMA" SIZE 0, -10 else ::SetFont( oFont ) endif ::nColorText = nColorText ::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN, WS_TABSTOP,; if( lDrawBorder, WS_BORDER, 0 ) ) ::Register() if ! Empty( ::oWnd:hWnd ) ::Create() ::Default() ::oWnd:AddControl( Self ) if ::oWnd:oBrush != nil ::SetBrush( ::oWnd:oBrush ) endif else ::oWnd:DefControl( Self ) endif if lDesign ::CheckDots() endif return Self //------------------------------------------------------------// METHOD Paint() Class TCyclometric local aInfo, aRect aInfo := ::DispBegin() if ::lTransparent .or. ::nOpacity < 255 aRect := GetClientRect( ::hWnd ) SetBrushOrgEx( ::hDC, -::nLeft, -::nTop ) FillRect( ::hDC, aRect, ::oWnd:oBrush:hBrush ) if ! ::lTransparent FillRectEx( ::hDC, aRect, nARGB( ::nOpacity, ::nClrPane ) ) endif else ::PaintBack( ::hDC ) endif ::PaintCircle() //draw the main circle ::PaintSmallCircles() //small circles ::PaintNumbers() //draw the numbers if ValType( ::bPainted ) == "B" Eval( ::bPainted, ::hDC, ::cPS, Self ) endif ::DispEnd( aInfo ) return nil //------------------------------------------------------------------------// METHOD PaintCircle() Class TCyclometric local aRect := GetClientRect( ::hWnd ) local oPen := CREATEPEN( PS_SOLID, 2, darkgray ) ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 ::nMedSide := min( ::nMedWidth, ::nMedHeight ) - 10 ellipse( ::hDC, ::nLeftCir - ::nMedSide,; ::nTopCir - ::nMedSide,; ::nLeftCir + ::nMedSide,; ::nTopCir + ::nMedSide,oPen ) return 0 //------------------------------------------------------------------------// METHOD PaintSmallCircles() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nAngolo ::nRadiusExt := int( ::nMedSide ) * 0.98 ::nRadiusInt := ::nRadiusExt * 0.98 //draw circles FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusInt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusInt * Sin( nAngolo ) ) Ellipse(::hDC, nLeft - 5, nTop - 5, nLeft+ 5, nTop + 5 ) NEXT return 0 //------------------------------------------------------------------------// METHOD PaintNumbers() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nColor local nAngolo local nMedSidetxt := min( ::nMedWidth, ::nMedHeight ) ::nRadiusExt := int( nMedSidetxt ) * 0.98 //draw numbers and circles FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) ::Say( ntop - nYOffset , nLeft , hb_ntoc( nI,0 ),::nColorText , , ::oFont, .t.,.t., TA_CENTER ) NEXT return 0 //------------------------------------------------------------------------//

as you can see here

the number 90 is not in the center and consequently the number 45 is displaced

i don't know how to solve

by **Silvio.Falconi** » Fri Dec 02, 2022 1:11 pm

* correct the numbers text on the bottom

* when drawing the geometric shape corresponding to the xbrowse line, the lines are wrong because they don't point to the real xbrowse values

New code

Code: Select all Expand view: #include "fivewin.ch" #include "constant.ch" Function Test() local oDlg,oFont,oBold local oBtnClose local nBottom := 38 local nRight := 99 local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) local nHeight := nBottom * DLG_CHARPIX_H local cUrl:="http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786" local adata:=TestUrl( cUrl ) local oBrw local oCicloMetric local aColors:= {CLR_BLUE,; CLR_GREEN,; CLR_RED,; CLR_MAGENTA,; CLR_BROWN,; CLR_HGRAY,; CLR_LIGHTGRAY,; CLR_HBLUE,; CLR_HMAGENTA,; METRO_VIOLET ,; METRO_BROWN} DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-10 DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD DEFINE DIALOG oDlg SIZE nWidth, nHeight ; PIXEL TRUEPIXEL FONT oFont RESIZABLE ; // TiTle "Manage Ciclometric" oCicloMetric:= TCyclometric():New( 8, 1, oDlg, 500, 500, CLR_HGRAY) @ 200,600 XBROWSE oBrw OF oDlg SIZE 300,250 PIXEL NOBORDER; COLS 1,2,3,4,5,6; HEADERS "Ruota", "E1", "E2", "E3", "E4", "E5" ; SIZES 80,30,30,30,30,30 ; ARRAY adata ; CELL LINES WITH OBJECT oBrw :nRowHeight := 20 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :lHeader := .f. :lHscroll := .f. :lvscroll := .f. :l2007 := .F. :l2015 := .t. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector := .F. :nColDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_LIGHTGRAY :bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, nRgb(173,216,230) , CLR_WHITE ) } } :bChange := { ||Showform(oBrw:nArrayAt,oCicloMetric,aColors,oBrw) } :CreateFromCode() End @ 100,10 BUTTON oBtnClose PROMPT "Close" of oDlg SIZE 80,22 ACTION oDlg:End() oDlg:bResized := <|| local oRect := oDlg:GetCliRect() oBtnClose:nLeft := oRect:nRight - 100 oBtnClose:nTop := oRect:nBottom - 45 RETURN NIL > ACTIVATE DIALOG oDlg CENTERED; ON INIT ( Eval(oDlg:bResized)) RELEASE FONT oFont, oBold Return nil //----------------------------------------------------------------------// Function TestUrl( cUrl ) local cRet:="" local cData:="" local cFile := "test.txt" local cBuff local nHndl local aShow:={} local nI IF IsInternet() cRet := WebPageContents( cUrl ) cData := WebPageContents( cUrl ) if Empty( cRet ) ? "Invalid URL" else //per la data estrazione cData := subStr( cData, at( "ALMANACCO", cData )+9 ) cData := allTrim( subStr( cData, 1, at("BARI", cData ) -1 ) ) // per il blocco Bari - Nazionale cRet := subStr( cRet, at( "BARI", cRet ) ) cRet := allTrim( subStr( cRet, 1, at( "Controlla", cRet ) - 1 ) ) nHndl := fCreate( cFile ) fWrite( nHndl, cRet ) fClose( nHndl ) IF ( nHndl := fOpen( cFile ) ) < 1 msgStop( "UNABLE TO OPEN: " + cFile ) ELSE aShow := {} WHILE hb_fReadLine( nHndl, @cBuff, chr( 10 ) ) == 0 cBuff := allTrim( cBuff ) IF ! empty( cBuff ) aAdd( aShow, {} ) aAdd( aTail( aShow ), subStr( cBuff, 1, 11 ) ) FOR nI := 12 TO 28 STEP 4 aAdd( aTail( aShow ), subStr( cBuff, nI, 2 ) ) NEXT ENDIF ENDDO * xBrowse( aShow ) ferase(cfile) return aShow ENDIF endif else MsgAlert("Controlla la connessione su internet!","EasyLotto") endif return nil //----------------------------------------------------------------------// Function Showform(nRecord,oCiclo,aColors,oBrw) local aNumeri:= {} local atemp:= {} local cText local num1,num2,num3,num4,num5 nColor:=aColors[ nRecord ] AAdd(atemp,oBrw:aArrayData[ nRecord ] ) cText:=atemp[1][1] //text num1 :=atemp[1][2] num2 :=atemp[1][3] num3 :=atemp[1][4] num4 :=atemp[1][5] num5 :=atemp[1][6] aNumeri := {num1,num2,num3,num4,num5} ASort( aNumeri, nil, nil, { |x,y| x < y } ) num1 :=aNumeri[1] num2 :=aNumeri[2] num3 :=aNumeri[3] num4 :=aNumeri[4] num5 :=aNumeri[5] * oCiclo:Paint() oCiclo:Distance_Multiple(val(num1),val(num2),val(num3),val(num4),val(num5),nColor,oCiclo:aposition) Return nil //-----------------------------------------------------------------------------------------/ //------------------------------------------------------------------// #define darkgray nRgb(169,169,169) #define darkorange nRgb(255,140,0) #define darkred nRgb(139,0,0) #define lightblue nRgb(173,216,230) #define TA_CENTER 6 #define COLOR_BTNFACE 15 #define PS_SOLID 0 Class TCyclometric From Tcontrol CLASSDATA lRegistered AS LOGICAL DATA nColorCirc DATA nColorText DATA oFont DATA lShowSmallCircles DATA lDrawBorder DATA nMedWidth,nMedHeight,nMedSide DATA nTopCir,nLeftCir DATA nRadiusExt DATA nRadiusInt DATA aPosition METHOD New( nRow, nCol, oWnd, nWidth, nHeight) CONSTRUCTOR METHOD Paint() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD PaintCircle() METHOD PaintNumbers() METHOD PaintSmallCircles() METHOD Distance_Multiple(num1,num2,num3,num4,num5,nColor) METHOD Say_distance(num1,num2) METHOD Line( nTop, nLeft, nBottom, nRight, nColor, nDim ) ENDCLASS //-----------------------------------------------------------------------// METHOD New( nRow, nCol, oWnd, nWidth, nHeight, nColorCirc,oFont,nColorText,; lPixel, lDesign,lShowSMallCircles,lDrawBorder) Class TCyclometric DEFAULT nRow := 0, nCol := 0, oWnd := GetWndDefault() DEFAULT lPixel := .f. DEFAULT nColorCirc := CLR_HGRAY DEFAULT nColorText := CLR_BLUE DEFAULT nWidth := 50, nHeight := 50,; lDesign := .f. DEFAULT lShowSMallCircles := .t. DEFAULT lDrawBorder := .t. //test ::nTop = If( lPixel, nRow, nRow * MTR_CHARPIX_H ) //14 ::nLeft = If( lPixel, nCol, nCol * MTR_CHARPIX_W ) //8 ::nBottom = ::nTop + nHeight ::nRight = ::nLeft + nWidth ::oWnd = oWnd ::lDrawBorder = lDrawBorder ::nId = ::GetNewId() ::nColorCirc = nColorCirc ::lShowSMallCircles := lShowSMallCircles ::lDrag = lDesign ::lCaptured = .f. ::ltransparent =.t. ::aPosition := {} if oFont == nil DEFINE FONT ::oFont NAME "TAHOMA" SIZE 0, -10 else ::SetFont( oFont ) endif ::nColorText = nColorText ::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN, WS_TABSTOP,; if( lDrawBorder, WS_BORDER, 0 ) ) ::Register() if ! Empty( ::oWnd:hWnd ) ::Create() ::Default() ::oWnd:AddControl( Self ) if ::oWnd:oBrush != nil ::SetBrush( ::oWnd:oBrush ) endif else ::oWnd:DefControl( Self ) endif if lDesign ::CheckDots() endif return Self //------------------------------------------------------------// METHOD Paint() Class TCyclometric local aInfo, aRect aInfo := ::DispBegin() if ::lTransparent .or. ::nOpacity < 255 aRect := GetClientRect( ::hWnd ) SetBrushOrgEx( ::hDC, -::nLeft, -::nTop ) FillRect( ::hDC, aRect, ::oWnd:oBrush:hBrush ) if ! ::lTransparent FillRectEx( ::hDC, aRect, nARGB( ::nOpacity, ::nClrPane ) ) endif else ::PaintBack( ::hDC ) endif ::PaintCircle() //draw the main circle ::PaintSmallCircles() //small circles ::PaintNumbers() //draw the numbers if ValType( ::bPainted ) == "B" Eval( ::bPainted, ::hDC, ::cPS, Self ) endif ::DispEnd( aInfo ) return nil //------------------------------------------------------------------------// METHOD PaintCircle() Class TCyclometric local aRect := GetClientRect( ::hWnd ) local oPen := CREATEPEN( PS_SOLID, 2, darkgray ) ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 ::nMedSide := min( ::nMedWidth, (::nMedHeight-5) ) - 10 ellipse( ::hDC, ::nLeftCir - ::nMedSide,; ::nTopCir - ::nMedSide,; ::nLeftCir + ::nMedSide,; ::nTopCir + ::nMedSide,oPen ) return 0 //------------------------------------------------------------------------// METHOD PaintSmallCircles() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nAngolo ::nRadiusExt := int( ::nMedSide ) * 0.99 ::nRadiusInt := ::nRadiusExt * 0.99 //draw circles /* FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusInt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusInt * Sin( nAngolo ) ) Ellipse(::hDC, nLeft - 5, nTop - 5, nLeft+ 5, nTop + 5 ) //positions AaDd(::aPosition,{nI,nLeft,nTop} ) NEXT */ FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) Ellipse(::hDC, nLeft-2 , nTop-2 , nLeft+2, nTop+2 ) //positions AaDd(::aPosition,{nI,nLeft,nTop} ) NEXT return 0 //------------------------------------------------------------------------// METHOD PaintNumbers() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nColor local nAngolo local nMedSidetxt := min( ::nMedWidth, ::nMedHeight ) -5 ::nRadiusExt := int( nMedSidetxt ) * 0.98 //draw numbers FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) ::Say( ntop - nYOffset , nLeft , hb_ntoc( nI,0 ),::nColorText , , ::oFont, .t.,.t., TA_CENTER ) NEXT return 0 //------------------------------------------------------------------------// METHOD Distance_Multiple(num1,num2,num3,num4,num5,nColor) CLASS TCyclometric local aNumpos := ::aposition local nAt1,nAt2,nAt3,nAt4,nAt5 local oPen,hOldPen local aPoints := array(5) local hBrush1,hOld1 local nDimPenLine:=1 nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) nAt3:= AScan( aNumpos, { | a | a[1] = num3 } ) nAt4:= AScan( aNumpos, { | a | a[1] = num4 } ) nAt5:= AScan( aNumpos, { | a | a[1] = num5 } ) aPoints [5] := {aNumpos[nAt5][2], aNumpos[nAt5][3]} aPoints [4] := {aNumpos[nAt4][2], aNumpos[nAt4][3]} aPoints [3] := {aNumpos[nAt3][2], aNumpos[nAt3][3]} aPoints [2] := {aNumpos[nAt2][2], aNumpos[nAt2][3]} aPoints [1] := {aNumpos[nAt1][2], aNumpos[nAt1][3]} //Intern distance ::line( aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2], nColor,nDimPenLine) ::line( aPoints [2][1],aPoints [2][2],aPoints [3][1],aPoints [3][2], nColor,nDimPenLine) ::line( aPoints [3][1],aPoints [3][2],aPoints [4][1],aPoints [4][2], nColor,nDimPenLine) ::line( aPoints [4][1],aPoints [4][2],aPoints [5][1],aPoints [5][2], nColor,nDimPenLine) ::line( aPoints [5][1],aPoints [5][2],aPoints [1][1],aPoints [1][2], nColor,nDimPenLine) //Intern distance * IF ::lShowDistance ::Say_distance(num1,num2) ::Say_distance(num2,num3) ::Say_distance(num3,num4) ::Say_distance(num4,num5) ::Say_distance(num5,num1) * Endif return nil //----------------------------------------------------------------------------// METHOD Line( nTop, nLeft, nBottom, nRight, nColor, nDim ) CLASS TCyclometric * local hPen := if( oPen = nil, 0, oPen:hPen ) local oPen := CreatePen(PS_SOLID, nDim, nColor ) *local oPen := CreatePen(PS_DOT, nDim, nColor ) local hOldPen ::GetDC() hOldPen := SelectObject( ::hDC, oPen ) MoveTo( ::hDC, nLeft, nTop ) LineTo( ::hDC, nRight, nBottom, oPen ) SelectObject( ::hDC, hOldPen ) ::ReleaseDC() return nil //------------------------------------------------------------------------------// METHOD Say_distance(num1,num2) CLASS TCyclometric local nDistanza:= 0 local nAt1,nAt2 local aNumpos := ::aposition local aRect:= {} local nYOffset,nXOffset, nY,nX //calc the distance IF num2>num1 nDistanza:= num2-num1 else nDistanza:= num1-num2 Endif If nDistanza > 45 nDistanza:= 90-nDistanza Endif // Print the distance nYOffset = ::oFont:nHeight / 2 nXOffset = ::oFont:nWidth / 2 nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) IF aNumpos[nAt1][3] > aNumpos[nAt2][3] nX := aNumpos[nAt2][3] + ( aNumpos[nAt1][3] - aNumpos[nAt2][3] ) /2 ELSE nX := aNumpos[nAt1][3] + ( aNumpos[nAt2][3] - aNumpos[nAt1][3] ) /2 ENDIF IF aNumpos[nAt1][2] > aNumpos[nAt2][2] nY := aNumpos[nAt2][2] + ( aNumpos[nAt1][2] - aNumpos[nAt2][2] ) /2 ELSE nY := aNumpos[nAt1][2] + ( aNumpos[nAt2][2] - aNumpos[nAt1][2] ) /2 ENDIF ::Say( nY - nYOffset, nX - 0, LTRIM( STRzero( nDistanza,2 ) ),CLR_BLACK , , ::oFont, .t.,.t., nil ) return Nil //------------------------------------------------------------------------//

by **Silvio.Falconi** » Fri Dec 02, 2022 1:31 pm

] corrected the position line

Problem to refill with agradient With FillRectEx( ::hDC, aPoints, aGrad)

new code

Code: Select all Expand view: #include "fivewin.ch" #include "constant.ch" Function Test() local oDlg,oFont,oBold local oBtnClose local nBottom := 38 local nRight := 99 local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) local nHeight := nBottom * DLG_CHARPIX_H local cUrl:="http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786" local adata:=TestUrl( cUrl ) local oBrw local oCicloMetric local aColors:= {CLR_BLUE,; CLR_GREEN,; CLR_RED,; CLR_MAGENTA,; CLR_BROWN,; CLR_HGRAY,; CLR_LIGHTGRAY,; CLR_HBLUE,; CLR_HMAGENTA,; METRO_VIOLET ,; METRO_BROWN} DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-10 DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD DEFINE DIALOG oDlg SIZE nWidth, nHeight ; PIXEL TRUEPIXEL FONT oFont ; // TiTle "Manage Ciclometric" oCicloMetric:= TCyclometric():New( 8, 1, oDlg, 400, 400, CLR_HGRAY) @ 200,500 XBROWSE oBrw OF oDlg SIZE 300,250 PIXEL NOBORDER; COLS 1,2,3,4,5,6; HEADERS "Ruota", "E1", "E2", "E3", "E4", "E5" ; SIZES 80,30,30,30,30,30 ; ARRAY adata ; CELL LINES WITH OBJECT oBrw :nRowHeight := 20 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :lHeader := .f. :lHscroll := .f. :lvscroll := .f. :l2007 := .F. :l2015 := .t. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector := .F. :nColDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_LIGHTGRAY :bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, nRgb(173,216,230) , CLR_WHITE ) } } :bChange := { ||Showform(oBrw:nArrayAt,oCicloMetric,aColors,oBrw) } :CreateFromCode() End @ 100,10 BUTTON oBtnClose PROMPT "Close" of oDlg SIZE 80,22 ACTION oDlg:End() oDlg:bResized := <|| local oRect := oDlg:GetCliRect() oBtnClose:nLeft := oRect:nRight - 100 oBtnClose:nTop := oRect:nBottom - 45 RETURN NIL > ACTIVATE DIALOG oDlg CENTERED; ON INIT ( Eval(oDlg:bResized)) RELEASE FONT oFont, oBold Return nil //----------------------------------------------------------------------// Function TestUrl( cUrl ) local cRet:="" local cData:="" local cFile := "test.txt" local cBuff local nHndl local aShow:={} local nI IF IsInternet() cRet := WebPageContents( cUrl ) cData := WebPageContents( cUrl ) if Empty( cRet ) ? "Invalid URL" else //per la data estrazione cData := subStr( cData, at( "ALMANACCO", cData )+9 ) cData := allTrim( subStr( cData, 1, at("BARI", cData ) -1 ) ) // per il blocco Bari - Nazionale cRet := subStr( cRet, at( "BARI", cRet ) ) cRet := allTrim( subStr( cRet, 1, at( "Controlla", cRet ) - 1 ) ) nHndl := fCreate( cFile ) fWrite( nHndl, cRet ) fClose( nHndl ) IF ( nHndl := fOpen( cFile ) ) < 1 msgStop( "UNABLE TO OPEN: " + cFile ) ELSE aShow := {} WHILE hb_fReadLine( nHndl, @cBuff, chr( 10 ) ) == 0 cBuff := allTrim( cBuff ) IF ! empty( cBuff ) aAdd( aShow, {} ) aAdd( aTail( aShow ), subStr( cBuff, 1, 11 ) ) FOR nI := 12 TO 28 STEP 4 aAdd( aTail( aShow ), subStr( cBuff, nI, 2 ) ) NEXT ENDIF ENDDO * xBrowse( aShow ) ferase(cfile) return aShow ENDIF endif else MsgAlert("Controlla la connessione su internet!","EasyLotto") endif return nil //----------------------------------------------------------------------// Function Showform(nRecord,oCiclo,aColors,oBrw) local aNumeri:= {} local atemp:= {} local cText local num1,num2,num3,num4,num5 nColor:=aColors[ nRecord ] AAdd(atemp,oBrw:aArrayData[ nRecord ] ) cText:=atemp[1][1] //text num1 :=atemp[1][2] num2 :=atemp[1][3] num3 :=atemp[1][4] num4 :=atemp[1][5] num5 :=atemp[1][6] aNumeri := {num1,num2,num3,num4,num5} ASort( aNumeri, nil, nil, { |x,y| x < y } ) num1 :=aNumeri[1] num2 :=aNumeri[2] num3 :=aNumeri[3] num4 :=aNumeri[4] num5 :=aNumeri[5] oCiclo:Distance_Multiple(val(num1),val(num2),val(num3),val(num4),val(num5),nColor,oCiclo:aposition) Return nil //-----------------------------------------------------------------------------------------/ //------------------------------------------------------------------// #define darkgray nRgb(169,169,169) #define darkorange nRgb(255,140,0) #define darkred nRgb(139,0,0) #define lightblue nRgb(173,216,230) #define TA_CENTER 6 #define COLOR_BTNFACE 15 #define PS_SOLID 0 Class TCyclometric From Tcontrol CLASSDATA lRegistered AS LOGICAL DATA nColorCirc DATA nColorText DATA oFont DATA lShowSmallCircles DATA lDrawBorder DATA nMedWidth,nMedHeight,nMedSide DATA nTopCir,nLeftCir DATA nRadiusExt DATA nRadiusInt DATA aPosition METHOD New( nRow, nCol, oWnd, nWidth, nHeight) CONSTRUCTOR METHOD Paint() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD PaintCircle() METHOD PaintNumbers() METHOD PaintSmallCircles() METHOD Distance_Multiple(num1,num2,num3,num4,num5,nColor) METHOD Say_distance(num1,num2) METHOD Line( nTop, nLeft, nBottom, nRight, nColor, nDim ) ENDCLASS //-----------------------------------------------------------------------// METHOD New( nRow, nCol, oWnd, nWidth, nHeight, nColorCirc,oFont,nColorText,; lPixel, lDesign,lShowSMallCircles,lDrawBorder) Class TCyclometric DEFAULT nRow := 0, nCol := 0, oWnd := GetWndDefault() DEFAULT lPixel := .f. DEFAULT nColorCirc := CLR_HGRAY DEFAULT nColorText := CLR_BLUE DEFAULT nWidth := 50, nHeight := 50,; lDesign := .f. DEFAULT lShowSMallCircles := .t. DEFAULT lDrawBorder := .t. //test ::nTop = If( lPixel, nRow, nRow * MTR_CHARPIX_H ) //14 ::nLeft = If( lPixel, nCol, nCol * MTR_CHARPIX_W ) //8 ::nBottom = ::nTop + nHeight ::nRight = ::nLeft + nWidth ::oWnd = oWnd ::lDrawBorder = lDrawBorder ::nId = ::GetNewId() ::nColorCirc = nColorCirc ::lShowSMallCircles := lShowSMallCircles ::lDrag = lDesign ::lCaptured = .f. ::ltransparent =.t. ::aPosition := {} if oFont == nil DEFINE FONT ::oFont NAME "TAHOMA" SIZE 0, -10 else ::SetFont( oFont ) endif ::nColorText = nColorText ::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN, WS_TABSTOP,; if( lDrawBorder, WS_BORDER, 0 ) ) ::Register() if ! Empty( ::oWnd:hWnd ) ::Create() ::Default() ::oWnd:AddControl( Self ) if ::oWnd:oBrush != nil ::SetBrush( ::oWnd:oBrush ) endif else ::oWnd:DefControl( Self ) endif if lDesign ::CheckDots() endif return Self //------------------------------------------------------------// METHOD Paint() Class TCyclometric local aInfo, aRect aInfo := ::DispBegin() if ::lTransparent .or. ::nOpacity < 255 aRect := GetClientRect( ::hWnd ) SetBrushOrgEx( ::hDC, -::nLeft, -::nTop ) FillRect( ::hDC, aRect, ::oWnd:oBrush:hBrush ) if ! ::lTransparent FillRectEx( ::hDC, aRect, nARGB( ::nOpacity, ::nClrPane ) ) endif else ::PaintBack( ::hDC ) endif ::PaintCircle() //draw the main circle ::PaintSmallCircles() //small circles ::PaintNumbers() //draw the numbers if ValType( ::bPainted ) == "B" Eval( ::bPainted, ::hDC, ::cPS, Self ) endif ::DispEnd( aInfo ) return nil //------------------------------------------------------------------------// METHOD PaintCircle() Class TCyclometric local aRect := GetClientRect( ::hWnd ) local oPen := CREATEPEN( PS_SOLID, 2, darkgray ) ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 ::nMedSide := min( ::nMedWidth, (::nMedHeight-5) ) - 10 ellipse( ::hDC, ::nLeftCir - ::nMedSide,; ::nTopCir - ::nMedSide,; ::nLeftCir + ::nMedSide,; ::nTopCir + ::nMedSide,oPen ) return 0 //------------------------------------------------------------------------// METHOD PaintSmallCircles() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nAngolo ::nRadiusExt := int( ::nMedSide ) * 0.99 ::nRadiusInt := ::nRadiusExt * 0.99 //draw circles /* FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusInt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusInt * Sin( nAngolo ) ) Ellipse(::hDC, nLeft - 5, nTop - 5, nLeft+ 5, nTop + 5 ) //positions AaDd(::aPosition,{nI,nLeft,nTop} ) NEXT */ FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) Ellipse(::hDC, nLeft-2 , nTop-2 , nLeft+2, nTop+2 ) //positions AaDd(::aPosition,{nI,nTop,nLeft} ) NEXT return 0 //------------------------------------------------------------------------// METHOD PaintNumbers() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 1, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nColor local nAngolo local nMedSidetxt := min( ::nMedWidth, ::nMedHeight ) -5 ::nRadiusExt := int( nMedSidetxt ) * 0.98 //draw numbers FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) ::Say( ntop - nYOffset , nLeft , hb_ntoc( nI,0 ),::nColorText , , ::oFont, .t.,.t., TA_CENTER ) NEXT return 0 //------------------------------------------------------------------------// METHOD Distance_Multiple(num1,num2,num3,num4,num5,nColor) CLASS TCyclometric local aNumpos := ::aposition local nAt1,nAt2,nAt3,nAt4,nAt5 local oPen,hOldPen local nsize1:=1 local nSize2:=2 local nClr1:= nColor,nClr2:= CLR_WHITE local aPoints := array(5) local hBrush1,hOld1 local nDimPenLine:=1 local aGrad := { CLR_BLACK,; {{ nsize1, nClr1,nClr2 },{nsize1, nClr2,nClr1}, .t. } } nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) nAt3:= AScan( aNumpos, { | a | a[1] = num3 } ) nAt4:= AScan( aNumpos, { | a | a[1] = num4 } ) nAt5:= AScan( aNumpos, { | a | a[1] = num5 } ) aPoints [5] := {aNumpos[nAt5][2], aNumpos[nAt5][3]} aPoints [4] := {aNumpos[nAt4][2], aNumpos[nAt4][3]} aPoints [3] := {aNumpos[nAt3][2], aNumpos[nAt3][3]} aPoints [2] := {aNumpos[nAt2][2], aNumpos[nAt2][3]} aPoints [1] := {aNumpos[nAt1][2], aNumpos[nAt1][3]} //Intern distance ::line( aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2], nColor,nDimPenLine) ::line( aPoints [2][1],aPoints [2][2],aPoints [3][1],aPoints [3][2], nColor,nDimPenLine) ::line( aPoints [3][1],aPoints [3][2],aPoints [4][1],aPoints [4][2], nColor,nDimPenLine) ::line( aPoints [4][1],aPoints [4][2],aPoints [5][1],aPoints [5][2], nColor,nDimPenLine) ::line( aPoints [5][1],aPoints [5][2],aPoints [1][1],aPoints [1][2], nColor,nDimPenLine) //Intern distance * IF ::lShowDistance ::Say_distance(num1,num2) ::Say_distance(num2,num3) ::Say_distance(num3,num4) ::Say_distance(num4,num5) ::Say_distance(num5,num1) * Endif //refill * xbrowser aPoints FillRectEx( ::hDC, aPoints, aGrad) return nil //----------------------------------------------------------------------------// METHOD Line( nTop, nLeft, nBottom, nRight, nColor, nDim ) CLASS TCyclometric * local hPen := if( oPen = nil, 0, oPen:hPen ) local oPen := CreatePen(PS_SOLID, nDim, nColor ) *local oPen := CreatePen(PS_DOT, nDim, nColor ) local hOldPen ::GetDC() hOldPen := SelectObject( ::hDC, oPen ) MoveTo( ::hDC, nLeft, nTop ) LineTo( ::hDC, nRight, nBottom, oPen ) SelectObject( ::hDC, hOldPen ) ::ReleaseDC() return nil //------------------------------------------------------------------------------// METHOD Say_distance(num1,num2) CLASS TCyclometric local nDistanza:= 0 local nAt1,nAt2 local aNumpos := ::aposition local aRect:= {} local nYOffset,nXOffset, nY,nX //calc the distance IF num2>num1 nDistanza:= num2-num1 else nDistanza:= num1-num2 Endif If nDistanza > 45 nDistanza:= 90-nDistanza Endif // Print the distance nYOffset = ::oFont:nHeight / 2 nXOffset = ::oFont:nWidth / 2 nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) IF aNumpos[nAt1][3] > aNumpos[nAt2][3] nX := aNumpos[nAt2][3] + ( aNumpos[nAt1][3] - aNumpos[nAt2][3] ) /2 ELSE nX := aNumpos[nAt1][3] + ( aNumpos[nAt2][3] - aNumpos[nAt1][3] ) /2 ENDIF IF aNumpos[nAt1][2] > aNumpos[nAt2][2] nY := aNumpos[nAt2][2] + ( aNumpos[nAt1][2] - aNumpos[nAt2][2] ) /2 ELSE nY := aNumpos[nAt1][2] + ( aNumpos[nAt2][2] - aNumpos[nAt1][2] ) /2 ENDIF ::Say( nY - nYOffset, nX - 0, LTRIM( STRzero( nDistanza,2 ) ),CLR_BLACK , , ::oFont, .t.,.t., nil ) return Nil //------------------------------------------------------------------------//

by **Silvio.Falconi** » Sat Dec 03, 2022 3:59 pm

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)

FillRect( ::hDC, { aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2] }, hBru )

SelectObject( ::hDC, hOld )
DeleteObject( hBru )

Not Happen nothing

by **Silvio.Falconi** » Tue Dec 06, 2022 10:27 am

when I select another record in the xbrowse , the class doesn't delete the previously drawn lines, how can I fix it?
I would like to fill the polygon space with a gradient color but I can't do that

test.prg

Code: Select all Expand view: #include "fivewin.ch" #include "constant.ch" Function Test() local oDlg,oFont,oBold local oBtnClose,oBtnRoutes local oBtnInt,oBtnExt local nBottom := 38 local nRight := 118 local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) local nHeight := nBottom * DLG_CHARPIX_H local cUrl:="http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786" local adata:=TestUrl( cUrl ) local oBrw local oCicloMetric local aCicloMetric :=array(11) local aColors:= {CLR_BLUE,; CLR_GREEN,; CLR_RED,; CLR_MAGENTA,; CLR_BROWN,; CLR_HGRAY,; CLR_LIGHTGRAY,; CLR_HBLUE,; CLR_HMAGENTA,; METRO_VIOLET ,; METRO_BROWN} DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-10 DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD DEFINE DIALOG oDlg SIZE nWidth, nHeight ; PIXEL TRUEPIXEL FONT oFont ; // TiTle "Manage Ciclometric" ; COLOR CLR_BLACK,CLR_WHITE oCicloMetric:=TCyclometric():New( 8, 24, oDlg, 400, 400, CLR_HGRAY) oCicloMetric:lTransparent:=.t. oCicloMetric:nDimPenCircle:= 3 oCicloMetric:nDimPenLine:=2 oCicloMetric:lShowNumbers:=.t. oCicloMetric:lShowSMallCircles:=.T. oCicloMetric:ldrawborder:=.t. @ 112,620 XBROWSE oBrw OF oDlg SIZE 300,400 PIXEL NOBORDER; COLS 1,2,3,4,5,6; HEADERS "Ruota", "E1", "E2", "E3", "E4", "E5" ; SIZES 80,30,30,30,30,30 ; ARRAY adata ; CELL LINES WITH OBJECT oBrw :nRowHeight := 36 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :lHeader := .f. :lHscroll := .f. :lvscroll := .f. :l2007 := .F. :l2015 := .t. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector := .F. :nColDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_LIGHTGRAY :bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, nRgb(173,216,230) , CLR_WHITE ) } } :bChange := { || ( Showform(oBrw:nArrayAt,oCicloMetric,aColors,oBrw,.t.)) } :CreateFromCode() End @ 100,10 BUTTON oBtnClose PROMPT "Close" of oDlg SIZE 80,22; ACTION oDlg:End() @ 100,10 BUTTON oBtnRoutes PROMPT "Mostra ruote" of oDlg SIZE 80,22; ACTION Mostra_Form(aCicloMetric,aColors,oBrw) @ 100,10 BUTTON oBtnInt PROMPT "Distance Interne" of oDlg SIZE 80,22; ACTION Showform(oBrw:nArrayAt,oCicloMetric,aColors,oBrw,.F.,.T.) @ 100,10 BUTTON oBtnExt PROMPT "Distance Esterne" of oDlg SIZE 80,22; ACTION Showform(oBrw:nArrayAt,oCicloMetric,aColors,oBrw,.T.,.F.) oDlg:bResized := <|| local oRect := oDlg:GetCliRect() oBtnClose:nLeft := oRect:nRight - 100 oBtnClose:nTop := oRect:nBottom - 45 oBtnRoutes:nLeft := oRect:nleft+5 oBtnRoutes:nTop := oRect:nBottom - 45 oBtnInt:nTop := oRect:nBottom - 45 oBtnInt:nLeft := oRect:nleft+125 oBtnExt:nTop := oRect:nBottom - 45 oBtnExt:nLeft := oRect:nleft+255 RETURN NIL > ACTIVATE DIALOG oDlg CENTERED; ON INIT (Mostra_Ciclo_Ruote(oBrw,oDlg,aCicloMetric,aColors),; Eval(oDlg:bResized)) RELEASE FONT oFont, oBold Return nil //----------------------------------------------------------------------// Function TestUrl( cUrl ) local cRet:="" local cData:="" local cFile := "test.txt" local cBuff local nHndl local aShow:={} local nI IF IsInternet() cRet := WebPageContents( cUrl ) cData := WebPageContents( cUrl ) if Empty( cRet ) ? "Invalid URL" else //per la data estrazione cData := subStr( cData, at( "ALMANACCO", cData )+9 ) cData := allTrim( subStr( cData, 1, at("BARI", cData ) -1 ) ) // per il blocco Bari - Nazionale cRet := subStr( cRet, at( "BARI", cRet ) ) cRet := allTrim( subStr( cRet, 1, at( "Controlla", cRet ) - 1 ) ) nHndl := fCreate( cFile ) fWrite( nHndl, cRet ) fClose( nHndl ) IF ( nHndl := fOpen( cFile ) ) < 1 msgStop( "UNABLE TO OPEN: " + cFile ) ELSE aShow := {} WHILE hb_fReadLine( nHndl, @cBuff, chr( 10 ) ) == 0 cBuff := allTrim( cBuff ) IF ! empty( cBuff ) aAdd( aShow, {} ) aAdd( aTail( aShow ), subStr( cBuff, 1, 11 ) ) FOR nI := 12 TO 28 STEP 4 aAdd( aTail( aShow ), subStr( cBuff, nI, 2 ) ) NEXT ENDIF ENDDO * xBrowse( aShow ) ferase(cfile) return aShow ENDIF endif else MsgAlert("Controlla la connessione su internet!","EasyLotto") endif return nil //----------------------------------------------------------------------// Function Showform(nRecord,oCiclo,aColors,oBrw,lShowExternal,lShowInternal) local aNumeri:= {} local atemp:= {} local cText local num1,num2,num3,num4,num5 local aPos local cTitle:= oBrw:aArrayData[ nRecord ][1] DEFAULT lShowExternal := .F. DEFAULT lShowInternal := .F. nColor:=aColors[ nRecord ] AAdd(atemp,oBrw:aArrayData[ nRecord ] ) cText:=atemp[1][1] //text num1 :=atemp[1][2] num2 :=atemp[1][3] num3 :=atemp[1][4] num4 :=atemp[1][5] num5 :=atemp[1][6] aNumeri := {num1,num2,num3,num4,num5} ASort( aNumeri, nil, nil, { |x,y| x < y } ) num1 :=aNumeri[1] num2 :=aNumeri[2] num3 :=aNumeri[3] num4 :=aNumeri[4] num5 :=aNumeri[5] aPos:= oCiclo:CalcPosition() oCiclo:cTitle:=cTitle oCiclo:lShowInternal_Distance :=lShowInternal oCiclo:lShowExternal_Distance :=lShowExternal oCiclo:Distance_Multiple(val(num1),val(num2),val(num3),val(num4),val(num5),nColor,aPos) Return nil //-----------------------------------------------------------------------------------------/ Function Mostra_Ciclo_Ruote(oBrw,oDlg,aCicloMetric,aColors) local nRuote:= 11,n local xCol local xSay local nRow,nCol local nDia,nHeight,nWidth Local aRuote := {"Bari","Cagliari","Firenze","Genova",; "Milano","Napoli","Palermo","Roma","Torino",; "Venezia","Nazionale"} local nColor,atemp:= {} local ctext,num1,num2,num3,num4,num5 local aNumeri:= {} nRow:= 0.8 nCol:= 0.5 nDia:= 80 nHeight:= nDia nWidth := nDia xCol:= 10 xSay:= 10 For n:= 1 to 11 aCicloMetric[n]:= TCyclometric():New( nRow,nCol, oDlg, nWidth,nHeight, CLR_HGRAY) aCicloMetric[n]:lShowNumbers:=.f. aCicloMetric[n]:nDimPenCircle:= 0.1 aCicloMetric[n]:lShowSMallCircles:=.f. aCicloMetric[n]:ldrawborder:=.t. aCicloMetric[n]:lShowDistance:=.f. aCicloMetric[n]:lShowInternal_Distance :=.f. aCicloMetric[n]:lShowExternal_Distance :=.T. nCol+= xCol +0.5 * @ nHeight+8,xSay say aRuote[n] size 55,18 PIXEL OF oDlg TRANSPARENT * xSay+= 85 next return aCicloMetric Function Mostra_Form(aCicloMetric,aColors,oBrw) local aNum:= {} local num1,num2,num3,num4,num5 local nColor local aposNew local ctitle For n= 1 to len(aCicloMetric) aNum:= Give_Numbers(oBrw,n) cTitle:= oBrw:aArrayData[ n ][1] nColor:=aColors[ n ] num1 :=val(aNum[1]) num2 :=val(aNum[2]) num3 :=val(aNum[3]) num4 :=val(aNum[4]) num5 :=val(aNum[5]) aPosNew := aCicloMetric[n]:CalcPosition() aCicloMetric[n]:ctitle:= ctitle aCicloMetric[n]:Distance_Multiple(num1,num2,num3,num4,num5,nColor,aPosNew) next return nil Function Mostra_cerchio(aCicloMetric,aColors,oBrw,n) local aNum:= Give_Numbers(oBrw,n) local num1,num2,num3,num4,num5 local nColor local aposNew nColor:=aColors[ n ] num1 :=val(aNum[1]) num2 :=val(aNum[2]) num3 :=val(aNum[3]) num4 :=val(aNum[4]) num5 :=val(aNum[5]) aPosNew:=aCicloMetric[n]:CalcPosition() aCicloMetric[n]:Distance_Multiple(num1,num2,num3,num4,num5,nColor,aPosNew) return nil Function Give_Numbers(oBrw,nrecord) local aNumeri:= {} local atemp:= {} local cText local num1,num2,num3,num4,num5 AAdd(atemp,oBrw:aArrayData[ nRecord ] ) cText:=atemp[1][1] //text num1 :=atemp[1][2] num2 :=atemp[1][3] num3 :=atemp[1][4] num4 :=atemp[1][5] num5 :=atemp[1][6] aNumeri := {num1,num2,num3,num4,num5} ASort( aNumeri, nil, nil, { |x,y| x < y } ) num1 :=aNumeri[1] num2 :=aNumeri[2] num3 :=aNumeri[3] num4 :=aNumeri[4] num5 :=aNumeri[5] Return aNumeri //------------------------------------------------------------------//

the class

Code: Select all Expand view: #include "fivewin.ch" #include "constant.ch" #define TA_LEFT 0 #define TA_RIGHT 2 #define TA_CENTER 6 #define PS_SOLID 0 #define PS_DASH 1 #define PS_DOT 2 #define PS_DASHDOT 3 #define PS_DASHDOTDOT 4 #define COLOR_WINDOW 5 #define COLOR_BTNFACE 15 #define TME_LEAVE 2 #define WM_MOUSELEAVE 675 #define NULL_BRUSH 5 Class TCyclometric From Tcontrol CLASSDATA lRegistered AS LOGICAL DATA oCiclo DATA nColorCirc DATA nColorText DATA oFont DATA lDrawBorder AS LOGIC INIT .F. DATA nMedWidth,nMedHeight,nMedSide DATA nTopCir, nLeftCir DATA nRadiusExt DATA nRadiusInt DATA aPosition DATA lShowSmallCircles DATA lShowNumbers data lShowInternal_Distance data lShowExternal_Distance data lShowDistance data nDimPenCircle data nDimPenLine data cTitle data hPen METHOD New( nRow, nCol, oWnd, nWidth, nHeight) CONSTRUCTOR METHOD Paint() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD PaintCircle() METHOD PaintNumbers() METHOD PaintSmallCircles() METHOD PaintBorder() METHOD Evidence_Number(number) METHOD Distance_Multiple(num1,num2,num3,num4,num5,nColor) METHOD Distance(num1,num2) METHOD Say_distance(num1,num2) METHOD Line( nTop, nLeft, nBottom, nRight, nColor, nDim ) METHOD LineDot( nTop, nLeft, nBottom, nRight, nColor, nDim ) METHOD REFILL(nTop, nLeft, nBottom, nRight,ncolor) METHOD DrawEllipse( hDC, nColor, ntop, nLeft, nWidth, nHeight ) METHOD Destroy() METHOD HandleEvent( nMsg, nWParam, nLParam ) METHOD CalcPosition() ENDCLASS //-----------------------------------------------------------------------// METHOD New( nRow, nCol, oWnd, nWidth, nHeight, nColorCirc, oFont, nColorText,; lPixel, lDesign,; lShowSMallCircles,; lDrawBorder,; lShowNumbers,; lShowDistance,; lShowInternal_Distance,; lShowExternal_Distance,; nDimPenCircle,; nDimPenLine,; cTitle) Class TCyclometric DEFAULT nRow := 0, nCol := 0, oWnd := GetWndDefault() DEFAULT lPixel := .f. DEFAULT nColorCirc := CLR_HGRAY DEFAULT nColorText := CLR_BLUE DEFAULT nWidth := 50, nHeight := 50,; lDesign := .f. ,; lShowSMallCircles := .t. ,; lDrawBorder := .F. ,; lShowNumbers := .t. ,; lShowDistance := .t. ,; nDimPenCircle := 1 ,; nDimPenLine := 1 ,; lShowInternal_Distance :=.F. ,; lShowExternal_Distance :=.t. ::nTop = If( lPixel, nRow, nRow * MTR_CHARPIX_H ) //14 ::nLeft = If( lPixel, nCol, nCol * MTR_CHARPIX_W ) //8 ::nBottom = ::nTop + nHeight ::nRight = ::nLeft + nWidth ::oWnd = oWnd ::lDrawBorder = lDrawBorder ::hPen = CreatePen( PS_SOLID, 1, nRGB( 128, 128, 128 ) ) ::oCiclo = self ::nId = ::GetNewId() ::nColorCirc = nColorCirc ::nColorText = nColorText ::nClrPane = nRGB( 220, 223, 228 ) ::lShowSMallCircles := lShowSMallCircles ::lShowNumbers := lShowNumbers ::nDimPenCircle := nDimPenCircle ::nDimPenLine := nDimPenLine ::lShowDistance := lShowDistance ::lShowInternal_Distance := lShowInternal_Distance ::lShowExternal_Distance := lShowExternal_Distance ::lDrag = lDesign ::lCaptured = .f. ::lTransparent =.t. ::aPosition := {} ::cTitle := cTitle if oFont == nil DEFINE FONT ::oFont NAME "TAHOMA" SIZE 0, -10 else ::SetFont( oFont ) endif ::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN, WS_TABSTOP,; if( lDrawBorder, WS_BORDER, 0 ) ) ::Register() if oWnd:lVisible ::Create() ::Default() ::lVisible = .t. oWnd:AddControl( Self ) else oWnd:DefControl( Self ) ::lVisible = .F. endif if lDesign ::CheckDots() endif return Self //------------------------------------------------------------// METHOD Paint() Class TCyclometric local aInfo, aRect local hGrayPen,hOldPen,hWhitePen Local hBrush, hOldBrush aInfo := ::DispBegin() if ::lTransparent .or. ::nOpacity < 255 aRect := GetClientRect( ::hWnd ) SetBrushOrgEx( ::hDC, -::nLeft, -::nTop ) FillRect( ::hDC, aRect, ::oWnd:oBrush:hBrush ) if ! ::lTransparent FillRectEx( ::hDC, aRect, nARGB( ::nOpacity, ::nClrPane ) ) endif else ::PaintBack( ::hDC ) endif ::PaintCircle() //draw the main circle ::PaintSmallCircles() //small circles IF ::lShowNumbers ::PaintNumbers() //draw the numbers Endif //Border If ::lDrawBorder ::PaintBorder() endif if ValType( ::bPainted ) == "B" Eval( ::bPainted, ::hDC, ::cPS, Self ) endif ::DispEnd( aInfo ) return nil METHOD PaintBorder() CLASS TCyclometric RoundBox( ::hDC, 2, 2, ::nWidth - 2 , ::nHeight - 2, 9, 9 ) * DrawFocusRect( ::hDC, 3, 3, ::nHeight - 3, ::nWidth - 3 ) return nil //------------------------------------------------------------------------// METHOD PaintCircle() Class TCyclometric local aRect := GetClientRect( ::hWnd ) local oPen := CREATEPEN( PS_SOLID, ::nDimPenCircle , ::nColorCirc ) ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 ::nMedSide := min( ::nMedWidth, (::nMedHeight-5) ) - 10 ellipse( ::hDC, ::nLeftCir - ::nMedSide,; ::nTopCir - ::nMedSide,; ::nLeftCir + ::nMedSide,; ::nTopCir + ::nMedSide,oPen ) return 0 //------------------------------------------------------------------------// METHOD PaintSmallCircles() Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 2, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nAngolo ::nRadiusExt := int( ::nMedSide ) * 0.99 ::nRadiusInt := ::nRadiusExt * 0.99 //draw circles /* FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusInt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusInt * Sin( nAngolo ) ) Ellipse(::hDC, nLeft - 5, nTop - 5, nLeft+ 5, nTop + 5 ) //positions AaDd(::aPosition,{nI,nLeft,nTop} ) NEXT */ FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) IF ::lShowSMallCircles Ellipse(::hDC, nLeft-2 , nTop-2 , nLeft+2, nTop+2 , oPen) ENDIF //positions * AaDd(::aPosition,{nI,nTop,nLeft} ) NEXT return 0 //------------------------------------------------------------------------// //write the numbers around the circle METHOD PaintNumbers() Class TCyclometric local nI local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nColor local nAngolo local nMedSidetxt := min( ::nMedWidth, ::nMedHeight ) -5 ::nRadiusExt := int( nMedSidetxt ) * 0.98 //draw numbers FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) ::Say( ntop - nYOffset , nLeft -0 , ( strzero(nI,2) ),::nColorText , , ::oFont, .t.,.t., TA_CENTER ) NEXT return 0 //------------------------------------------------------------------------// // to highlight the selected numbers with a blue circle and white text METHOD Evidence_Number(number) Class TCyclometric local nI local oPen := CREATEPEN( PS_SOLID, 2, CLR_BLUE ) local nTotalNumbers := 90 local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nAngolo,nMedSidetxt local aRect := GetClientRect( ::hWnd ) ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 ::nMedSide := min( ::nMedWidth, (::nMedHeight-5) ) - 10 nMedSidetxt := min( ::nMedWidth, ::nMedHeight ) -5 ::nRadiusExt := int( nMedSidetxt ) * 0.98 FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) If nI=number *Ellipse(::hDC, nLeft-5 , nTop-5 , nLeft+5, nTop+5 , oPen) ::DrawEllipse(nColor,nLeft-5 , nTop-5 , nLeft+8, nTop+8) Endif NEXT return 0 /* local aRect := GetClientRect( ::hWnd ) local nI local nYOffset := ::oFont:nHeight / 2 local nXOffset := ::oFont:nWidth / 2 local nDeltaR := ::oFont:nHeight local nTotalNumbers := 90 local nColor local nAngolo local nMedSidetxt ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 nMedSidetxt := min( ::nMedWidth, ::nMedHeight ) -5 ::nRadiusExt := int( nMedSidetxt ) * 0.98 //draw numbers evindence FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) If nI=number ::DrawEllipse( nColor,nLeft-5 , nTop-5 , nLeft+5, nTop+5) ::Say( ntop - nYOffset , nLeft -0 , ( strzero(nI,2) ),CLR_YELLOW , , ::oFont, .t.,.t., TA_CENTER ) endif NEXT return nil */ //---------------------------------------------------------------------// METHOD CalcPosition() Class TCyclometric local nI local nTotalNumbers := 90 local nAngolo local aRect := GetClientRect( ::hWnd ) ::nTopCir := ::nHeight / 2 ::nLeftCir := ::nWidth / 2 ::nMedWidth := aRect[4]/2 ::nMedHeight := aRect[3]/2 ::nMedSide := min( ::nMedWidth, (::nMedHeight-5) ) - 10 ::nRadiusExt := int( ::nMedSide ) * 0.99 ::nRadiusInt := ::nRadiusExt * 0.99 FOR nI = 1 TO nTotalNumbers nAngolo := 2* PI() / nTotalNumbers * ( nI - 1 ) nTop := ::nTopCir - ( ::nRadiusExt * Cos( nAngolo ) ) nLeft := ::nLeftCir + ( ::nRadiusExt * Sin( nAngolo ) ) //positions AaDd(::aPosition,{nI,nTop,nLeft} ) NEXT return ::aPosition //---------------------------------------------------------------------// METHOD Distance(num1,num2) CLASS TCyclometric local aNumpos := ::apos local nAt1,nAt2 local oPen,hOldPen local aRect:= {} local nDistanza,nYOffset,nXOffset, nY,nX // xbrowser aNumpos nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) aRect:= {aNumpos[nAt1][2],aNumpos[nAt1][3],aNumpos[nAt2][2],aNumpos[nAt2][3]} ::line( aRect[1],aRect[2],aRect[3],aRect[4], CLR_RED) // draw the distance number IF num2>num1 nDistanza:= num2-num1 else nDistanza:= num1-num2 Endif If nDistanza > 45 nDistanza:= 90-nDistanza Endif nYOffset = ::oFont:nHeight / 2 nXOffset = ::oFont:nWidth / 2 nY := aRect[2] nX := aRect[4] ::Say( nY - nYOffset, nX - nXOffset, LTRIM( STRzero( nDistanza,2 ) ), , , ::oFont, .t.,; .t., nil ) return nil //--------------------------------------------------------------// //---------------------------------------------------------------------// METHOD Distance_Multiple(num1,num2,num3,num4,num5,nColor,aNumpos) CLASS TCyclometric local nAt1,nAt2,nAt3,nAt4,nAt5,rc local oPen,hOldPen local nsize1:=1 local nSize2:=2 local nClr1:= nColor,nClr2:= CLR_WHITE local aPoints := array(5) local hBrush1,hOld1 local aGrad := { { nsize1, nClr1, nClr2 },; //for refill { nsize2, nClr2,nClr1 } } local hBru := CreateSolidBrush( nColor ) local hOld := SelectObject( ::hDC, hBru ) local hpen:=CreatePen(0,8,nColor) local hBlackBrush, hOldBrush nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) nAt3:= AScan( aNumpos, { | a | a[1] = num3 } ) nAt4:= AScan( aNumpos, { | a | a[1] = num4 } ) nAt5:= AScan( aNumpos, { | a | a[1] = num5 } ) aPoints [5] := {aNumpos[nAt5][2], aNumpos[nAt5][3]} aPoints [4] := {aNumpos[nAt4][2], aNumpos[nAt4][3]} aPoints [3] := {aNumpos[nAt3][2], aNumpos[nAt3][3]} aPoints [2] := {aNumpos[nAt2][2], aNumpos[nAt2][3]} aPoints [1] := {aNumpos[nAt1][2], aNumpos[nAt1][3]} IF ::lShowExternal_Distance //External distance ::line( aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2], nColor,::nDimPenLine) ::line( aPoints [2][1],aPoints [2][2],aPoints [3][1],aPoints [3][2], nColor,::nDimPenLine) ::line( aPoints [3][1],aPoints [3][2],aPoints [4][1],aPoints [4][2], nColor,::nDimPenLine) ::line( aPoints [4][1],aPoints [4][2],aPoints [5][1],aPoints [5][2], nColor,::nDimPenLine) ::line( aPoints [5][1],aPoints [5][2],aPoints [1][1],aPoints [1][2], nColor,::nDimPenLine) IF ::lShowDistance ::Say_distance(num1,num2) ::Say_distance(num2,num3) ::Say_distance(num3,num4) ::Say_distance(num4,num5) ::Say_distance(num5,num1) //evidence the numers ::Evidence_Number(num1) ::Evidence_Number(num2) ::Evidence_Number(num3) ::Evidence_Number(num4) ::Evidence_Number(num5) Endif Endif IF ::lShowInternal_Distance //Internal distance ::LineDot ( aPoints [1][1],aPoints [1][2],aPoints [3][1],aPoints [3][2], nColor,::nDimPenLine) ::LineDot ( aPoints [1][1],aPoints [1][2],aPoints [4][1],aPoints [4][2], nColor,::nDimPenLine) ::LineDot ( aPoints [2][1],aPoints [2][2],aPoints [4][1],aPoints [4][2], nColor,::nDimPenLine) ::LineDot ( aPoints [2][1],aPoints [2][2],aPoints [5][1],aPoints [5][2], nColor,::nDimPenLine) IF ::lShowDistance ::Say_distance(num1,num3) ::Say_distance(num1,num4) ::Say_distance(num2,num4) ::Say_distance(num2,num5) Endif Endif //Title If !Empty(::cTitle ) ::Say(3 , 50 , ::cTitle,::nColorText , , ::oFont, .t.,.t., TA_CENTER ) Endif //refill not run * ::GetDC() * rc:={ 0,0,0,0} * FillRect( ::hDC, rc, hBru ) * ::ReleaseDC() //refill not run * xbrowser aPoints * ::bPainted := { |hDC|FillRectEx( ::hDC, aPoints, aGrad) } * ::bPainted := { |hDC|FloodFill( ::hDC, aPoints [1][1], aPoints [5][1], nil, nColor ) } * Rectangle( ::hDC, nTop, nLeft, nBottom, nRight, hpen ) * FillRect( ::hDC, { aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2] }, hBru ) * SelectObject( ::hDC, hOld ) * DeleteObject( hBru ) /*GradientFill( ::hDC, INT(aPoints [5][1]),; INT(aPoints [5][2]),; INT(aPoints [1][1]),; INT(aPoints [1][2]), aGrad, .t. ) * FillRectEx( ::hDC, aPoints, hbru ) GradientFill( ::hDC, INT(aPoints [5][1]),; INT(aPoints [5][2]),; INT(aPoints [1][1]),; INT(aPoints [1][2]),; aGrad ) */ * ::Refill( aPoints [1][1],aPoints [1][2],aPoints [4][1],aPoints [4][2],nColor) RETURN NIL //----------------------------------------------------------------------------// METHOD Refill(nTop, nLeft, nBottom, nRight,ncolor) CLASS TCyclometric local hPen := CreatePen( 0, 1, ncolor ) local aGrad := { { 5, nColor, CLR_WHITE },; //for refill { 20, CLR_WHITE,CLR_WHITE } } local hdc:= ::oWnd:GetDC() * FillRect( hdc, { nTop, nLeft, nBottom, nRight }, hPen ) GradientFill(hdc, nTop, nLeft, nBottom, nRight ,aGrad) DeleteObject( hPen ) ::oWnd:ReleaseDC() return nil //----------------------------------------------------------------------------// METHOD Line( nTop, nLeft, nBottom, nRight, nColor, nDim ) CLASS TCyclometric local oPen := CreatePen(PS_SOLID, nDim, nColor ) local hOldPen ::GetDC() hOldPen := SelectObject( ::hDC, oPen ) MoveTo( ::hDC, nLeft, nTop ) LineTo( ::hDC, nRight, nBottom, oPen ) SelectObject( ::hDC, hOldPen ) ::ReleaseDC() return nil //----------------------------------------------------------------------------// METHOD LineDot( nTop, nLeft, nBottom, nRight, nColor, nDim ) CLASS TCyclometric local oPen := CreatePen(PS_DOT, 0.5, nColor ) local hOldPen ::GetDC() hOldPen := SelectObject( ::hDC, oPen ) MoveTo( ::hDC, nLeft, nTop ) LineTo( ::hDC, nRight, nBottom, oPen ) SelectObject( ::hDC, hOldPen ) ::ReleaseDC() return nil //------------------------------------------------------------------------------// METHOD DrawEllipse(nColor, ntop, nLeft, nWidth, nHeight ) CLASS TCyclometric * local hdc:= ::oCiclo:GetDC() local hdc:= ::GetDC() local hOldBrush := SelectObject( hDC, GetStockObject( NULL_BRUSH ) ) local hPen := CreatePen( hDC, 1, nColor ) // nLeft-2 , nTop-2 , nLeft+2, nTop+2 Ellipse( hDC,ntop-2,nLeft-2, nWidth+2 , nHeight+2 , hPen ) SelectObject( hDC, hOldBrush ) DeleteObject( hPen ) *::oCiclo:ReleaseDC() ::ReleaseDC() return nil METHOD Say_distance(num1,num2) CLASS TCyclometric local nDistanza:= 0 local nAt1,nAt2 local aNumpos := ::CalcPosition() // ::aposition local aRect:= {} local nYOffset,nXOffset, nY,nX //calc the distance IF num2>num1 nDistanza:= num2-num1 else nDistanza:= num1-num2 Endif If nDistanza > 45 nDistanza:= 90-nDistanza Endif // Print the distance nYOffset = ::oFont:nHeight / 2 nXOffset = ::oFont:nWidth / 2 nAt1:= AScan( aNumpos, { | a | a[1] = num1 } ) nAt2:= AScan( aNumpos, { | a | a[1] = num2 } ) IF aNumpos[nAt1][3] > aNumpos[nAt2][3] nX := aNumpos[nAt2][3] + ( aNumpos[nAt1][3] - aNumpos[nAt2][3] ) /2 ELSE nX := aNumpos[nAt1][3] + ( aNumpos[nAt2][3] - aNumpos[nAt1][3] ) /2 ENDIF IF aNumpos[nAt1][2] > aNumpos[nAt2][2] nY := aNumpos[nAt2][2] + ( aNumpos[nAt1][2] - aNumpos[nAt2][2] ) /2 ELSE nY := aNumpos[nAt1][2] + ( aNumpos[nAt2][2] - aNumpos[nAt1][2] ) /2 ENDIF ::Say( nY - nYOffset, nX - 0, LTRIM( STRzero( nDistanza,2 ) ),CLR_RED , , ::oFont, .t.,.t., nil ) return Nil //------------------------------------------------------------------------// METHOD Destroy() CLASS TCyclometric if ::hWnd != 0 ::Super:Destroy() endif return nil //------------------------------------------------------------------------// METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TCyclometric if nMsg == WM_MOUSELEAVE return ::MouseLeave( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) endif return ::Super:HandleEvent( nMsg, nWParam, nLParam ) //------------------------------------------------------------------------//

by **Marc Venken** » Tue Dec 06, 2022 11:23 am

Hello All,

I have to ask :oops:

I have no clue what ever this is doing. Looking at the Wikipedia is giving me no information that I understand about Cyclometric Circle. Can somebody 'try' to explain ? It's just to grap any notice of it )))

I have no mathematic background and this is sure one of the reasons why I went for a desk job in administration :twisted:

by **Silvio.Falconi** » Tue Dec 06, 2022 12:39 pm

Marc Venken wrote:Hello All,

I have to ask

I have no clue what ever this is doing. Looking at the Wikipedia is giving me no information that I understand about Cyclometric Circle. Can somebody 'try' to explain ? It's just to grap any notice of it )))

I have no mathematic background and this is sure one of the reasons why I went for a desk job in administration

Small Course
Cyclometry is applied to the extraction of the Italian lotto but can also be extended to other lotteries such as the Spanish or English ones

Cyclometry is based on an abstract concept in which ninety numbers are imagined around a circumference, in progressive order, from the first point, which represents the number 1, continuing clockwise up to 90.

The fundamental notions of cyclometrics, essential to know, are: distance, sum, midpoint and the related specific glossary.
As it is easy to understand, by joining two or more points on the circumference we obtain different geometric figures.

The most used in the cyclometric field are:
THE EQUILATERAL TRIANGLE
THE ISOSCELE TRIANGLE
THE RECTANGLE
THE SYMMETRIC QUADRILATERAL
THE ISOSCELES TRAPEZOID
THE REGULAR PENTAGON
THE DYNAMIC PENTAGON
THE REGULAR HEXAGON

If we join the numbers 90 and 45 on the circumference, we obtain a chord measuring 45 (90-45) which divides the circle into two perfectly equal parts.

This measurement, or rather distance, represents the diameter of the circumference.

Therefore, for the correct calculation of the cyclometric distances, the value 45 assumes particular importance.

From these considerations we can enunciate the following definition:

The cyclometric distance between two numbers is obtained by calculating the arithmetic difference (major minus minor); if the result exceeds "the limit" 45, the latter is subtracted from the fixed 90.

EXAMPLE "A".

Let's consider the numbers 5 - 34 and, in the cyclometric circle, join the two points:

Let's calculate the difference between the largest number (34) and the smallest one (5):

34-5= 29 Cyclometric Distance

The cycling distance between 34 and 5 is equal to 29.

EXAMPLE "B".

Now let's try to find the cyclometric distance between the numbers 25 and 78:

Let's make the difference between 78 (major) and 25 (minor):

78-25= 53 (greater than 45)

We easily notice that the value obtained exceeds 45 therefore, as anticipated, the result is subtracted from the fixed 90:

90-53= 37 Cyclometric Distance

In this case the cyclometric distance between 25 and 78 is equal to 37 (in practice the cyclometric distance corresponds to the shortest distance to travel by counting the numbers on the circumference).

the calculations are used to make a prediction for the numbers that could come out in the next draws for example let's look at the five numbers drawn in the Florence wheel

the numbers are 66,77,4,29,37

I create the shape with the numbers drawn, generally when the geometric shape is similar to a trapezoid the numbers could be sorted more easily

to calculate the numbers that could come out in the next draws, the internal diameter lines are drawn

So , the numbers that could come out in the next draws are the number you see on lines dot (28,33,42,37 on Florence wheel )

by **Marc Venken** » Tue Dec 06, 2022 2:41 pm

Silvio,

Thanks for the information. At least now i get the point of it and see what you mean. But just for the point of argument. If this is working, and this system is mathematic to prove right, there will be a lot of winners with the same
numbers ? Or are you going to put a 'personel touch' and change the number with you personel algoritm. I hope you succeed !!

In Belgium, we have only 45 numbers to draw...

by **Silvio.Falconi** » Wed Dec 07, 2022 8:36 am

Marc Venken wrote:Silvio,

Thanks for the information. At least now i get the point of it and see what you mean. But just for the point of argument. If this is working, and this system is mathematic to prove right, there will be a lot of winners with the same
numbers ? Or are you going to put a 'personel touch' and change the number with you personel algoritm. I hope you succeed !!

In Belgium, we have only 45 numbers to draw...

this is a statistical issue, I also have other procedures that calculate delays, frequencies, forecasts, figures, classes and other procedures.
They can also be adapted to your 45 number system,
Is there a historical archive of extractions in belgium?

FiveTech Software tech support forums

cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Re: cyclometric circle

Who is online