dibujar y pintar un area en delphi

[HenryOlg]

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