Source code of file oscpmwin_v0.4.1.636/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.
 
 
NA fum/lmd: 2007.07.15
Copyright ©1994-2017 by Mario A. Valdez-Ramírez.
no siga este enlace / do not follow this link