Текстовый редактор форм и перенос демо-примеров в свой проект

procedure TControl.ReadState(Reader: TReader);
begin
  Include(FControlFlags, cfLoading);
  DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.ReadState'){$ENDIF};
  try
    Include(FControlState, csReadingState);
    inherited ReadState(Reader);
  finally
    Exclude(FControlState, csReadingState);
    EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.ReadState'){$ENDIF};
  end;
end;

object Form1: TForm1
  Left = 986
  Height = 299
  Top = 115
  Width = 538
  Caption = 'Form1'
  ClientHeight = 299
  ClientWidth = 538
  OnCreate = FormCreate
  LCLVersion = '2.0.0.4'
  object Chart1: TChart
    Left = 0
    Height = 275
    Top = 24
    Width = 538
    AxisList = <    
      item
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.CharSet = ANSI_CHARSET
        Title.LabelFont.Color = clRed
        Title.LabelFont.Height = -19
        Title.LabelFont.Name = 'Times New Roman'
        Title.LabelFont.Orientation = 900
        Title.LabelFont.Pitch = fpVariable
        Title.LabelFont.Quality = fqDraft
        Title.LabelFont.Style = [fsItalic]
        Title.Visible = True
        Title.Caption = 'y axis'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.CharSet = ANSI_CHARSET
        Title.LabelFont.Color = clBlue
        Title.LabelFont.Height = -19
        Title.LabelFont.Name = 'Times New Roman'
        Title.LabelFont.Pitch = fpVariable
        Title.LabelFont.Quality = fqDraft
        Title.LabelFont.Style = [fsItalic]
        Title.Visible = True
        Title.Caption = 'x axis'
        Title.LabelBrush.Style = bsClear
      end>
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Align = alClient
    object Chart1BarSeries1: TBarSeries
      Marks.Format = '%0:.9g'
      Marks.Style = smsValue
      BarBrush.Color = clOlive
    end
    object Chart1FuncSeries1: TFuncSeries
      ZPosition = 1
      Pen.Color = clRed
      Pen.Width = 2
      OnCalculate = Chart1FuncSeries1Calculate
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 24
    Top = 0
    Width = 538
    ButtonHeight = 22
    ButtonWidth = 100
    Caption = 'ToolBar1'
    Flat = False
    ShowCaptions = True
    TabOrder = 1
    object tbSaveAsBMP: TToolButton
      Left = 1
      Top = 2
      Caption = 'Save as BMP'
      OnClick = tbSaveAsBMPClick
    end
    object tbSaveAsPNG: TToolButton
      Left = 101
      Top = 2
      Caption = 'Save as PNG'
      OnClick = tbSaveAsPNGClick
    end
    object tbCopyToClipboard: TToolButton
      Left = 401
      Top = 2
      Caption = 'Copy to clipboard'
      OnClick = tbCopyToClipboardClick
    end
    object tbSaveAsJPEG: TToolButton
      Left = 201
      Top = 2
      Caption = 'Save as JPEG'
      OnClick = tbSaveAsJPEGClick
    end
    object tbSaveAsSVG: TToolButton
      Left = 301
      Top = 2
      Caption = 'Save as SVG'
      OnClick = tbSaveAsSVGClick
    end
  end
  object SaveDialog1: TSaveDialog
    left = 16
    top = 32
  end
end

  object ToolBar1: TToolBar
    Left = 0
    Height = 24
    Top = 0
    Width = 538
    ButtonHeight = 22
    ButtonWidth = 100
    Caption = 'ToolBar1'
    Flat = False
    ShowCaptions = True
    TabOrder = 1
    object tbSaveAsBMP: TToolButton
      Left = 1
      Top = 2
      Caption = 'Save as BMP'
      OnClick = tbSaveAsBMPClick
    end
    object tbSaveAsPNG: TToolButton
      Left = 101
      Top = 2
      Caption = 'Save as PNG'
      OnClick = tbSaveAsPNGClick
    end
    object tbCopyToClipboard: TToolButton
      Left = 401
      Top = 2
      Caption = 'Copy to clipboard'
      OnClick = tbCopyToClipboardClick
    end
    object tbSaveAsJPEG: TToolButton
      Left = 201
      Top = 2
      Caption = 'Save as JPEG'
      OnClick = tbSaveAsJPEGClick
    end
    object tbSaveAsSVG: TToolButton
      Left = 301
      Top = 2
      Caption = 'Save as SVG'
      OnClick = tbSaveAsSVGClick
    end
  end
  object SaveDialog1: TSaveDialog
    left = 16
    top = 32
  end

uses
  SysUtils, Forms, Graphics, Dialogs, ComCtrls, TAGraph, TASeries, TAFuncSeries, Classes;
 
uses
  TADrawerSVG, TADrawUtils, TADrawerCanvas;

