Source code of file oscpmwin/oscpm1.dpr 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:   PROGRAM oscpm1;
0023:   
0024:   uses
0025:     gnugettext in 'gnugettext.pas',
0026:     Forms,
0027:     Windows,
0028:     Graphics,
0029:     SysUtils,
0030:     main in 'main.pas' {opm_Form_Main},
0031:     config in 'config.pas' {opm_Form_Config},
0032:     search in 'search.pas' {opm_Form_SearchProduct},
0033:     pedit in 'pedit.pas' {opm_Form_PEdit},
0034:     askuser in 'askuser.pas' {opm_Form_AskUser},
0035:     license in 'license.pas' {opm_Form_License},
0036:     about in 'about.pas' {opm_Form_About},
0037:     pimgzoom in 'pimgzoom.pas' {opm_Form_ImageZoom},
0038:     splash in 'splash.pas' {opm_Form_splash},
0039:     oscpmdata in 'oscpmdata.pas',
0040:     balloons in 'balloons.pas',
0041:     regconfig in 'regconfig.pas',
0042:     dataman in 'dataman.pas',
0043:     attention in 'attention.pas',
0044:     network in 'network.pas',
0045:     freeimage in 'freeimage.pas',
0046:     imageman in 'imageman.pas',
0047:     askupload in 'askupload.pas' {opm_Form_UploadImage},
0048:     modules in 'modules.pas',
0049:     runmod in 'runmod.pas' {opm_Form_Runmod},
0050:     colorsel in 'colorsel.pas' {opm_Form_ColorSel},
0051:     configmod in 'configmod.pas' {opm_Form_ConfigMod},
0052:     askcat in 'askcat.pas' {opm_Form_AskCat},
0053:     progress in 'progress.pas' {opm_Form_Progress},
0054:     currencyedit in 'currencyedit.pas' {opm_Form_CurrencyEdit},
0055:     currencyman in 'currencyman.pas' {opm_Form_CurrencyMan},
0056:     currupd in 'currupd.pas' {opm_Form_Currupd},
0057:     openpicdlg in 'openpicdlg.pas',
0058:     sqllog in 'sqllog.pas' {opm_Form_SQLLog},
0059:     phpinfo in 'phpinfo.pas' {opm_Form_PHPInfo};
0060:   
0061:   VAR
0062:     opm_OnlyOne_Mutex : THandle;
0063:   
0064:   {$R *.res}
0065:   
0066:   BEGIN
0067:     {The following line to be used with MemCheck only http://v.mahon.free.fr/pro/freeware/memcheck/
0068:      It also requires the following: disable optimizations, enable all debugging options, include TD32
0069:      debug information.}
0070:     {MemChk;}
0071:     Graphics.DefFontData.Name := FNReg_ReadSetting ('UIFontName', opmC_DefaultFont, opmC_RegistryKey, opmC_RKVisual);
0072:     Graphics.DefFontData.Height := FNopm_StrToInt (FNReg_ReadSetting ('UIFontHeight', INTTOSTR (opmC_DefaultFontHeight), opmC_RegistryKey, opmC_RKVisual));
0073:     Graphics.DefFontData.Charset := FNopm_StrToInt (FNReg_ReadSetting ('UIFontCharset', INTTOSTR (opmC_DefaultFontCharset), opmC_RegistryKey, opmC_RKVisual));
0074:     AddDomainForResourceString ('delphi');
0075:     UseLanguage (opmC_Def_GUILang);
0076:     opm_OnlyOne_Mutex := CreateMutex (NIL, TRUE, 'opm_oscpm1');
0077:     IF ((opm_OnlyOne_Mutex <> 0) AND (GetLastError = 0)) THEN
0078:       BEGIN
0079:         TRY
0080:           opm_Form_splash := Topm_Form_splash.Create(Application);
0081:           opm_Form_splash.Show;
0082:           opm_Form_splash.Update;
0083:           Application.Initialize;
0084:           Application.Title := 'OSCPM1';
0085:           Application.UpdateFormatSettings := FALSE;
0086:           opm_Form_splash.opm_ProgressBar_Splash.Position := 3; opm_Form_splash.Update;
0087:           Application.CreateForm(Topm_Form_Main, opm_Form_Main);
0088:           opm_Form_splash.opm_ProgressBar_Splash.Position := 5; opm_Form_splash.Update;
0089:           Application.CreateForm(Topm_Form_PHPInfo, opm_Form_PHPInfo);
0090:           opm_Form_splash.opm_ProgressBar_Splash.Position := 8; opm_Form_splash.Update;
0091:           Application.CreateForm(Topm_Form_SQLLog, opm_Form_SQLLog);
0092:           opm_Form_splash.opm_ProgressBar_Splash.Position := 11; opm_Form_splash.Update;
0093:           Application.CreateForm(Topm_Form_Currupd, opm_Form_Currupd);
0094:           opm_Form_splash.opm_ProgressBar_Splash.Position := 16; opm_Form_splash.Update;
0095:           Application.CreateForm(Topm_Form_CurrencyEdit, opm_Form_CurrencyEdit);
0096:           opm_Form_splash.opm_ProgressBar_Splash.Position := 22; opm_Form_splash.Update;
0097:           Application.CreateForm(Topm_Form_CurrencyMan, opm_Form_CurrencyMan);
0098:           opm_Form_splash.opm_ProgressBar_Splash.Position := 27; opm_Form_splash.Update;
0099:           Application.CreateForm(Topm_Form_Progress, opm_Form_Progress);
0100:           opm_Form_splash.opm_ProgressBar_Splash.Position := 33; opm_Form_splash.Update;
0101:           Application.CreateForm(Topm_Form_AskCat, opm_Form_AskCat);
0102:           opm_Form_splash.opm_ProgressBar_Splash.Position := 38; opm_Form_splash.Update;
0103:           Application.CreateForm(Topm_Form_ConfigMod, opm_Form_ConfigMod);
0104:           opm_Form_splash.opm_ProgressBar_Splash.Position := 44; opm_Form_splash.Update;
0105:           Application.CreateForm(Topm_Form_UploadImage, opm_Form_UploadImage);
0106:           opm_Form_splash.opm_ProgressBar_Splash.Position := 49; opm_Form_splash.Update;
0107:           Application.CreateForm(Topm_Form_Config, opm_Form_Config);
0108:           opm_Form_splash.opm_ProgressBar_Splash.Position := 55; opm_Form_splash.Update;
0109:           Application.CreateForm(Topm_Form_SearchProduct, opm_Form_SearchProduct);
0110:           opm_Form_splash.opm_ProgressBar_Splash.Position := 61; opm_Form_splash.Update;
0111:           Application.CreateForm(Topm_Form_PEdit, opm_Form_PEdit);
0112:           opm_Form_splash.opm_ProgressBar_Splash.Position := 66; opm_Form_splash.Update;
0113:           Application.CreateForm(Topm_Form_AskUser, opm_Form_AskUser);
0114:           opm_Form_splash.opm_ProgressBar_Splash.Position := 72; opm_Form_splash.Update;
0115:           Application.CreateForm(Topm_Form_License, opm_Form_License);
0116:           opm_Form_splash.opm_ProgressBar_Splash.Position := 77; opm_Form_splash.Update;
0117:           Application.CreateForm(Topm_Form_About, opm_Form_About);
0118:           opm_Form_splash.opm_ProgressBar_Splash.Position := 83; opm_Form_splash.Update;
0119:           Application.CreateForm(Topm_Form_ImageZoom, opm_Form_ImageZoom);
0120:           opm_Form_splash.opm_ProgressBar_Splash.Position := 88; opm_Form_splash.Update;
0121:           Application.CreateForm(Topm_Form_Runmod, opm_Form_Runmod);
0122:           opm_Form_splash.opm_ProgressBar_Splash.Position := 94; opm_Form_splash.Update;
0123:           Application.CreateForm(Topm_Form_ColorSel, opm_Form_ColorSel);
0124:           opm_Form_splash.opm_ProgressBar_Splash.Position := 99; opm_Form_splash.Update;
0125:           Application.Run;
0126:         FINALLY
0127:           opm_Form_splash.Close;
0128:           opm_Form_splash.Free;
0129:         END;
0130:         IF (opm_OnlyOne_Mutex <> 0) THEN CloseHandle (opm_OnlyOne_Mutex);
0131:       END;
0132:   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