Quick Tips : Trabalhando com DBChar - Parte II

Olá galera, nesta Quick Tips, irei continuar falando sobre o DBChart, mostrando agora alguns efeitos de configuração e Layout.

Vamos implementar em um único local todo o código fonte para sermos práticos, veja abaixo o código e os comentários sobre suas funcionalidades.

procedure TForm2.FormCreate(Sender: TObject);

Var

Total : Integer;

begin

CDSGrafico.Open;

//Título do Gráfico

DBChart1.Title.Caption := 'Gráfico de Países';

DBChart1.Title.Font.Name := 'Arial Rounded MT';

DBChart1.Title.Font.Height := 30;

//SubTítulo do Gráfico

DBChart1.SubTitle.Caption := 'Estes dados são de medalhas conquistadas';

DBChart1.SubTitle.Font.Name := 'Bell MT';

DBChart1.SubTitle.Font.Height := 16;

{Fiz aqui um rápido contador, poderia usar campo agregado mas não usei}

CDSGrafico.First;

Total := 0;

while not CDSGrafico.eof do

begin

Total := Total + CDSGraficoQtd.AsInteger;

CDSGrafico.Next;

end;

//Rodapé do Gráfico

DBChart1.Foot.Caption := 'Somatório Geral : ' + IntToStr(Total);

DBChart1.Foot.Font.Name := 'Arial';

DBChart1.Foot.Font.Height := 30;

//SubRodapé do Gráfico

DBChart1.SubFoot.Caption := 'Data : ' + DateToStr(Now);

DBChart1.SubFoot.Font.Name := 'Arial';

DBChart1.SubFoot.Font.Height := 16;

//Titulo da esquerda do Gráfico

DBChart1.LeftAxis.Title.Caption := 'DevMedia';

DBChart1.LeftAxis.Title.Font.Name := 'Arial';

DBChart1.LeftAxis.Title.Font.Height := 30;

//Esquema de Cores das bordas do grafico lado esquerdo

DBChart1.LeftWall.Gradient.EndColor := clRed;

DBChart1.LeftWall.Gradient.MidColor := clWhite;

DBChart1.LeftWall.Gradient.Visible := True;

DBChart1.LeftWall.Gradient.StartColor := clGreen;

//Esquema de Cores das bordas do grafico lado direito

DBChart1.RightWall.Gradient.EndColor := clYellow;

DBChart1.RightWall.Gradient.MidColor := clBlack;

DBChart1.RightWall.Gradient.Visible := True;

DBChart1.RightWall.Gradient.StartColor := clGreen;

//Cor de fundo da legenda

DBChart1.Legend.Color := clWhite;

//Fonte da legenda

DBChart1.Legend.Font.Name := 'Berlin Sans FB';

//Titulo da legenda

DBChart1.Legend.Title.Caption := 'Países';

//Exibe as linhas de separação de cada item

DBChart1.Legend.DividingLines.Visible := True;

//Selecione o estilo da linha de separação

DBChart1.Legend.DividingLines.Style := psInsideFrame;

//Tamanho da caixa de cor das legendas

DBChart1.Legend.ColorWidth := 50;

//Salvando o Grafico como BMP

DBChart1.SaveToBitmapFile('C:\tmp\teste.bmp');

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wesley@lithic.com.br