Summary Table

Categories Total Count
PII 0
URL 0
DNS 0
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 0

File Content

{ **************************************************************
Package: XWB - Kernel RPCBroker
Date Created: Sept 18, 1997 (Version 1.1)
Site Name: Oakland, OI Field Office, Dept of Veteran Affairs
Developers: Danila Manapsal, Don Craven, Joel Ivey, Herlan Westra
Description: Contains TRPCBroker and related components.
Unit: Splvista displays VistA splash screen.
Current Release: Version 1.1 Patch 65
*************************************************************** }

{ **************************************************
Changes in v1.1.65 (HGW 07/19/2016) XWB*1.1*65
1. None.

Changes in v1.1.60 (HGW 09/11/2013) XWB*1.1*60
1. Updated graphics and simplified coding.

Changes in v1.1.14 (DPC 03/30/2000) XWB*1.1*14
1. Modified the tick types so that code will work with D3, D4, D5.

Changes in v1.1.11 (DCM 09/27/1999) XWB*1.1*11
1. Resolved error in Delphi 5 (ver130) combining signed and unsigned
types - widened both operands. Changed StartTick from longint to
longword, and SplashClose(TimeOut) from longint to longword.
GetTickCount's result is of type DWORD, longword.
************************************************** }
unit Splvista;

interface

uses
{System}
SysUtils, Classes,
{WinApi}
WinTypes, WinProcs, Messages,
{Vcl}
Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type
TfrmVistaSplash = class(TForm)
Panel1: TPanel;
Image1: TImage;

{ Private declarations }
public
{ Public declarations }
end;

var
frmVistaSplash: TfrmVistaSplash;
StartTick: longword;

procedure SplashOpen;

procedure SplashClose(TimeOut: longword);

implementation

{$R *.DFM}



procedure SplashOpen;
begin
StartTick := GetTickCount;
try
frmVistaSplash := TfrmVistaSplash.Create(Application);
frmVistaSplash.Show;
except
frmVistaSplash.Release;
frmVistaSplash := nil;
end;
end;



procedure SplashClose(TimeOut: longword);
begin
try
while (GetTickCount - StartTick) < TimeOut do Application.ProcessMessages;
frmVistaSplash.Release;
frmVistaSplash := nil;
except
end;
end;


end.