Search found 20 matches

by BoikovSoft
Wed Dec 02, 2009 6:04 am
Forum: VCL
Topic: Critical error!!!
Replies: 6
Views: 11936

Re: Critical error!!!

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 := ...
by BoikovSoft
Wed Dec 02, 2009 5:16 am
Forum: VCL
Topic: Critical error!!!
Replies: 6
Views: 11936

Re: Critical error!!!

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...
by BoikovSoft
Mon Nov 30, 2009 12:49 pm
Forum: VCL
Topic: Critical error!!!
Replies: 6
Views: 11936

Re: Critical error!!!

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.
by BoikovSoft
Mon Nov 30, 2009 11:19 am
Forum: VCL
Topic: Critical error!!!
Replies: 6
Views: 11936

Re: Critical error!!!

The problem disappears, when
Selected.ScrollToView: = false;
by BoikovSoft
Mon Nov 30, 2009 11:16 am
Forum: VCL
Topic: How to me to save Tree1 forms?
Replies: 5
Views: 10999

Re: How to me to save Tree1 forms?

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.
by BoikovSoft
Sun Nov 29, 2009 10:29 am
Forum: VCL
Topic: Critical error!!!
Replies: 6
Views: 11936

Critical error!!!

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...
by BoikovSoft
Thu Nov 26, 2009 4:56 am
Forum: VCL
Topic: How to me to save Tree1 forms?
Replies: 5
Views: 10999

Re: How to me to save Tree1 forms?

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...
by BoikovSoft
Thu Nov 26, 2009 4:29 am
Forum: VCL
Topic: How to me to save Tree1 forms?
Replies: 5
Views: 10999

Re: How to me to save Tree1 forms?

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...
by BoikovSoft
Sun Nov 22, 2009 6:45 am
Forum: VCL
Topic: How to me to save Tree1 forms?
Replies: 5
Views: 10999

How to me to save Tree1 forms?

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...
by BoikovSoft
Fri Nov 13, 2009 6:08 am
Forum: VCL
Topic: Help me to draw the circular diagramme of type of a compass.
Replies: 1
Views: 3287

Help me to draw the circular diagramme of type of a compass.

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...
by BoikovSoft
Tue May 12, 2009 4:19 am
Forum: VCL
Topic: Function TChartAxis.AxisRect:TRect;
Replies: 6
Views: 8136

What is TV52014141?
Where it is possible to look the description?
And the full list of these problems or errors?
by BoikovSoft
Fri May 08, 2009 9:53 am
Forum: VCL
Topic: Function TChartAxis.AxisRect:TRect;
Replies: 6
Views: 8136

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 ...
by BoikovSoft
Fri May 08, 2009 5:01 am
Forum: VCL
Topic: Function TChartAxis.AxisRect:TRect;
Replies: 6
Views: 8136

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...
by BoikovSoft
Thu May 07, 2009 12:23 pm
Forum: VCL
Topic: Function TChartAxis.AxisRect:TRect;
Replies: 6
Views: 8136

Function TChartAxis.AxisRect:TRect;

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.
by BoikovSoft
Mon Apr 27, 2009 3:21 am
Forum: VCL
Topic: It is impossible to draw. Advise
Replies: 8
Views: 9005

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 ": ="