diff --git a/applications/foobot/monitor/splashimage.jpg b/applications/foobot/monitor/splashimage.jpg new file mode 100644 index 000000000..a19422e54 Binary files /dev/null and b/applications/foobot/monitor/splashimage.jpg differ diff --git a/applications/foobot/monitor/splashimageorg.png b/applications/foobot/monitor/splashimageorg.png new file mode 100644 index 000000000..94c2071fb Binary files /dev/null and b/applications/foobot/monitor/splashimageorg.png differ diff --git a/applications/foobot/monitor/usplash.lfm b/applications/foobot/monitor/usplash.lfm new file mode 100644 index 000000000..e65098e72 --- /dev/null +++ b/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 diff --git a/applications/foobot/monitor/usplash.pas b/applications/foobot/monitor/usplash.pas new file mode 100644 index 000000000..aab384853 --- /dev/null +++ b/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. +