프로그래밍 방식으로 TChart 크기 변경

Question

프로그래밍 방식으로 tChart를 생성합니다 (Delphi2007, TeeChar 7 무료 에디션). 차트 치수를 설정하고 가로 세로 비율을 변경하고 싶지만 Width 및 Height 속성을 변경해도 의미있는 결과를 얻지 못합니다. 나는 행운과 함께 TickLength 축을 변경하려고했습니다. 나는 의미있는 것을 잊지 않고 dfm 파일에서 TChart의 관련 속성을 복사했습니다. 그래프의 양상은 X와 Y의 최대 값과 최소값을 편집 할 때만 바뀌지 만 충분하지는 않습니다.

차트의 크기가 400x250 인 것을 볼 수 있듯이, 원래 차트와 "다시 포맷 된"차트입니다. 차트 크기를 조정할 수있는 특정 속성이 있습니까? 그에 따라 축의 크기를 조정할 수 있습니까? 내가 여기에 이름 충돌이 생각

procedure CreateChart(parentform: TForm); 
//actually formatChart is a CreateChart anf fChart a member of my class 
begin 
    fchart:= TChart.Create(parentform); 
    fchart.Parent:= parentform; 
    fchart.AxisVisible := true; 
    fchart.AutoSize := false; 
    fChart.color := clWhite; 
    fchart.BottomAxis.Automatic := true; 
    fchart.BottomAxis.AutomaticMaximum := true; 
    fchart.BottomAxis.AutomaticMinimum := true; 
    fchart.LeftAxis.Automatic := true; 
    fchart.LeftAxis.AutomaticMaximum := true; 
    fchart.LeftAxis.AutomaticMinimum := true; 
    fchart.view3D := false; 
end 

procedure formatChart(width, height, xmin, xmax, ymin, ymax: double); 
//actually formatChart is a method anf fChart a member of my class 
begin 
    with fChart do 
    begin 
     Color := clWhite; 
     fChart.Legend.Visible := false; 
     AxisVisible := true; 
     AllowPanning := pmNone; 
     color := clWhite; 
     Title.Visible := False; 
     BottomAxis.Minimum := 0; //to avoid the error maximum must be > than min 
     BottomAxis.Maximum := xmax; 
     BottomAxis.Minimum := xmin; 
     BottomAxis.ExactDateTime := False ; 
     BottomAxis.Grid.Visible := False ; 
     BottomAxis.Increment := 5 ; 
     BottomAxis.MinorTickCount := 0; 
     BottomAxis.MinorTickLength := 5; 
     BottomAxis.Ticks.Color := clBlack ; 
     BottomAxis.TickOnLabelsOnly := False; 
     DepthAxis.Visible := False; 
     LeftAxis.Automatic := false; 
     LeftAxis.AutomaticMaximum := false; 
     LeftAxis.AutomaticMinimum := false; 
     LeftAxis.Minimum := ymin; 
     LeftAxis.Maximum := ymax; 
     LeftAxis.Minimum := ymin; 
     LeftAxis.TickLength := 5; 
     Width := round(width); 
     Height := round(height); 
     View3D := False ; 
    end; 
end; 

Answer 1

: 당신의 도움이 여기에

주셔서 감사 TChart입니다 관련 코드입니다. with fChart을 사용 중이고 Height 및 Width의 속성이 fChart입니다. 같은 이름하지만 프로 시저 호출에 있지만 fChart 폭과 높이가 대신 사용됩니다 :

Width := Round(width); // The fChart property Width is used on both sides. 
Height := Round(height); // The fChart property Height is used on both sides. 

는 프로 시저 호출에서 이름을 바꾼이하도록되어로 작동합니다.

더 나은 방법은 with 키워드를 사용하지 않는 것입니다. 참조 : Is Delphi “with” keyword a bad practice?.