Tchart - Auto scale

[carmelo81]

Buona domenica!
Stavo cercando di inserire nel mio grafico fatto con componente Tchart, un autoscale che si attivi ogni volta che cambio i dati di input del grafico. Stavo seguendo il codice di esempio nella demo TAChart Axis demo - grafico lineare-  ma ci sono troppi componenti e non capisco come funziona, infatti a me non funziona!
Mi date una mano a capire quali componenti utilizzare?
Grazie mille
Carmelo

[xinyiman]

Ciao Carmelo io ti consiglio di dare prima un occhiata all'esempio "basic" che è estremamente ben fatto, il grafico è quello a torta. Poi da li passi all'altro una volta capito il significato dell'oggetto.

[carmelo81]

Grazie per la risposta.
Ho dato un occhio all'esempio che mi hai suggerito ma, sbaglio oppure la possibilità di fare l'auto scale in quell'esempio non c'è?

[xinyiman]

Sinceramente non ci ho fatto caso. Verifico appena ho tempo e ti faccio sapere! 

[xinyiman]

Per usare l'auto scale fai cosi:

Aggiungi un oggetto TChartAxisTransformations (e lo chiami) MyAutoScale alla form. Poi doppio click su tale oggetto e clicca su "add" -> "auto scale".

Poi aggiungi una checkbox e la chiami MyCheckBox e sull'evento change aggiungi MyAutoScale.Enabled:=MyCheckBox.Checked;

In teoria così dovrebbe funzionare (ma non penso sui grafici a torta).

Spero di essere stato d'aiuto

[carmelo81]

Purtroppo non funziona...
Allego il codice, magari sbaglio qualcosa.

Codice: [Seleziona]

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls, Arrow, EditBtn, PopupNotifier, ExtCtrls, Grids, Chart, ButtonPanel,
  DBGrids, TAGraph, TASeries, TASources, TAStyles, TATransformations, TATools,
  TAMultiSeries, types, Math;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;
    Chart1: TChart;
    ChartAxisTransformations1: TChartAxisTransformations;
    myautoscale: TAutoScaleAxisTransform;
    mycheckbox: TCheckBox;

    Memo1: TMemo;
    Series1: TLineSeries;
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    StatusBar1: TStatusBar;
    StringGrid1: TStringGrid;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;

    procedure Button1Click(Sender: TObject);
    procedure mycheckboxChange(Sender: TObject);

   private
    { private declarations }

  public

    { public declarations }
  end; 

var
  Form1: TForm1;

     maxx, maxy, x1, y1, x2, y2, x3, y3, x4, y4:real;
     a1, a2:real;
     Xg, Yg, Ix, Iy: real;
     lser: TLineSeries;
     x, y: integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin

  Chart1.Series.Clear;
   lser:=TLineSeries.Create(Chart1);
    for x:= 1 to 20 do
     lser.AddXY(strtofloat(stringgrid1.Cells[1,x]),strtofloat(stringgrid1.Cells[2,x]));
      chart1.AddSeries(lser);
       lser.LinePen.Width:=2;
end;

procedure TForm1.mycheckboxChange(Sender: TObject);
begin
  myautoscale.Enabled:=mycheckbox.Checked;
end;
end.

grazie ancora

[Stilgar]

Fai uno zip del progetto (senza compilati) e allegalo al post.
Messo così diventa ostico capire (manca tutta la parte di design )

[carmelo81]

Grazie per la disponibilità.
Due archivi perchè uno era troppo grande, saluti!

[xinyiman]

Scusa carmelo è un periodo che sono pieno di lavoro. Nei prossimi giorni prometto di ritagliarmi del tempo per dargli un occhiata!

Scusa e porta pazienza

[xinyiman]

Ciao Carmelo, allora questa mattina ho potuto fare delle prove. Anticipo subito che è la prima volta che gioco coi grafici di lazarus. In sostanza non sono riuscito a cavarne un ragno dal buco. Penso che conviene postare la problematica sul forum ufficiale con lo stesso esempio che hai postato qui. Di la esiste sicuramente un maggior numero di utenti e quindi è più facile che qualcuno ti sappia aiutare. Nel momento in cui trovi la risposta di la ti andrebbe di condividere con noi la soluzione?!

Grazie a presto

[Stilgar]

Una curiosità... ma che cosa bisogna fare per scatenare il comportamento che vorresti?
Inserire dati a casaccio?
Facciamo un piano di test Così possiamo orientarci un pochino tutti.
Cosa dobbiamo dare in pasto la programma e cosa dovrebbe uscire (comportamento grafico e simili)

[Stilgar]

Tanto per iniziare a dare qualche indizio;)

1)

Codice: [Seleziona]

Chart1.Extent.YMax := lser.GetYMax;              

Prova questo pezzetto di codice quando ricalcoli le serie...
 2)
Ripristina FALSE nelle properties di EChart1.Extent
Se non vuoi gestirlo tu a mano.