فهرست منبع

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

builder 9 سال پیش
والد
کامیت
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;