displaybalance.pas

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

unit DisplayBalance;

interface

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

type
  TDisplayBalanceForm = class(TForm)
    DisplayBalanceChart: TChart;
    DisplayBalanceSeries: TPieSeries;
    DisplayBalanceSaveDialog: TSaveDialog;
    DisplayBalancePopupMenu: TPopupMenu;
    SavePicture: TMenuItem;
    procedure SavePictureClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DisplayBalanceForm: TDisplayBalanceForm;

implementation

{$R *.dfm}



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

end.