Source code of file oscpmwin_v0.4.1.642/splash.pas from the
osCommerce Product Manager for Windows.
0000: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001: osCommerce Product Manager for Windows (oscpmwin).
0002: 0003:
0004: You can contact Mario A. Valdez-Ramirez
0005: by email at mario@mariovaldez.org or paper mail at
0006: Olmos 809, San Nicolas, NL. 66495, Mexico.
0007:
0008: This program is free software; you can redistribute it and/or modify
0009: it under the terms of the GNU General Public License as published by
0010: the Free Software Foundation; either version 2 of the License, or (at
0011: your option) any later version.
0012:
0013: This program is distributed in the hope that it will be useful, but
0014: WITHOUT ANY WARRANTY; without even the implied warranty of
0015: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0016: General Public License for more details.
0017:
0018: You should have received a copy of the GNU General Public License
0019: along with this program; if not, write to the Free Software
0020: Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
0021: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0022: unit splash;
0023:
0024: interface
0025:
0026: USES
0027: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
0028: Dialogs, ComCtrls, ExtCtrls, StdCtrls;
0029:
0030: TYPE
0031: Topm_Form_splash = class(TForm)
0032: opm_Panel_Splash: TPanel;
0033: opm_Image_splash: TImage;
0034: opm_ProgressBar_Splash: TProgressBar;
0035: opm_Label_SplashVersion: TLabel;
0036: procedure opm_Image_splashClick(Sender: TObject);
0037: procedure FormDeactivate(Sender: TObject);
0038: procedure FormKeyDown(Sender: TObject; var Key: Word;
0039: Shift: TShiftState);
0040: procedure FormShow(Sender: TObject);
0041: private
0042: { Private declarations }
0043: public
0044: PROCEDURE opmPR_ReshowSplash;
0045: end;
0046:
0047: var
0048: opm_Form_splash: Topm_Form_splash;
0049: opm_SplayDelay : DOUBLE;
0050:
0051: IMPLEMENTATION
0052:
0053: USES main, oscpmdata, dataman;
0054:
0055: {$R *.dfm}
0056:
0057:
0058: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0059: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0060: procedure Topm_Form_splash.opm_Image_splashClick(Sender: TObject);
0061: begin
0062: opm_Form_splash.Deactivate;
0063: end;
0064:
0065:
0066: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0067: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0068: procedure Topm_Form_splash.FormDeactivate(Sender: TObject);
0069: VAR
0070: SplashTime : DOUBLE;
0071: begin
0072: IF (opm_SplayDelay > 200) THEN
0073: BEGIN
0074: SplashTime := GetTickCount;
0075: REPEAT
0076: Application.ProcessMessages;
0077: UNTIL ((GetTickCount - SplashTime) > opm_SplayDelay);
0078: END;
0079: opm_Form_splash.Close;
0080: end;
0081:
0082:
0083: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0084: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0085: procedure Topm_Form_splash.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
0086: begin
0087: opm_Form_splash.Close;
0088: end;
0089:
0090:
0091: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0092: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0093: PROCEDURE Topm_Form_splash.opmPR_ReshowSplash;
0094: BEGIN
0095: opm_ProgressBar_Splash.Visible := FALSE;
0096: opm_SplayDelay := 0;
0097: opm_Form_splash.Show;
0098: END;
0099:
0100:
0101: procedure Topm_Form_splash.FormShow(Sender: TObject);
0102: begin
0103: opm_Label_SplashVersion.Caption := opmC_Version + '.' + opmG_ExeBuildVersion;
0104: end;
0105:
0106: INITIALIZATION
0107: opm_SplayDelay := 0;
0108:
0109:
0110: end.
