Search found 12 matches

by Collinor
Sun Aug 17, 2014 12:04 pm
Forum: VCL
Topic: Exception on opening form with component using TChart
Replies: 6
Views: 14004

Re: Exception on opening form with component using TChart

With Delphi's menu entry Component/New Component... create a new component TCollChartPanel in unit CollChartPanel with the following code and put it in a new package with name Coll: unit CollChartPanel; interface uses System.SysUtils, System.Classes, Vcl.Controls, Vcl.ExtCtrls, VCLTee.Chart; type TC...
by Collinor
Sun Aug 17, 2014 8:36 am
Forum: VCL
Topic: Strange scrolling behaviour using mouse wheel
Replies: 3
Views: 48654

Re: Strange scrolling behaviour using mouse wheel

Sorry, I forgot to tell you some details. Put a TTree on a form, add three buttons and fill the form's OnCreate and the buttons' OnClick event handlers with the following code: procedure TForm1.Button1Click(Sender: TObject); begin Tree1.WheelNavigation := wnScrollVert; end; procedure TForm1.Button2C...
by Collinor
Fri Aug 15, 2014 12:38 pm
Forum: VCL
Topic: invisible node border becomes visible on scrolling
Replies: 1
Views: 39024

invisible node border becomes visible on scrolling

With TeeTree of TeeChart 2014 an invisible node border becomes visible on scrolling. You can reproduce the problem by putting a TTree component on a form and adding the following code to the OnCreate event of your form: procedure TForm1.FormCreate(Sender: TObject); var liI : Integer; lxNode, lxChild...
by Collinor
Fri Jul 25, 2014 6:50 am
Forum: VCL
Topic: Exception on opening form with component using TChart
Replies: 6
Views: 14004

Exception on opening form with component using TChart

TeeChart 2014: If I write a component which is a descendant of TPanel and which creates a TChart in the constructor with owner being Self, then any form on which my component was/is put cannot be opened in the Delphi IDE (design time), since an exception (translated from German): access violation at...
by Collinor
Fri Jul 25, 2014 6:10 am
Forum: VCL
Topic: Multi-line axis labels not supported anymore
Replies: 3
Views: 9919

Re: Multi-line axis labels not supported anymore

Put a TChart on a form and add the following code: procedure TForm1.FormCreate(Sender: TObject); begin Chart1.MarginBottom := 10; Chart1.MarginLeft := 5; Chart1.Axes[0].Title.Angle := 0; Chart1.Axes[0].Title.Caption := 'Line 1'#13'Line 2'#13'Line 3'; Chart1.Axes[2].Title.Angle := 90; Chart1.Axes[2]....
by Collinor
Thu Jul 24, 2014 6:43 am
Forum: VCL
Topic: Multi-line axis labels not supported anymore
Replies: 3
Views: 9919

Multi-line axis labels not supported anymore

In contrast to TeeChart 2012, multi-line axis labels are not supported anymore in TeeChart 2014, May, 12, 2014. Only the first line is used for display of the axis label (see TeeEngine.pas, function TChartAxisTitle.GetCaption). Even if TChartAxisTitle.GetCaption would return all lines, TCustomTextSh...
by Collinor
Thu Jul 24, 2014 6:26 am
Forum: VCL
Topic: Transparent bitmap not transparent with GDI+
Replies: 1
Views: 6175

Transparent bitmap not transparent with GDI+

In TeeChart 2014 of May, 12, 2014, transparent bitmaps are not drawn transparently with GDI+. Therefore, I changed TeeGDIPlus.pas, function TGDIPlusCanvas.Draw, in the following way: procedure TGDIPlusCanvas.Draw(X,Y:Integer; const AGraphic:TGraphic); ... var tmpB : TBitmap; begin if AGraphic is TBi...
by Collinor
Thu Jul 24, 2014 6:11 am
Forum: VCL
Topic: Strange scrolling behaviour using mouse wheel
Replies: 3
Views: 48654

Strange scrolling behaviour using mouse wheel

In the TTree component of TeeChart 2014 of May, 12, 2014, one can observe a strange scrolling behviour using the mouse wheel. At first, the tree is scrolled beyond the top and the bottom if the top or bottom of the tree is reached. Second, the zooming direction is inverted in contrast to the TTree c...
by Collinor
Thu Jul 24, 2014 5:42 am
Forum: VCL
Topic: Multi-line node text not correctly displayed
Replies: 3
Views: 46565

Re: Multi-line node text not correctly displayed

You added an odd number of lines (0 to 10) to the shape. The following code reproduces the problem:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  TreeNodeShape1.Text.Clear;
  for i:=1 to 10 do
   TreeNodeShape1.Text.Add('Line ' + IntToStr(i));
end;
by Collinor
Mon Jul 14, 2014 11:48 am
Forum: VCL
Topic: Potential access violation after node creation
Replies: 1
Views: 39832

Potential access violation after node creation

In the TTree component of TeeChart 2014 of May,1 2, 2014, creating a node might result in an access violation in method TCanvas3D.AssignFont3D of unit TeCanvas.pas. The reason is that method TCanvas3D.AssignFont3D misses a check whether the member View3DOptions is actually assigned. The following re...
by Collinor
Mon Jul 14, 2014 11:30 am
Forum: VCL
Topic: Oblique shadow for round rectangle nodes
Replies: 1
Views: 39518

Oblique shadow for round rectangle nodes

In the TTree component of TeeChart 2014 of May, 12, 2014, the shadow of round rectangle nodes is drawn oblique, since the parameter for the round size of the rectangle is also passed as angle to the draw function. Therefore, line 4315 in TeeTree.pas, function TTreeNodeShape.InternalDrawShadow tssRou...
by Collinor
Mon Jul 14, 2014 11:19 am
Forum: VCL
Topic: Multi-line node text not correctly displayed
Replies: 3
Views: 46565

Multi-line node text not correctly displayed

In the TTree component of TeeChart 2014 of May 12, 2014, multi-line node text not correctly displayed, if the line count is even. Therefore line 4164 in TeeTree.pas, function TTreeNodeShape.DrawText vtaCenter: tmpPosY:=tmpMidY + Round( (t*tmpH) - ((tmpCount div 2)*tmpH) - (tmpH*0.5) ); has to be fix...