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