FWGraph is a component for Delphi 2 and Delphi 4 to show bar-graphs, thats all. No special features or stuff like that. It only has the features that we needed, and perhaps you can use it as well in your applications.

We use this component in our applications. Visit our website

This component is freeware.  (c) 1999, Finiware.

You can use this component in freeware,shareware or commercial applications. All we ask you is to add us to your creditslist,thankslist, about box or readme-file. Thanks a lot !

Example:

With FWGraph1 do
    begin
        ClearGraph;
        AddBar ( 100, clBlue);
        AddBar ( 150, clPurple);
        AddBar ( 175, clYellow);
   end;

Properties

// various graphoptions to include/exclude
property GraphOptions : TGraphoptions read FGraphoptions write SetGraphOptions;

TGraphOptionSet = (goAutoScale,goBorder,goLabels,goRuler,goValues,goShadow);

//if true graph is repainted after using AddBar.
property AutoAddBar : boolean read Fautoadd write Fautoadd;

// shadowcolor , clbtnface by default
property ShadowColor: Tcolor read FShadowColor write SetShadowcolor;

// bordercolor, clblack by default
property BorderColor: Tcolor read FBorderColor write SetBorderColor;

// background color, clwindow by default
property Color : Tcolor read FColor write SetColor;

// labels shown under graphbars. modify if labeltype is set to LtCustom
property BarLabels : TstringList read Flabels write SetBarlabels;

// if autoscale is off, this is the maximum ruler value
property MaxValue : integer read FMaxValue write SetMaxValue;

// the total number of bars to be shown in graph. if 0 the number of bars
// that have been added are used.
property Maxbars : integer read fmaxbars write SetMaxbars;

// label and value-font
property Font : Tfont read FFont write Setfont;

// left margin, space for values
property LeftMargin : Integer read FLeftMargin write SetLeftMargin;

// bottom margin, space for labels
property BottomMargin : Integer read Fbottommargin write SetBottomMargin;

// kind of labels, months, days or custom. see also barlabels-property
property Labeltype : Tlabeltypes read flabeltype write SetLabelType;

Methods

// clears the graph
procedure ClearGraph;

// adds a new bar to the graph. Returns true if number of bars <= 100
function AddBar (Fvalue:integer;Fcolor :Tcolor) : Boolean;

// saves graph as file
procedure SaveToFile (ffile:string);

// copies graph to the clipboard (bitmap)
procedure CopyToClipboard;

// returns graph as bitmap
function GetBitmap : Tbitmap;

// Repaints graph
procedure Paint;