home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / Marks_XYStyle.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  947 b   |  45 lines

  1. unit Marks_XYStyle;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series;
  8.  
  9. type
  10.   TMarksXYStyle = class(TBaseForm)
  11.     Series1: TPointSeries;
  12.     procedure FormCreate(Sender: TObject);
  13.     procedure Series1GetMarkText(Sender: TChartSeries; ValueIndex: Integer;
  14.       var MarkText: String);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TMarksXYStyle.FormCreate(Sender: TObject);
  26. begin
  27.   inherited;
  28.   Series1.FillSampleValues(6);
  29.  
  30.   Series1.Marks.Style:=smsXY;
  31. end;
  32.  
  33. procedure TMarksXYStyle.Series1GetMarkText(Sender: TChartSeries;
  34.   ValueIndex: Integer; var MarkText: String);
  35. var i:Integer;
  36. begin
  37.   inherited;
  38.   i:=Pos(' ',MarkText);
  39.   if i>0 then MarkText[i]:='-';
  40. end;
  41.  
  42. initialization
  43.   RegisterClass(TMarksXYStyle);
  44. end.
  45.