[jeremiselxi]

Empezado por jeremiselxi

Nadie por aquí?

Me respondo yo mismo, cree una variable global llamada rotar y cree dos botones llamado giraraladerecha y giraralaizquierda.

El código completo seria así:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, Grids,
  DBGrids, DB, ADODB, StdCtrls, DBClient, ExcelXP, OleServer, ComObj;

type
  TForm1 = class(TForm)
    table: TADOQuery;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    generargrafico: TButton;
    tableACTIVIDADESREALIZADAS: TWideStringField;
    tableTOTALES: TIntegerField;
    ExcelChart1: TExcelChart;
    ExcelApplication1: TExcelApplication;
    ExcelChart2: TExcelChart;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    giraralaizquierda: TButton;
    giraraladerecha: TButton;
    procedure FormCreate(Sender: TObject);
    procedure generargraficoClick(Sender: TObject);
    procedure giraralaizquierdaClick(Sender: TObject);
    procedure giraraladerechaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  
//las constantes
const
  GColor : Array[1..12] of TColor = (clGreen, clOlive, clNavy, clPurple, clTeal,
                                     clGray, clSilver, clRed, clLime, clYellow,
                                     clBlue, clFuchsia);
var
  Form1: TForm1;

implementation

{$R *.dfm}
var
rotar : Integer;


procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

procedure TForm1.generargraficoClick(Sender: TObject);

var
   actividades : String;
   totales : Integer;
   i : Integer;

begin
   table.First;
   
   if Assigned(Table) then
   begin
      rotar:=1;
      i := 1;

      with DBChart1 do
      begin
         Title.Text.Clear;
         Title.Text.Add('Relación porcentual de las tareas rutinarias realizadas en el año');
         Legend.Visible := true;
         LeftAxis.Title.Caption := 'TOTALES';
         LeftAxis.Title.Font.Color := clBlue;
         BottomAxis.Title.Caption := 'ACTIVIDADES REALIZADAS';
         BottomAxis.Title.Font.Color := clBlue;
      end;

      with Series1 do
      begin

         Clear;

         Marks.Style := smsPercent;

         with Table do
         begin
            Open;
            while not eof do
            begin
               actividades := Table.FieldByName('ACTIVIDADES REALIZADAS').AsString;
               totales := Table.FieldByName('TOTALES').AsInteger;
               Add(totales, actividades, GColor[i]);
               inc(i);
               Next;
            end;
            //Close;
         end;

      end;

   end;

end;



procedure TForm1.giraralaizquierdaClick(Sender: TObject);

begin

   if Assigned(Table) then
   begin

      rotar := rotar+5;

      with DBChart1 do
      begin

      end;

      with Series1 do
        RotationAngle:= rotar;

   end;

end;

procedure TForm1.giraraladerechaClick(Sender: TObject);
begin

   if Assigned(Table) then
   begin

      rotar := rotar-5;

      with DBChart1 do
      begin

      end;

           with Series1 do
      begin
        try
        RotationAngle:= rotar;
        except
        ShowMessage('Has llegado al inicio');

           end;
       end;
   end;


end;

end.