[add] スプラッシュ画面を追加

[feedingorigin2/HikakuBunseki.git] / u_datagenerator1.pas

diff --git a/u_datagenerator1.pas b/u_datagenerator1.pas
index df5ba55..972c488 100644 (file)
--- a/u_datagenerator1.pas
+++ b/u_datagenerator1.pas
@@ -39,7 +39,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
   Dialogs, ExtCtrls, math, StrUtils, StdCtrls, Grids, ComCtrls, u_feedingcalc2,
-  u_CommonModule, u_Marker, TACustomSeries, u_regWorkData;
+  u_CommonModule, u_Marker, TACustomSeries, u_regWorkData, u_splash;
 
 type
   astG = Array[0..72065] of reGROW ;
@@ -102,7 +102,6 @@ type
     procedure ComboBox2Change(Sender: TObject);
     procedure ComboBox3Change(Sender: TObject);
     procedure Check_of_Weight(Sender: TObject);
-    procedure FormActivate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure LabeledEdit1KeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -183,13 +182,10 @@ begin
   GraphOutPut();
 end;
 
-procedure TForm1.FormActivate(Sender: TObject);
-begin
-
-end;
-
 procedure TForm1.FormShow(Sender: TObject);
 begin
+  u_splash.fSplash.Show ;
+
   if not FileExists('IkuseiData.dat') then
   begin
     ShowMessage('データ・ファイルの「IkuseiData.dat」が見つかりません。'+#$0D+#$0A+'プログラムを終了します。');
@@ -219,6 +215,8 @@ begin
 
   SelectData();
   GraphOutPut();
+
+  u_splash.fSplash.Close;
 end;
 
 procedure TForm1.LabeledEdit1KeyDown(Sender: TObject; var Key: Word;