Added Splash screen and resources

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5605 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/foobot/monitor/usplash.lfm

@@ -0,0 +1,26 @@
+object splashform: Tsplashform
+  Left = 596
+  Height = 480
+  Top = 136
+  Width = 790
+  BorderStyle = bsNone
+  Caption = 'splashform'
+  ClientHeight = 480
+  ClientWidth = 790
+  DefaultMonitor = dmDesktop
+  FormStyle = fsStayOnTop
+  OnCreate = FormCreate
+  Position = poWorkAreaCenter
+  ShowInTaskBar = stNever
+  LCLVersion = '1.7'
+  Scaled = True
+  object img: TImage
+    Left = 0
+    Height = 480
+    Top = 0
+    Width = 790
+    Align = alClient
+    Stretch = True
+    Transparent = True
+  end
+end

applications/foobot/monitor/usplash.pas

@@ -0,0 +1,45 @@
+unit usplash;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
+
+type
+
+  { Tsplashform }
+
+  Tsplashform = class(TForm)
+    img: TImage;
+    procedure FormCreate(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  splashform: Tsplashform;
+
+implementation
+
+{$R *.lfm}
+
+{ Tsplashform }
+
+procedure Tsplashform.FormCreate(Sender: TObject);
+var jpg:TJPEGImage;
+begin
+     jpg:=TJPEGImage.Create;
+     try
+        jpg.LoadFromResourceName(HInstance,'SPLASHIMAGE');
+        Img.Canvas.Draw(0,0,jpg);
+     finally
+        jpg.Free;
+     end;
+end;
+
+end.
+