Search found 9507 matches

by Yeray
Tue Aug 05, 2008 8:15 am
Forum: VCL
Topic: copy chart to excel
Replies: 3
Views: 5320

Hi mc, Could you take a look at this example and see if it's useful at your end? procedure TForm1.Button1Click(Sender: TObject); Function GetChartJPEG(AChart:TCustomChart):TJPEGImage; var tmpBitmap:TBitmap; tmpChart: TChart; i:integer; begin result:=TJPEGImage.Create; { <-- create a TJPEGImage } tmp...
by Yeray
Mon Aug 04, 2008 7:41 am
Forum: VCL
Topic: Teechartpro 7.12 Drawing a graph
Replies: 25
Views: 38116

Hi Clara,

This works for me here.

Code: Select all

procedure TForm1.TeeFunction1Calculate(Sender: TCustomTeeFunction;
  const x: Double; var y: Double);
begin
  //y := 2+3*(1+x)-5 + (abs(power(-x,2)) - x*x) * 2 - 1/(x + 1);
 y := sin(x) + cos(x) - abs(tan(x)) + x;
end;
by Yeray
Thu Jul 31, 2008 8:28 am
Forum: VCL
Topic: 2 sets of axisarrowtools for the same axis
Replies: 13
Views: 20720

Hi Colin, The code I posted yesterday was for using a trackbar outside of the editor. Here you have a code I suggest you using a scrollbar with a 2D chart. procedure TForm1.ScrollBar1Change(Sender: TObject); var XIncrement, YIncrement: Double; begin with Series1 do begin XIncrement := ((MaxXValue - ...
by Yeray
Wed Jul 30, 2008 10:18 am
Forum: VCL
Topic: 2 sets of axisarrowtools for the same axis
Replies: 13
Views: 20720

Hi Colin, I think I don't understand your request. I mean the Zoom slider, or trackbar, at ChartEditor -> Chart -> 3D . To do the same as this trackbar does, you could simply do: procedure TForm1.FormCreate(Sender: TObject); begin TrackBar1.Min := 0; TrackBar1.Max := 500; TrackBar1.Position := Chart...
by Yeray
Wed Jul 30, 2008 7:46 am
Forum: VCL
Topic: Stacked Line Charts
Replies: 4
Views: 9218

Hi Colin,

In that case you may be interested in having a look at the interpolation example from Narcis.
by Yeray
Tue Jul 29, 2008 8:37 am
Forum: VCL
Topic: Using Teechart 8.02 in quickreport5 (Delphi 2007)
Replies: 12
Views: 10807

Hi yam49,

I've sent a link to download the v8.03 Release Candidate to your email account. As you are source code customer, probably the easiest way to install everything may be using TeeRecompile.
by Yeray
Tue Jul 29, 2008 8:11 am
Forum: VCL
Topic: Stacked Line Charts
Replies: 4
Views: 9218

Hi Colin, I'm afraid it won't work as you expect. Both Line and Area series calculate the stacked result following the series' indexes. So, the first, result point will be the result of the addition of the firsts values if stacked series. And if they don't coincide in x, it won't look as expected. I...
by Yeray
Tue Jul 29, 2008 7:32 am
Forum: VCL
Topic: Using Teechart 8.02 in quickreport5 (Delphi 2007)
Replies: 12
Views: 10807

Hi yam49,

I'm happy to see that!
by Yeray
Mon Jul 28, 2008 8:58 am
Forum: VCL
Topic: quadrant labels
Replies: 4
Views: 6275

Hi mc,

I think that annotation tool is what probably you are looking for. You can customize the text, color, position,...
by Yeray
Mon Jul 28, 2008 8:50 am
Forum: VCL
Topic: Using Teechart 8.02 in quickreport5 (Delphi 2007)
Replies: 12
Views: 10807

Hi yam49,

Could you try to follow the QuickReport instructions here?

And note that in this topic title you talk about QuickReport v5 and the packages you are mentioning are from QuickReport v4 (xxxQR4xxx.dpk and DclxxxQR4xxx.dpk).
by Yeray
Mon Jul 28, 2008 8:27 am
Forum: ActiveX
Topic: Customizing Bottom Axis Labels
Replies: 1
Views: 3756

Hi marathoner,

You could use custom labels or OnGetAxisLabel event to customize your axes' labels.
by Yeray
Mon Jul 28, 2008 8:21 am
Forum: ActiveX
Topic: Change individual candle bar color
Replies: 1
Views: 4686

Hi David, I've tried what you say, and I've been able to set open-close colors, up-down color and even border width and color with TeeChart AX v6.0.1.1. These are customizations for the whole series and not for individual candles, but you can use OnGetPointerStyle event to apply each setup to differ...
by Yeray
Thu Jul 24, 2008 9:38 am
Forum: ActiveX
Topic: Fixing one side of the zoom rectangle?
Replies: 4
Views: 6512

Hi Phil, Then you should draw your custom Rectangle while the mouse holds down and apply a custom zoom at OnMouseUp event. Something as follows: Dim EndX, EndY As Double Dim Go As Boolean Private Sub Form_Load() TChart1.Aspect.View3D = False TChart1.AddSeries scPoint TChart1.Series(0).FillSampleValu...
by Yeray
Thu Jul 24, 2008 8:20 am
Forum: VCL
Topic: 2 sets of axisarrowtools for the same axis
Replies: 13
Views: 20720

Hi Colin,

1. Scrollbars should work with DateTime axis. Have you received this example from Narcis?

2. So, you are planning to add a slider to do something similar as the Zoom slider does in the Design Time editor?
by Yeray
Wed Jul 23, 2008 9:01 am
Forum: ActiveX
Topic: Fixing one side of the zoom rectangle?
Replies: 4
Views: 6512

Hi Phil, If we understood well, you are trying to do something as following: Dim MinLeft As Double Private Sub Form_Load() TChart1.Aspect.View3D = False TChart1.AddSeries scPoint TChart1.Series(0).FillSampleValues 25 TChart1.Environment.InternalRepaint MinLeft = TChart1.Axis.Left.Minimum MinBottom =...