type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Chart1: TChart;
    Chart1BarSeries1: TBarSeries;
    Chart1FuncSeries1: TFuncSeries;
    SaveDialog1: TSaveDialog;
    ToolBar1: TToolBar;
    tbSaveAsBMP: TToolButton;
    tbSaveAsPNG: TToolButton;
    tbCopyToClipboard: TToolButton;
    tbSaveAsJPEG: TToolButton;
    tbSaveAsSVG: TToolButton;
    procedure Chart1FuncSeries1Calculate(const AX: Double; out AY: Double);
    procedure FormCreate(Sender: TObject);
    procedure tbCopyToClipboardClick(Sender: TObject);
    procedure tbSaveAsBMPClick(Sender: TObject);
    procedure tbSaveAsJPEGClick(Sender: TObject);
    procedure tbSaveAsPNGClick(Sender: TObject);
    procedure tbSaveAsSVGClick(Sender: TObject);
  private
    function GetFileName(const AExt: String): String;
  end;

    Chart1: TChart;
    Chart1BarSeries1: TBarSeries;
    Chart1FuncSeries1: TFuncSeries;

procedure TForm1.Chart1FuncSeries1Calculate(const AX: Double; out AY: Double);
begin
  AY := AX * AX / 2;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  RandSeed := 103489;
  for i := 1 to 10 do
    Chart1BarSeries1.AddXY(i, i * i / 2 + Random(6) + 1 + Random);
  SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);
end;
 
function TForm1.GetFileName(const AExt: String): String;
begin
  with SaveDialog1 do begin
    FileName := '';
    DefaultExt := AExt;
    if not Execute then Abort;
    Result := FileName;
  end;
end;
 
procedure TForm1.tbCopyToClipboardClick(Sender: TObject);
begin
  Chart1.CopyToClipboardBitmap;
end;
 
procedure TForm1.tbSaveAsBMPClick(Sender: TObject);
begin
  Chart1.SaveToBitmapFile(GetFileName('bmp'));
end;
 
procedure TForm1.tbSaveAsJPEGClick(Sender: TObject);
begin
  Chart1.SaveToFile(TJPEGImage, GetFileName('jpg'));
end;
 
procedure TForm1.tbSaveAsPNGClick(Sender: TObject);
begin
  Chart1.SaveToFile(TPortableNetworkGraphic, GetFileName('png'));
end;
 
procedure TForm1.tbSaveAsSVGClick(Sender: TObject);
var
  fs: TFileStream;
  id: IChartDrawer;
begin
  fs := TFileStream.Create(GetFileName('svg'), fmCreate);
  try
    id := TSVGDrawer.Create(fs, true);
    with Chart1 do
      Draw(id, Rect(0, 0, Width, Height));
  finally
    fs.Free;
  end;
end;
 
end.

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  Form1: TForm1;
  F, y, x, dx: real;
  a, t, k: real;
  o, h, i, ppos: integer;
  FName, num: string;
  Binfile: File;       
var
i, j, raz: integer;
begin
  if OpenDialog1.Execute then
  begin
        FName:= OpenDialog1.FileName;
        Memo.Lines.Add('Загружен протокол датчиков '+FName);
        Memo1.Lines.LoadFromFile(FName);
        StringGrid1.rowcount:=memo1.lines.count;
        assignfile(binfile,FName+'.snd');
        Rewrite (binfile);
 
        for i:=1 to memo1.lines.count-2 do
         begin
          j:=pos(' ',memo1.Lines[i]);
          StringGrid1.Cols[0].Strings[i]:=inttostr(i);
          StringGrid1.Cols[1].Strings[i]:=Copy (memo1.Lines[i],(pos(';',memo1.Lines[i])+1),10);
          StringGrid1.Cols[2].Strings[i]:=Copy (memo1.Lines[i],j+1,8);
          j:=j+10;
          while j<memo1.Lines[i].Length do
           begin
            raz:=npos(';',memo1.Lines[i],3)-j ;
            num:=Copy (memo1.Lines[i],j,raz);
            StringGrid1.Cols[4].Strings[i]:=hexStr(strtoint(num),2)+'|'+num;
            j:=npos(';',memo1.Lines[i],5);
            raz:=npos(';',memo1.Lines[i],6)-j-1 ;
            num:=Copy (memo1.Lines[i],j+1,raz);
            StringGrid1.Cols[5].Strings[i]:=hexStr(strtoint(num),2)+'|'+num;
            j:=npos(';',memo1.Lines[i],7);
            raz:=memo1.Lines[i].Length-j-1 ;
            num:=Copy (memo1.Lines[i],j+1,raz);
            StringGrid1.Cols[3].Strings[i]:=hexStr(strtoint(num),2)+'|'+num;
 
            J:=memo1.Lines[i].Length;
           end;
          blockwrite(binfile,strtoint(num),1);
         end;
        closefile(binfile);
  end;
 
end;