Here other error: procedure TForm1.FormCreate(Sender: TObject); Var tr: TTree; obj : TTreeNodeShape; r1, R2: TTreeRuler; begin Tr := TTree.Create(Form1); tr.Parent := form1; tr.Align := alClient; Tr.Designing := true; r1 := TTreeRuler.Create(Form1); r1.Parent := form1; r1.Align := alTop; r1.Tree := ...

Error modelling: procedure TForm1.FormCreate(Sender: TObject); Var obj : TGridShape; begin Tree1.Designing := true; OBJ := Tree1.AddShapeClass(0, 0,'', nil, TGridShape) as TGridShape; obj.Top := Form1.Height + 10; obj.Left := 400; Tree1.HorzScrollBar.Automatic := false; Tree1.VertScrollBar.Automatic...

When you add TGridShape
Top: = 1000;
Also you scroll page downwards.
Instal on any cell focus.
Grid cells are incorrectly allocated.
The position of a strip of scrolling (at least Vertical) in method Draw is not considered.

The problem disappears, when
Selected.ScrollToView: = false;

Consider wrong to cause method Draw. It will lead double copying.

Thanks, I already have no time to alter.
I have left as is. Terms draw in.

Hello! I have found out very unpleasant error. :cry: Do the following: 1) open the editor. 2) Create TTreeNodeShape 3) Establish values: Left: = 0; Top: = 0; Height: = 1300 Pix (the figure height should be more heights of visible area of a window of the designer) Width: = 1000 pix; 4) Click on an em...

Has found also a defect in Tree Problem: It is necessary to deduce values of properties of object TTreeNodeShape dynamically: Left Top width Height In events OnMovingShape and OnResizingShape at change of the sizes are accessible DeltaX, DeltaY. To define the sizes of a figure it is necessary to per...

I have made the small editor on the basis of Tree. And additional components of type TCompas were necessary for me. The user should create the form, and then keep her. If necessary to read. I have already solved this problem. Here my realization: procedure SaveToFile(aFileNAme: TFileNAme; aForm: TFo...

Hello! 1) As to me to save Tree1 if I have created an own class? TCompas = class(TTreeNodeShape) private FIndicator: Boolean; Timer: TTimer; FAngleFirst: Extended; FAngleLast: Extended; FAngleValue: Extended; FBrushPie: TChartBrush; FBrushCircle: TChartBrush; FBrushRect: TChartBrush; FBrushArrow: TC...

Hello! Help me to draw the circular diagramme of type of a compass. The circle is broken into 360 degrees. The distance between labels should be regulated. In a circle there is a sector, it should vary. For example, from 10 to 90 degrees. There are also 5 arrows different are long. Their positions d...

What is TV52014141?
Where it is possible to look the description?
And the full list of these problems or errors?

Has spent today all the day for the decision of this problem. Here that I managed to make: function TForm1.GetAxisRect(AX: TChartAxis; var AHeigth: Integer): TRect; var H : Integer; R : TRect; AData: Array [1..7] of Integer; begin With AX do Begin R := AX.Title.ShapeBounds; if Horizontal then Begin ...

Hi Here a code for an example: ... uses Math, TeeProcs, TeEngine, Chart, Series; ... var AChart: TChart; ... procedure TForm1.FormCreate(Sender: TObject); Procedure MyADD; VAr AX: TChartAxis; Ser: TChartSeries; Begin Ser := AChart.AddSeries(THorizLineSeries); AChart.CustomAxes.Add; AX := AChart.Cust...

As to me to define TRect object TChartAxis taking into account a font of a thickness of lines. It is necessary for definition of total height. All axes settle down horizontally.

In TeeEngine there is a function:
Function TChartAxis. AxisRect:TRect;

But she is not accessible in the basic appendix.

Simply so it was inserted. I specially so did not make.
I use the program translator PROMT 8.0. Here it also has made so ": ="