/
dimferon
/
AstrobloQ
Обзор
Документация
Войти
/
dimferon
/
AstrobloQ
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
source/bio/fbHumidityMap.pas
49 строк
888 B
glscene
Included sources and data
09 мар 2024, 14:34
09 мар 2024, 14:34
8c41b42
Код
Авторство
О чём код?
unit fbHumidityMap; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, fbHeightField; type TFormHumidityMap = class(TFormHeightField) procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private public end; var FormHumidityMap: TFormHumidityMap; //============================================================================ implementation uses fbFirstForm; {$R *.dfm} procedure TFormHumidityMap.FormCreate(Sender: TObject); begin inherited FormCreate(Sender); HeatField.OnGetHeight := HumidityFormula; end; procedure TFormHumidityMap.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := false; FormFirst.RealityForm.ManagerForm.DropHumidityMap; end; end.