Pego1.PeString.MainTitle = "Hello World"
Pego1.PeString.SubTitle = ""
Pego1.PeData.Subsets = 2
Pego1.PeData.Points = 6
Pego1.PeData.Y(0, 0) = 10 : Pego1.PeData.Y(0, 1) = 30
Pego1.PeData.Y(0, 2) = 20 : Pego1.PeData.Y(0, 3) = 40
Pego1.PeData.Y(0, 4) = 30 : Pego1.PeData.Y(0, 5) = 50
Pego1.PeData.Y(1, 0) = 15 : Pego1.PeData.Y(1, 1) = 63
Pego1.PeData.Y(1, 2) = 75 : Pego1.PeData.Y(1, 3) = 54
Pego1.PeData.Y(1, 4) = 25 : Pego1.PeData.Y(1, 5) = 43
Pego1.PeString.PointLabels(0) = "Jan"
Pego1.PeString.PointLabels(1) = "Feb"
Pego1.PeString.PointLabels(2) = "Mar"
Pego1.PeString.PointLabels(3) = "Apr"
Pego1.PeString.PointLabels(4) = "May"
Pego1.PeString.PointLabels(5) = "June"
Pego1.PeString.SubsetLabels(0) = "For .Net Framework"
Pego1.PeString.SubsetLabels(1) = "or MFC, ActiveX, VCL"
Pego1.PeString.YAxisLabel = "Simple Quality Rendering"
Pego1.PeColor.SubsetColors(0) = System.Drawing.Color.FromArgb(60, 0, 180, 0)
Pego1.PeColor.SubsetColors(1) = System.Drawing.Color.FromArgb(190, 0, 0, 130)
Pego1.PeColor.BitmapGradientMode = False
Pego1.PeColor.QuickStyle = Gigasoft.ProEssentials.Enums.QuickStyle.LightShadow
Pego1.PeTable.Show = Gigasoft.ProEssentials.Enums.GraphPlusTable.Both
Pego1.PeData.Precision = Gigasoft.ProEssentials.Enums.DataPrecision.NoDecimals
Pego1.PeFont.Label.Bold = True
Pego1.PePlot.Method = Gigasoft.ProEssentials.Enums.GraphPlottingMethod.Bar
Pego1.PePlot.Option.GradientBars = 8
Pego1.PePlot.DataShadows = Gigasoft.ProEssentials.Enums.DataShadows.ThreeDimensional
Pego1.PeFont.FontSize = Gigasoft.ProEssentials.Enums.FontSize.Large
Pego1.PeUserInterface.HotSpot.Data = True
Pego1.PeLegend.Location = Gigasoft.ProEssentials.Enums.LegendLocation.Left
Pego1.PePlot.Option.BarGlassEffect = True
Pego1.PeConfigure.RenderEngine = Gigasoft.ProEssentials.Enums.RenderEngine.Direct2D
Pego1.PeConfigure.AntiAliasGraphics = True
Pego1.PeConfigure.AntiAliasText = True
Pego1.PeFunction.ReinitializeResetImage()
Pego1.Refresh() 'call standard .NET Refresh method to force paint
|