184 lines
4.2 KiB
Text
184 lines
4.2 KiB
Text
' Gambas class file
|
|
|
|
Export
|
|
'PUBLIC CONST Top AS Integer = 1
|
|
'Public Const Bottom As Integer = Align.Bottom
|
|
'PUBLIC CONST {Left} AS Integer = 3
|
|
'Public Const {Right} As Integer = Align.Right
|
|
Private $iWidth As Integer
|
|
Private $iHeight As Integer
|
|
Private $iPosition As Integer = Align.Right 'Me.Right
|
|
Private $sTitle As String
|
|
Private $bVisible As Boolean = False
|
|
Private $oFont As New Font
|
|
Property {Font} As Font
|
|
|
|
Property Title As String
|
|
Property Position As Integer
|
|
Property Visible As Integer
|
|
Property Read _Width As Integer
|
|
Property Read _Height As Integer
|
|
|
|
|
|
Public Sub _New()
|
|
|
|
Me.Font.Size = 11
|
|
|
|
End
|
|
|
|
Private Function Title_Read() As String
|
|
|
|
Return $sTitle
|
|
|
|
End
|
|
|
|
Private Sub Title_Write(Value As String)
|
|
|
|
$sTitle = Value
|
|
|
|
End
|
|
|
|
Private Function Position_Read() As Integer
|
|
|
|
Return $iPosition
|
|
|
|
End
|
|
|
|
Private Sub Position_Write(Value As Integer)
|
|
|
|
$iPosition = Value
|
|
|
|
End
|
|
|
|
Private Function Visible_Read() As Integer
|
|
|
|
Return $bVisible
|
|
|
|
End
|
|
|
|
Private Sub Visible_Write(Value As Integer)
|
|
|
|
$bVisible = Value
|
|
|
|
End
|
|
|
|
Public Sub Draw(bSeries As Boolean)
|
|
|
|
Dim x, y, w, h As Integer
|
|
Dim S As String
|
|
Dim i, cnt As Integer
|
|
Dim SQUARESIZE As Integer
|
|
Dim TitleH As Integer
|
|
'DIM hColumn AS _Column
|
|
Dim iStaticSpace As Integer = 5 * Chart._fProportionnal
|
|
Dim arsInt As String[]
|
|
Dim oSerie As _CSerie
|
|
$iWidth = 0
|
|
$iHeight = 0
|
|
'Créé un tableau interne contenant soit les série soit les entête
|
|
|
|
If bSeries Then
|
|
arsInt = New String[]
|
|
For Each oSerie In Chart
|
|
arsInt.Add(oSerie.Text)
|
|
Next
|
|
Else
|
|
arsInt = Chart.Headers.Values
|
|
Endif
|
|
|
|
|
|
If Not $bVisible Then Return
|
|
|
|
w = Chart.Width
|
|
h = Chart.Height
|
|
'draw.Font = Chart.Font
|
|
'Get the max text length
|
|
For Each s In arsInt
|
|
i = draw.TextWidth(s)
|
|
If i > cnt Then cnt = i
|
|
Next
|
|
draw.Font = $oFont
|
|
draw.Font.Size = $oFont.Size * Chart._fProportionnal
|
|
SQUARESIZE = draw.TextHeight("T")
|
|
|
|
Select Case $iPosition
|
|
Case Align.Right 'Me.Right
|
|
If draw.TextWidth(Chart.Legend.Title) > cnt Then cnt = draw.TextWidth(Chart.Legend.Title)
|
|
w = iStaticSpace + SQUARESIZE + iStaticSpace + cnt + iStaticSpace
|
|
|
|
If $sTitle <> "" Then TitleH = draw.TextHeight($sTitle)
|
|
|
|
h = TitleH + iStaticSpace + arsInt.Count * (draw.Font.Height() + iStaticSpace)
|
|
x = Chart.Width - w - iStaticSpace
|
|
y = (Chart.Height - h) / 2
|
|
draw.ForeColor = Color.Black
|
|
Draw.Rect(x, Y, w, h)
|
|
Draw.Text(Chart.Legend.Title, x + iStaticSpace + (w - cnt) / 2, Y)
|
|
draw.Font.Size = $oFont.Size * Chart._fProportionnal
|
|
cnt = 0
|
|
For i = 0 To arsInt.max
|
|
Draw.FillColor = Chart.Colors[i]
|
|
Draw.FillStyle = Fill.Solid
|
|
Draw.Rect(x + iStaticSpace, Y + TitleH + iStaticSpace + cnt, SQUARESIZE, SQUARESIZE)
|
|
Draw.Text(arsInt[i], x + iStaticSpace + SQUARESIZE + iStaticSpace, Y + TitleH + iStaticSpace + cnt)
|
|
cnt += Draw.Font.Height() + iStaticSpace
|
|
Next
|
|
|
|
|
|
$iWidth = w + iStaticSpace
|
|
$iHeight = 0
|
|
|
|
Case Align.Bottom
|
|
If $sTitle <> "" Then TitleH = draw.TextHeight($sTitle)
|
|
h = iStaticSpace + TitleH + iStaticSpace + SQUARESIZE + iStaticSpace
|
|
w = 0
|
|
For Each s In arsInt
|
|
w += iStaticSpace + SQUARESIZE + 5 + draw.TextWidth(s) + iStaticSpace
|
|
Next
|
|
w += iStaticSpace
|
|
Draw.Rect((Chart.Width - w) / 2, Chart.Height - h - iStaticSpace, w, h)
|
|
Draw.Text($sTitle, (Chart.Width - Draw.TextWidth($sTitle)) / 2, Chart.Height - h)
|
|
x = (Chart.Width - w) / 2
|
|
y = Chart.Height - h + TitleH + iStaticSpace
|
|
i = 0
|
|
draw.Font.Size = $oFont.Size * Chart._fProportionnal
|
|
For Each s In arsInt
|
|
x += iStaticSpace
|
|
draw.FillColor = Chart.Colors[i]
|
|
Draw.FillStyle = Fill.Solid
|
|
draw.Rect(x, y, SQUARESIZE, SQUARESIZE)
|
|
x += SQUARESIZE + iStaticSpace
|
|
draw.Text(s, x, y)
|
|
|
|
x += draw.TextWidth(s) + iStaticSpace
|
|
Inc i
|
|
Next
|
|
$iWidth = 0
|
|
$iHeight = h + iStaticSpace
|
|
End Select
|
|
End
|
|
|
|
|
|
Private Function _Width_Read() As Integer
|
|
|
|
Return $iWidth
|
|
|
|
End
|
|
|
|
Private Function _Height_Read() As Integer
|
|
|
|
Return $iHeight
|
|
|
|
End
|
|
|
|
Private Function Font_Read() As Font
|
|
|
|
Return $oFont
|
|
|
|
End
|
|
|
|
Private Sub Font_Write(Value As Font)
|
|
|
|
$oFont = Value
|
|
|
|
End
|