Материал: Разработка программного продукта для расчета тепловых коэффициентов для тел с распределенными и сосредоточенными источниками энергии

// Стирание прежнего курсора

if ACursors.Checked then SetCursor;:= 1.7E308;i:=0 to Series1.LastValueIndex do(Series1.YValues[i] < YMin)begin:= Series1.YValues[i];:= i;;:= 0;;;.Visible := true;.Checked := true;.ImageIndex:=4;;;TFPlot.FormKeyUp(Sender: TObject; var Key: Word;: TShiftState);:= 1;;TFPlot.ACalcExecute(Sender: TObject);

// Вызов "Калькулятора"(Handle,'open','Calc',nil,nil,SW_RESTORE);;TFPlot.ASaveBMPExecute(Sender: TObject);

// Сохранят график в формате .bmp

with SaveDialog1 do begin:='bmp';:=1;(SaveDialog1.Execute)Chart1.SaveToBitmapFile(SaveDialog1.FileName);;;TFPlot.ASaveWMFExecute(Sender: TObject);

// Сохранят график в формате .wmf

with SaveDialog1 do begin:='wmf';:=3;(SaveDialog1.Execute)Chart1.SaveToMetafile(SaveDialog1.FileName);;;TFPlot.ASaveEMFExecute(Sender: TObject);

// Сохранят график в формате .emf

with SaveDialog1 do begin:='emf';:=2;(SaveDialog1.Execute)Chart1.SaveToMetafileEnh(SaveDialog1.FileName);;;TFPlot.ACopyBMPExecute(Sender: TObject);

// Копирует график в Clipboard в формате .bmp

begin.CopyToClipboardBitmap;;TFPlot.ACopyWMFExecute(Sender: TObject);

// Копирует график в Clipboard в формате .wmf

begin.CopyToClipboardMetafile(false);;TFPlot.ACopyEMFExecute(Sender: TObject);

// Копирует график в Clipboard в формате .emf

begin.CopyToClipboardMetafile(true);;TFPlot.APrintPExecute(Sender: TObject);

// Печать графикаi: integer;

begin(PrintDialog1.Execute) theni:=1 to PrintDialog1.Copies do(Sender = APrintP)Chart1.PrintPortraitChart1.PrintLandscape;;TFPlot.Chart1DblClick(Sender: TObject);

// Восстановление масштаба по умолчанию.UndoZoom;

end;TFPlot.AExitExecute(Sender: TObject);

// Завершение работы приложения.Terminate;

end;TFPlot.AHelpExecute(Sender: TObject);

// Вызов справки.HelpCommand(HELP_FINDER,0);;TFPlot.FormClose(Sender: TObject; var Action: TCloseAction);(ACursors.Checked or ACursMouse.Checked)FCoord.Close;;TFPlot.FormCreate(Sender: TObject);.XValues.Order := loNone;

end;.

Окно работы с курсором:

unit UCoord;

interface, Messages, SysUtils, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm)FormClose(Sender: TObject; var Action: TCloseAction);

{ Private declarations }

{ Public declarations };: TFCoord;UPlot;

{$R *.dfm}TFCoord.FormClose(Sender: TObject; var Action: TCloseAction);.FCoordClose;;.