unit Graficar;
{ Contains a simple video display routine }


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  ComCtrls, Tabnotbk, StdCtrls, Buttons, Db, DBTables, Grids, ExtCtrls,
  Menus;

procedure Graficas(X, Y: Integer;valor:Real;Etiqueta: String);

implementation

procedure Graficas(X, Y: Integer;valor:Real;Etiqueta: String);
var
tamo:integer;

begin
        tamo:=20;
{        Canvas.Pen.Color := Random(65535);
        Canvas.Brush.Color := Random(65535);
       tamo:=Trunc(dato.veces*intervalo);
        Canvas.Rectangle(x*30+10,y-10,x*30+10+30,y-tamo-10);
        Canvas.MoveTo(x*30,y-tamo);
        Canvas.LineTo(x*30+10,y-tamo-10);
        Canvas.Rectangle(x*30,y,x*30+30,y-tamo);
        Canvas.MoveTo(x*30+30,y-tamo);
        Canvas.LineTo(x*30+10+30,y-tamo-10);
        Canvas.MoveTo(x*30+30-1,y);
        Canvas.LineTo(x*30+10+30,y-11);}

end;

end.