Steema Central

Code: Select all

            tChart1.Legend.Symbol.Width = 15;

Code: Select all

    Function ReadExtendedStrings() As Boolean
        If MyStreamReader.BaseStream.Position >= MyStreamReader.BaseStream.Length - 5 Then Return True
        'If fs.Position = fs.Size Then begin()
        '  result:=true;
        '  exit;
        'end;
        'MyStreamReader.BaseStream.Position = MyXYF_Information.Positions(0).ExtendedStrings
        ReadExtendedStrings = False
        Dim count As Integer
        Dim s As String
        'Dim ss As String
        Dim i As Integer
        Dim Left As Integer
        Dim Top As Integer
        Dim Bottom As Integer
        Dim Right As Integer
        Dim ii As Integer = 1
        'read:=read+fs.read(nr, sizeof(integer));
        count = MyStreamReader.ReadInt32
        'oldnr:=length(Graph.FExtendedStrings);
        'If Not FLoadOnlyTemplateLayout Then
        'SetLength(Graph.FExtendedStrings, oldnr+nr);
        'for i:=oldnr+1 to oldnr+nr do begin;
        For i = 0 To count - 1
            '  estr:=@Graph.FExtendedStrings[i-1];          
            '  if FLoadOnlyTemplateLayout then estr:=nil;
            '  if not loadgraphappearance then estr:=nil;   //  neu 2004-08-24
            s = ReadExtendedString(Left, Top)
            '  readstring(estr);
            '  if estr=nil then SetLength(Graph.FExtendedStrings, Length(Graph.FExtendedStrings)-1) // neu 2004-08-24
            's = s.Replace("#13", "\n")
            s = s.Replace("#13", "\n")
            Bottom = Top
            Right = Left
            Dim An As New Steema.TeeChart.Tools.Annotation(Graph.Chart)
            An.Active = True
            An.Text = s
            An.Shape.CustomPosition = True
            An.Shape.Left = Left
            An.Shape.Top = Top
            An.Shape.Bottom = Bottom
            An.Shape.Right = Right
            An.Shape.Color = Color.Transparent
            An.Shape.Pen.Visible = False
            An.Shape.Shadow.Visible = False
            'AddHandler An.Click, AddressOf MyChildWindow.Annotation1_Click
            ii = 1
        Next
        'end;
        'if Version > 110 Then begin()
        '  read:=read+fs.Read(i, sizeof(integer));
        If Ver > 110 Then i = MyStreamReader.ReadInt32
        '  result:=read=i;
        '  if not result then exit;
        'end;
        'result:=true;
        'end;

        Return True
    End Function

Code: Select all

        public Form1()
        {
            InitializeComponent();
            InitializeChart();
        }
        RichTextBox richTextBox1;
        PictureBox pictureBox1;
        private void InitializeChart()
        {
            Steema.TeeChart.Styles.Bar bar = new Steema.TeeChart.Styles.Bar(tChart1.Chart);
    
            richTextBox1 = new RichTextBox();
            pictureBox1 = new PictureBox();
            this.pictureBox1.Location = new Point(richTextBox1.Width, 0);
            bar.FillSampleValues();
            tChart1.Controls.Add(richTextBox1);
            tChart1.Controls.Add(pictureBox1);
            richTextBox1.Text = "";
            richTextBox1.TextChanged +=new EventHandler(richTextBox1_TextChanged);
            pictureBox1.SizeChanged +=new EventHandler(pictureBox1_SizeChanged);    

        }
        private void richTextBox1_TextChanged(object sender, EventArgs e)
        {
            this.DrawText(richTextBox1.Lines);
        }

        private void DrawText(string[] lines)
        {
            Graphics g = Graphics.FromHwnd(this.pictureBox1.Handle);
            g.Clear(Color.White);
            StringFormat stringFormat = new StringFormat();
            stringFormat.FormatFlags = StringFormatFlags.DirectionVertical;
            float xPos = 0;
            foreach (string s in lines)
            {
                g.DrawString(s, new Font("Times NewRoman", 10), Brushes.Black, new PointF(xPos, 0f), stringFormat);
                xPos += 17;
            }
            g.Flush();
        }

        private void pictureBox1_SizeChanged(object sender, EventArgs e)
        {
            this.DrawText(richTextBox1.Lines);
        }

