Interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, ExtCtrls, StdCtrls, Menus;
type TChartForm = class(TForm) StringGrid: TStringGrid; PanelChart: TPanel; ButtonExit: TButton; Label1: TLabel; Label2: TLabel; PaintBox: TFaintBox; panelStatus: TPanel; procedure ButtonExitClick (Sender: TObject); procedure FormCreate(Sender: TObject); procedure StringGridSetEditText (Sender: TObject; ACol, ARow: Integer; const Value: String); procedure PaintBoxPaint (Sender : TObject); private X,Y: array of double; end;
var ChartForm: TChartForm;
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|