Просмотр исходного кода

Merge branch 'master' of http://192.168.1.12:3000/maixinrong/measure

builder 9 лет назад
Родитель
Сommit
28701d523b
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      Forms/WelcomeFrm.pas

+ 3 - 1
Forms/WelcomeFrm.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ExtCtrls, jpeg;
+  Dialogs, ExtCtrls, jpeg, UtilMethods;
 
 type
   TWelcomeForm = class(TForm)
@@ -37,6 +37,8 @@ var
   iFirstTime: Cardinal;
 begin
   WelcomeForm := TWelcomeForm.Create(nil);
+  if FileExists(GetAppFilePath + 'Welcome.jpg') then
+    WelcomeForm.imgWelcome.Picture.LoadFromFile(GetAppFilePath + 'Welcome.jpg');
   Result := WelcomeForm.Handle;
   WelcomeForm.Show;
   iFirstTime := GetTickCount;