// 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 )
Silvio.Falconi wrote:Now How I can to refill the area with transparent color ?
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.
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.
#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
#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
#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
//------------------------------------------------------------------------//
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
//------------------------------------------------------------------------//
#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
//------------------------------------------------------------------------//
#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
//------------------------------------------------------------------------//
#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
//------------------------------------------------------------------------//
#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
//------------------------------------------------------------------//
#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 )
//------------------------------------------------------------------------//
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
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...
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 29 guests