Search found 8963 matches

by Yeray
Fri Oct 02, 2020 1:41 pm
Forum: VCL
Topic: Quickreport installation problem
Replies: 4
Views: 2443

Re: Quickreport installation problem

Hello,

I've replaced all the that {$IFNDEF NOUSE_BDE} for {$IFNDEF NOTEEDB} in this unit.

Code: Select all

  TQRDBChart=class({$IFNDEF NOTEEDB}TCustomDBChart{$ELSE}TCustomChart{$ENDIF})
That way, only Starter IDEs, which don't have DB, won't have access to Dataset.
by Yeray
Thu Oct 01, 2020 6:30 am
Forum: VCL
Topic: Title‘s Colors in ChartListBox
Replies: 3
Views: 2018

Re: Title‘s Colors in ChartListBox

Hello,

You are setting the series LinePen.Color, which is ok for the lines connecting the 3d points, but you should set the main series' Color.
by Yeray
Wed Sep 30, 2020 9:33 am
Forum: VCL
Topic: TChartSeries.CalcFirstLastVisibleIndex not quite as expected
Replies: 5
Views: 4091

Re: TChartSeries.CalcFirstLastVisibleIndex not quite as expected

Hello Toreba, The issue is that you are calculating the first and last visible values in the series when the axis hasn't been yet recalculated. That's why this can be solved forcing a chart repaint Self.chtFastLine.Draw; or simply a bottom axis recalculation Self.chtFastLine.Axes.Bottom.AdjustMaxMin...
by Yeray
Wed Sep 30, 2020 9:16 am
Forum: VCL
Topic: Title‘s Colors in ChartListBox
Replies: 3
Views: 2018

Re: Title‘s Colors in ChartListBox

Hello, It seems to work fine for me here: Project1_2020-09-30_11-15-02.png procedure TForm1.FormCreate(Sender: TObject); var Chart1: TChart; ChartListBox1: TChartListBox; begin Chart1:=TChart.Create(Self); ChartListBox1:=TChartListBox.Create(Self); with Chart1 do begin Parent:=Self; View3D:=False; A...
by Yeray
Wed Sep 30, 2020 7:59 am
Forum: VCL
Topic: Caption goes outside of bounderies
Replies: 9
Views: 4378

Re: Caption goes outside of bounderies

Hello, You could wrap the text to fit the length you wish. In this case you may want to use ChartRect.Height . Ie: procedure TForm1.WrapLeftAxisTitle(aChart: TChart; const aHeight: Integer); var lOneLineTitle: String; lTitleHeight: Integer; lTitle: TChartAxisTitle; lHeight: Integer; begin Assert(aCh...
by Yeray
Wed Sep 30, 2020 7:30 am
Forum: VCL
Topic: Show grid when no series is active
Replies: 3
Views: 1894

Re: Show grid when no series is active

Hello Alex, TeeChart doesn't draw an axis when no series uses it and LabelStyle is set to its default value: talAuto . Also, you may want to set some min and max. Ie: Chart1.Axes.Bottom.SetMinMax(0,10); Chart1.Axes.Bottom.LabelStyle:=talValue; Chart1.Axes.Left.SetMinMax(0,10); Chart1.Axes.Left.Label...
by Yeray
Wed Sep 30, 2020 7:20 am
Forum: VCL
Topic: Installed but not in IDE
Replies: 1
Views: 1319

Re: Installed but not in IDE

Hello Teri,

Try to add the design time package (DclTeePro927.bpl) from the "Delphi27\Delphi27.win32\Bin" folder in your TeeChart installation into the "Components/Install packages" list.
by Yeray
Wed Sep 30, 2020 6:53 am
Forum: VCL
Topic: Quickreport installation problem
Replies: 4
Views: 2443

Re: Quickreport installation problem

Hello,

The TQRChart packages you are using may be referencing the DclTee (Standard) package instead of the DclTeePro package.
Find here the packages precompiled for RAD Tokyo 10.2.3, QuickReport 6 and TeeChart Pro v2020.30:
Tee9QR6D25_2020.30.zip
(234.48 KiB) Downloaded 191 times
by Yeray
Wed Sep 30, 2020 5:25 am
Forum: VCL
Topic: Series ONCLICK and Chart1SeriesClick Events Not Functioning
Replies: 2
Views: 1728

Re: Series ONCLICK and Chart1SeriesClick Events Not Functioning

Hello,

I don't seem to remember experiencing an issue like that. If you can arrange a simple example project we can run as-is to reproduce the situation here I'll be glad to test it.
Thanks in advance.
by Yeray
Tue Sep 29, 2020 12:53 pm
Forum: VCL
Topic: Caption goes outside of bounderies
Replies: 9
Views: 4378

Re: Caption goes outside of bounderies

Hello, Sorry for the delay here. You could create a new method (ie WrapLeftAxisTitle ) and move the code from the OnResize event to it. Then, you only have to add a few parameters to it and call it both at OnResize event and in your AssignChartToGraphic method. Ie: Axis Caption with Image.zip
by Yeray
Tue Sep 29, 2020 7:47 am
Forum: VCL
Topic: BoxPlot Initial Paint seems to be wrong
Replies: 6
Views: 3654

Re: BoxPlot Initial Paint seems to be wrong

Hello,

You are right, Chart1.Draw isn't enough with this kind of series because this series min and max doesn't correspond to the y values min and max. It needs Series1.RecalcStats to be called instead.
by Yeray
Mon Sep 28, 2020 11:39 am
Forum: VCL
Topic: Two questions about TPoint3Dseries
Replies: 4
Views: 2887

Re: Two questions about TPoint3Dseries

Hello,
xsLiu wrote:
Wed Sep 16, 2020 12:14 pm
1. The Callout does not draw a line from THE ANNOTATION.
I've reproduced it so I've added it to the public tracker:
http://bugs.teechart.net/show_bug.cgi?id=2372
xsLiu wrote:
Wed Sep 16, 2020 12:14 pm
2. Axis’s Titles are not in the right positions and angles.
Take a look at the discussion and code here.
by Yeray
Fri Sep 25, 2020 1:58 pm
Forum: Activex
Topic: Chart Refuses To Draw Axis As Specified
Replies: 2
Views: 2180

Re: Chart Refuses To Draw Axis As Specified

Hello, Calling SetMinMax is usually enough to reflect the changes immediatelly. If it doesn't it may be because some other setting in the chart is impeding it. Do you have AutoRepaint set to false? If you still find problems with it, please arrange a simple example project we can run as-is to reprod...
by Yeray
Fri Sep 25, 2020 1:54 pm
Forum: VCL
Topic: How to draw an elliptic cylinder?
Replies: 5
Views: 3197

Re: How to draw an elliptic cylinder?

That depends on how are you drawing the polygons. If you are drawing them at a series' OnGetPointerStyle event as in the example I linked above, disabling the series should be enough to stop calling that event and thus your custom drawing code.
by Yeray
Fri Sep 18, 2020 7:58 am
Forum: VCL
Topic: How to draw an elliptic cylinder?
Replies: 5
Views: 3197

Re: How to draw an elliptic cylinder?

Hello, Transparency is applied with Blending: uses TeCanvas; //... var tmpBlend : TTeeBlend; const transp=80; begin //Prepare Pen and Brush if transp>0 then tmpBlend:=Chart1.Canvas.BeginBlending(TeeZeroRect,transp); //Draw polygon if transp>0 then Chart1.Canvas.EndBlending(tmpBlend);