Code: Select all

 public Form1()
        {
            InitializeComponent();
            InitializeChart();
        }
        Steema.TeeChart.Editor editor;
        private void InitializeChart()
        {
            Steema.TeeChart.Styles.Bar bar = new Steema.TeeChart.Styles.Bar(tChart1.Chart);
            bar.FillSampleValues();
            editor = new Steema.TeeChart.Editor();
            editor.Chart = tChart1;
       
        }

        private void button1_Click(object sender, EventArgs e)
        {
           	editor.HighLightTabs = true;
		editor.HideTabs = new Steema.TeeChart.Editors.ChartEditorTabs[] {
				Steema.TeeChart.Editors.ChartEditorTabs.Axes
			};
		editor.Options = new Steema.TeeChart.Editors.ChartEditorOptions[] {
				Steema.TeeChart.Editors.ChartEditorOptions.Add
			};	

            editor.ShowModal();
		}

Code: Select all

If Chart1.Legend.Items(e.Index).SymbolRectangle.Left = 10 Then Beep()
If Chart1.Legend.Items(2).Top = 10 Then Beep()

Code: Select all

        Chart1.Export.Template.IncludeData = True
        Chart1.Export.Template.Save(FileName)

Code: Select all

Chart1.Import.Template.Load(FileName)

Code: Select all

void Symbol_OnSymbolDraw(object sender, Steema.TeeChart.SymbolDrawEventArgs e)
        {
            if (e.Rect.Left==10)
            {
                e.ValueIndex.ToString();
            }

            if (e.ValueIndex == 2)
            {
                if (e.Rect.Top == 2)
                {
                    this.Text = e.ValueIndex.ToString();
                }
            }
        }

Code: Select all

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Return
        Chart1.Tag = "test"
        Chart1.Export.Template.IncludeData = True
        Chart1.Export.Template.Save(SaveFileDialog1.FileName)
        Chart1.Tag = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Not OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Return
        Chart1.Import.Template.Load(OpenFileDialog1.FileName)
        MsgBox(Chart1.Tag)
    End Sub

Code: Select all

Chart1.Legend.Items(e.Index).SymbolRectangle.Left 'is always(0,0,0,0)
Chart1.Legend.Items(2).Top ' is = 0

Code: Select all

Chart1.Legend.Items(i).Top

Code: Select all

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Chart1.Walls.View3D = False
        Chart1.Aspect.View3D = False
        Chart1.Series(0).FillSampleValues()
        Chart1.Series(1).FillSampleValues()
        Chart1.Legend.Items(0).Tag = "legend item test"
        Chart1.Series(0).Tag = "series test"
        If SaveFileDialog1.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
        Chart1.Export.Template.IncludeData = True
        Chart1.Export.Template.Save(SaveFileDialog1.FileName)
        Chart1.Legend.Items(0).Tag = ""
        Chart1.Series(0).Tag = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Not OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Return
        Chart1.Import.Template.Load(OpenFileDialog1.FileName)
        MsgBox(Chart1.Legend.Items(0).Tag)
        MsgBox(Chart1.Series(0).Tag)
    End Sub

Code: Select all

            
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Chart1.Walls.View3D = False
        Chart1.Aspect.View3D = False
        Chart1.Series(0).FillSampleValues()
        Chart1.Series(1).FillSampleValues()
        Chart1.Series(1).Title = "Test"
        Chart1.Legend.LegendStyle = Steema.TeeChart.LegendStyles.Series
        Chart1.Invalidate()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Chart1.Series.Remove(Chart1.Series(0))
        Chart1.Invalidate()
        MsgBox(Chart1.Legend.Items.Count.ToString)  ' displayed is: "2"
    End Sub

Code: Select all

        public Form1()
        {
            InitializeComponent();
            InitializeChart();
        }
        private Steema.TeeChart.Styles.Line line1;
        private void InitializeChart()
        {
            tChart1.Aspect.View3D = false;
            line1 = new Steema.TeeChart.Styles.Line(tChart1.Chart);
            this.line1.Add(1, 1.0);
            this.line1.Add(2, 1.0e+1);
            this.line1.Add(3, 1.0e+2);
            this.line1.Add(4, 1.0e+3);
            this.line1.Add(5, 1.0e+4);
            this.line1.Add(6, 1.0e+5);
            this.line1.Add(7, 1.0e+6);
            for (int i = 0; i < line1.Count; i++)
            {
                line1[i].Label = "1.0•e+" + Math.Log10(line1[i].Y).ToString();
            }
            tChart1.Axes.Left.Labels.Exponent = true;
            tChart1.Axes.Left.Labels.ValueFormat = "#.0•10 E+0";
            tChart1.GetLegendText += new Steema.TeeChart.GetLegendTextEventHandler(tChart1_GetLegendText);
            tChart1.Axes.Bottom.Labels.Style = Steema.TeeChart.AxisLabelStyle.Value;
        }

        void tChart1_GetLegendText(object sender, Steema.TeeChart.GetLegendTextEventArgs e)
        {
            e.Text = line1[e.Index].Label;
        }