Para efectos impresionantes también puedes utilizar el TeeChart, es decir, creas un Chart y utilizas su canvas, por ejemplo:
chart1.Canvas.Pen.Color := colorboxLinea2.Selected;
chart1.Canvas.Pen.Style := dameEstilo(comboEstiloLinea2.itemindex);
chart1.Canvas.Pen.Width := scrollanchoLinea2.Position;
chart1.Canvas.Line(x,y,x+15,y);
chart1.canvas.TextOut(x+17,y,EditEtiqL2.Text);
chart1.Canvas.Sphere(puntoini.X,puntoini.Y,0,5.0);
chart1.CopyToClipboardBitmap;
etc, etc.
Te anexo un programa (Delphi 6) de una gráfica de un tacómetro (semáforo), pero lo interesante es el uso del Canvas del Chart para dibujar las líneas y texto.
Saludos
Última edición por HenryOlg fecha: 02-06-2006 a las 07:11:50.
|