<
telerik:RadTreeView
ID
=
"rtOutline"
runat
=
"server"
AccessKey
=
"w"
CausesValidation
=
"False"
EnableDragAndDrop
=
"True"
EnableDragAndDropBetweenNodes
=
"True"
EnableViewState
=
"True"
CollapseAnimation-Type
=
"None"
ExpandAnimation-Type
=
"None"
OnNodeExpand
=
"rtOutline_NodeExpand"
>
<
ContextMenus
>
<
telerik:RadTreeViewContextMenu
ID
=
"ElementMenu"
runat
=
"server"
EnableAutoScroll
=
"True"
>
</
telerik:RadTreeViewContextMenu
>
</
ContextMenus
>
<
ExpandAnimation
Type
=
"None"
/>
</
telerik:RadTreeView
>
Protected Sub rtOutline_NodeExpand(sender As Object, e As Telerik.Web.UI.RadTreeNodeEventArgs) Handles rtOutline.NodeExpand
Dim newNode As RadTreeNode = NodeControl.LoadNodes(e.Node, rtOutline)
e.Node = newNode
End Sub
Dim nodeMenu As RadTreeViewContextMenu = myMenuBuilder.BuildMenu(targetNode)
nodeTreeview.ContextMenus.Add(nodeMenu)
targetNode.ContextMenuId = nodeMenu.ID
Public Function BuildMenu(ByVal myNode As RadTreeNode) As RadTreeViewContextMenu
Dim myMenu As New RadTreeViewContextMenu
Dim menuElements As List(Of ElementWrapper) = LoadElements(myNode.Attributes("IID"))
Dim helpItem As New RadMenuItem
Dim iLoopCounter As Int32 = 0
'***** Loading Menu Item
Dim mnuLoading As New RadMenuItem
mnuLoading.Text = "Loading..."
mnuLoading.Enabled = False
myMenu.Items.Add(mnuLoading)
For Each a As ElementWrapper In menuElements
Dim newMenuItem As New RadMenuItem
newMenuItem.Text = a.Text
newMenuItem.EnableImageSprite = a.Enabled
newMenuItem.Attributes.Add("Command", a.Cmd)
newMenuItem.Attributes.Add("CommandArg", a.CmdArg)
newMenuItem.Attributes.Add("IID", myNode.Attributes("IID"))
If a.Cmd = "HELP_MENU" Then
helpItem = newMenuItem
Dim aSplitter = New RadMenuItem
aSplitter.IsSeparator = True
Dim myStyle As New Style
myStyle.Width = Unit.Pixel(125)
aSplitter.ApplyStyle(myStyle)
myMenu.Items.Add(aSplitter)
ElseIf a.Cmd = "HELP_ITEM" Then
helpItem.Items.Add(newMenuItem)
Else
myMenu.Items.Add(newMenuItem)
End If
iLoopCounter = iLoopCounter + 1
Next
Dim newHeight As Int32 = iLoopCounter * 25
If newHeight > 250 Then newHeight = 250
myMenu.AutoScrollMinimumHeight = newHeight
myMenu.ID = "mnu" & myNode.Attributes("IID")
myMenu.EnableViewState = True
myMenu.ClientIDMode = ClientIDMode.Static
Return myMenu
End Function
private
RadChart criaGrafico(TransacoesNegadasPorBinBL bl)
{
RadChart radChart1 = new RadChart();
radChart1.Height = 450;
radChart1.Width = 1080;
radChart1.Appearance.Position.AlignedPosition = Telerik.Charting.Styles.
AlignedPositions.Center;
radChart1.ChartTitle.TextBlock.Text = bl.tituloGrafico;
radChart1.ChartTitle.TextBlock.Appearance.Position.AlignedPosition = Telerik.Charting.Styles.
AlignedPositions.Center;
radChart1.ChartTitle.TextBlock.Appearance.TextProperties.Font =
new System.Drawing.Font("Arial", 15, System.Drawing.FontStyle.Bold);
radChart1.ChartTitle.Appearance.Dimensions.AutoSize =
false;
radChart1.ChartTitle.Appearance.Dimensions.Height = 25;
radChart1.ChartTitle.Appearance.Dimensions.Width = 750;
radChart1.ChartTitle.Appearance.Dimensions.Margins.Left = Telerik.Charting.Styles.
Unit.Percentage(5);
radChart1.ChartTitle.Appearance.Dimensions.Margins.Right = Telerik.Charting.Styles.
Unit.Percentage(5);
radChart1.Legend.Appearance.Position.AlignedPosition = Telerik.Charting.Styles.
AlignedPositions.Bottom;
radChart1.Legend.Appearance.Overflow = Telerik.Charting.Styles.
Overflow.Row;
radChart1.Legend.Appearance.Dimensions.AutoSize =
false;
radChart1.Legend.Appearance.Dimensions.Height = 25;
radChart1.Legend.Appearance.Dimensions.Width = 400;
radChart1.Legend.Appearance.Border.Color = System.Drawing.
Color.Transparent;
radChart1.Legend.Appearance.Position.AlignedPosition = Telerik.Charting.Styles.
AlignedPositions.Bottom;
radChart1.Legend.TextBlock.Appearance.Position.AlignedPosition = Telerik.Charting.Styles.
AlignedPositions.Center;
radChart1.PlotArea.Appearance.FillStyle.FillType = Telerik.Charting.Styles.
FillType.Solid;
radChart1.PlotArea.Appearance.FillStyle.MainColor = System.Drawing.
Color.Transparent;
radChart1.PlotArea.Appearance.Border.Visible =
false;
radChart1.PlotArea.Appearance.Dimensions.AutoSize =
false;
radChart1.PlotArea.Appearance.Dimensions.Margins.Top = Telerik.Charting.Styles.
Unit.Percentage(20);
radChart1.PlotArea.Appearance.Dimensions.Margins.Bottom = Telerik.Charting.Styles.
Unit.Percentage(30);
radChart1.PlotArea.Appearance.Dimensions.Margins.Left = Telerik.Charting.Styles.
Unit.Percentage(8);
radChart1.PlotArea.Appearance.Dimensions.Margins.Right = Telerik.Charting.Styles.
Unit.Percentage(7);
radChart1.PlotArea.Appearance.Dimensions.Height = 300;
radChart1.PlotArea.Appearance.Dimensions.Width = 1000;
// Telerik.Charting.Styles.Unit.Pixel(400);
radChart1.PlotArea.XAxis.LayoutMode = Telerik.Charting.Styles.
ChartAxisLayoutMode.Inside;
radChart1.PlotArea.XAxis.AutoScale =
false;
radChart1.PlotArea.XAxis.IsZeroBased =
false;
radChart1.PlotArea.XAxis.Appearance.MajorGridLines.Visible =
false;
radChart1.PlotArea.XAxis.Appearance.TextAppearance.AutoTextWrap = Telerik.Charting.Styles.
AutoTextWrap.True;
radChart1.PlotArea.XAxis.Appearance.LabelAppearance.Position.AlignedPosition = Telerik.Charting.Styles.
AlignedPositions.Top;
radChart1.PlotArea.XAxis.Appearance.TextAppearance.TextProperties.Font =
new System.Drawing.Font("Arial", 8);
radChart1.Legend.Appearance.ItemMarkerAppearance.Dimensions.Width = 25;
radChart1.Legend.Appearance.ItemMarkerAppearance.Figure = Telerik.Charting.Styles.
DefaultFigures.Rectangle;
ChartSeries chartSeries1 = radChart1.CreateSeries("Quant. Transações ", System.Drawing.Color.Blue, System.Drawing.Color.Blue, ChartSeriesType.Bar);
ChartSeries chartSeries2 = radChart1.CreateSeries("Percentual Negadas ", System.Drawing.Color.Red, System.Drawing.Color.Red, ChartSeriesType.Line);
chartSeries1.Type =
ChartSeriesType.Bar;
chartSeries2.Type =
ChartSeriesType.Line;
chartSeries2.Appearance.LabelAppearance.Visible =
false;
chartSeries1.DefaultLabelValue =
"#Y{F0}%";
//chartSeries2.Appearance.LabelAppearance.LabelConnectorStyle.
radChart1.Legend.Appearance.Overflow = Telerik.Charting.Styles.
Overflow.Row;
radChart1.Legend.Appearance.Position.AlignedPosition = Telerik.Charting.Styles.
AlignedPositions.Bottom;
radChart1.PlotArea.YAxis2.Visible = Telerik.Charting.Styles.
ChartAxisVisibility.True;
radChart1.PlotArea.YAxis2.AutoScale =
false;
//radChart1.PlotArea.YAxis2.AddRange(0, 0.8, 0.1);
chartSeries2.PlotArea.YAxis.YAxisType.ToString();
radChart1.PlotArea.YAxis2.AddRange(0, 1200, 100);
//A orientação do gráfico
radChart1.SeriesOrientation =
ChartSeriesOrientation.Vertical;
chartSeries1.PlotArea.XAxis.AddRange(0, bl.listaValor.Count, 1);
for (int i = 0; i < bl.listaValor.Count; i++)
{
chartSeries1.PlotArea.XAxis[i].TextBlock.Text = bl.listaValor[i];
}
chartSeries1.SetValues(bl.listaQuantTransacoes.ToArray());
chartSeries2.SetValues(bl.listaQuantTransacoes.ToArray());
return radChart1;
}