displayanalog.pas

来自「《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热」· PAS 代码 · 共 62 行

unit DisplayAnalog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart,StrUtils, Menus;

type
  TDisplayAnalogForm = class(TForm)
    DisplayAnalogChart: TChart;
    DisplayLineSeries_1: TLineSeries;
    DisplayLineSeries_2: TLineSeries;
    DisplayLineSeries_3: TLineSeries;
    DisplayLineSeries_4: TLineSeries;
    DisplayLineSeries_5: TLineSeries;
    DisplayLineSeries_6: TLineSeries;
    DisplayAnalogSaveDialog: TSaveDialog;
    DisplayAnalogPopupMenu: TPopupMenu;
    SavePicture: TMenuItem;
    procedure SavePictureClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DisplayAnalogForm: TDisplayAnalogForm;

implementation

{$R *.dfm}

procedure TDisplayAnalogForm.SavePictureClick(Sender: TObject);
var tmpH,tmpW:Longint;
begin
     DisplayAnalogSaveDialog.Title:='图像文件';
     DisplayAnalogSaveDialog.Filter:='图像文件(*.bmp)|*.bmp';
     DisplayAnalogSaveDialog.FileName:='';
     if DisplayAnalogSaveDialog.Execute then
         with DisplayAnalogSaveDialog do
            begin
                 FileName:=LeftStr(FileName,Length(FileName)-4);
                 With TBitMap.Create do
                 try
                       tmpW:=DisplayAnalogChart.Width;
                       tmpH:=DisplayAnalogChart.Height;
                       Width:=tmpW;
                       Height:=tmpH;
                       DisplayAnalogChart.BufferedDisplay:=False;
                       DisplayAnalogChart.Draw(Canvas,Rect(0,0,tmpW,tmpH));
                       DisplayAnalogChart.BufferedDisplay:=True;
                       SaveToFile(FileName+'.bmp'); 
                 finally
                       Free;
                  end;
            end;
end;

end.