Source code of file oscpmwin/about.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 about;
0023:   
0024:   interface
0025:   
0026:   uses
0027:     Windows, SysUtils, Controls, Forms,
0028:     StdCtrls, Buttons, ShellApi, ExtCtrls, Menus, Classes;
0029:   
0030:   type
0031:     Topm_Form_About = class(TForm)
0032:       opm_BitBtn_AboutOk: TBitBtn;
0033:       opm_Label_AboutHomepage: TLabel;
0034:       opm_Label_AboutEmail: TLabel;
0035:       opm_Label_AboutHomepageOSC: TLabel;
0036:       opm_BitBtn_AboutSplash: TBitBtn;
0037:       opm_PopupMenu_About: TPopupMenu;
0038:       opm_PopMenuItem_AboutCopyEmail: TMenuItem;
0039:       opm_PopMenuItem_AboutCopyURL: TMenuItem;
0040:       opm_PopMenuItem_AboutClose: TMenuItem;
0041:       opm_PopMenuItem_AboutSplash: TMenuItem;
0042:       N1: TMenuItem;
0043:       Bevel3: TBevel;
0044:       opm_Label_AboutUserAgent: TLabel;
0045:       opm_Edit_AboutAuthor: TEdit;
0046:       opm_Edit_AboutTitle2: TEdit;
0047:       opm_Edit_AboutTitle: TEdit;
0048:       opm_Edit_AboutTobeUsed: TEdit;
0049:       opm_Edit_AboutTitleOSC: TEdit;
0050:       opm_Edit_AboutAuthorOSC: TEdit;
0051:       Bevel1: TBevel;
0052:       Bevel2: TBevel;
0053:       opm_Label_AboutMemLoad: TLabel;
0054:       Bevel4: TBevel;
0055:       opm_Label_AboutLangDetails: TLabel;
0056:       opm_Memo_AboutSysCapa: TMemo;
0057:       procedure opm_Label_AboutHomepageClick(Sender: TObject);
0058:       procedure opm_Label_AboutEmailClick(Sender: TObject);
0059:       procedure FormCreate(Sender: TObject);
0060:       procedure opm_Label_AboutHomepageOSCClick(Sender: TObject);
0061:       procedure opm_BitBtn_AboutSplashClick(Sender: TObject);
0062:       procedure opm_PopMenuItem_AboutCloseClick(Sender: TObject);
0063:       procedure opm_PopMenuItem_AboutSplashClick(Sender: TObject);
0064:       procedure opm_PopMenuItem_AboutCopyEmailClick(Sender: TObject);
0065:       procedure opm_PopMenuItem_AboutCopyURLClick(Sender: TObject);
0066:       procedure FormShow(Sender: TObject);
0067:     private
0068:       { Private declarations }
0069:     public
0070:     end;
0071:   
0072:   var
0073:     opm_Form_About: Topm_Form_About;
0074:   
0075:   implementation
0076:   
0077:   uses gnugettext, oscpmdata, splash, clipbrd, dataman, network;
0078:   
0079:   {$R *.dfm}
0080:   
0081:   
0082:   
0083:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0084:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0085:   procedure Topm_Form_About.opm_Label_AboutHomepageClick(Sender: TObject);
0086:   begin
0087:     ShellExecute (handle,'Open', PCHAR (opmC_HomepageURL + '?' + opmC_RedirParameter + '=' + opmC_Version + '.' + opmG_ExeBuildVersion), NIL, NIL, SW_NORMAL);
0088:   end;
0089:   
0090:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0091:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0092:   procedure Topm_Form_About.opm_Label_AboutEmailClick(Sender: TObject);
0093:   begin
0094:     ShellExecute (handle,'Open', opmC_EmailURL, NIL, NIL, SW_NORMAL);
0095:   end;
0096:   
0097:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0098:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0099:   procedure Topm_Form_About.opm_Label_AboutHomepageOSCClick(Sender: TObject);
0100:   begin
0101:     ShellExecute (handle,'Open', opmC_OSCHomepageURL, NIL, NIL, SW_NORMAL);
0102:   end;
0103:   
0104:   
0105:   
0106:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0107:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0108:   procedure Topm_Form_About.FormCreate(Sender: TObject);
0109:   begin
0110:     opm_Edit_AboutTitle.Text := opmC_AppName1;
0111:     opm_Edit_AboutTitle2.Text := opmC_AppName2 + ' (' + opmC_AppShortName + ') ' + opmC_Version + ' (build ' + opmG_ExeBuildVersion + ')';
0112:     opm_Label_AboutHomepage.Caption := opmC_VisHomepageURL;
0113:     opm_Edit_AboutAuthor.Text := opmC_Copyright;
0114:     opm_Label_AboutEmail.Caption := opmC_Email;
0115:     opm_Edit_AboutTitleOSC.Text := opmC_OSCAppName;
0116:     opm_Edit_AboutAuthorOSC.Text := opmC_OSCCopyright;
0117:     opm_Label_AboutHomepageOSC.Caption := opmC_OSCHomepageURL;
0118:     opm_Label_AboutUserAgent.Caption := opmG_PlatformVersion;
0119:   
0120:     opm_Edit_AboutTitle.BorderStyle := bsNone;
0121:     opm_Edit_AboutTitle2.BorderStyle := bsNone;
0122:     opm_Edit_AboutAuthor.BorderStyle := bsNone;
0123:     opm_Edit_AboutTobeUsed.BorderStyle := bsNone;
0124:     opm_Edit_AboutTitleOSC.BorderStyle := bsNone;
0125:     opm_Edit_AboutAuthorOSC.BorderStyle := bsNone;
0126:   
0127:     TranslateComponent (self);
0128:   end;
0129:   
0130:   
0131:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0132:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0133:   procedure Topm_Form_About.opm_BitBtn_AboutSplashClick(Sender: TObject);
0134:   begin
0135:     opm_Form_splash.opmPR_ReshowSplash;
0136:     opm_Label_AboutMemLoad.Caption := _('Memory usage:') + ' ' + INTTOSTR (FNopm_GetMemoryLoad) + '%';
0137:   end;
0138:   
0139:   
0140:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0141:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0142:   procedure Topm_Form_About.opm_PopMenuItem_AboutCloseClick(Sender: TObject);
0143:   begin
0144:     Close;
0145:   end;
0146:   
0147:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0148:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0149:   procedure Topm_Form_About.opm_PopMenuItem_AboutSplashClick(Sender: TObject);
0150:   begin
0151:     opm_Form_splash.opmPR_ReshowSplash;
0152:     opm_Label_AboutMemLoad.Caption := _('Memory usage:') + ' ' + INTTOSTR (FNopm_GetMemoryLoad) + '%';
0153:   end;
0154:   
0155:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0156:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0157:   procedure Topm_Form_About.opm_PopMenuItem_AboutCopyEmailClick(Sender: TObject);
0158:   begin
0159:     Clipboard.AsText := opmC_Email;
0160:   end;
0161:   
0162:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0163:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0164:   procedure Topm_Form_About.opm_PopMenuItem_AboutCopyURLClick(Sender: TObject);
0165:   begin
0166:     Clipboard.AsText := opmC_OSCHomepageURL;
0167:   end;
0168:   
0169:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0170:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0171:   procedure Topm_Form_About.FormShow(Sender: TObject);
0172:   VAR
0173:     CurTable : LONGINT;
0174:   BEGIN
0175:     opm_Form_About.Caption := _('About ') + opmC_AppShortName;
0176:     opm_Edit_AboutTobeUsed.Text := _('To be used with');
0177:     opm_Label_AboutMemLoad.Caption := _('Memory usage:') + ' ' + INTTOSTR (FNopm_GetMemoryLoad) + '%';
0178:     opm_Label_AboutLangDetails.Caption := _('Language files translated by') + #13 +
0179:                                           UTF8TOANSI (DefaultInstance.GetTranslationProperty ('Language-Team') + #13 +
0180:                                                       DefaultInstance.GetTranslationProperty ('PO-Revision-Date'));
0181:     opm_Memo_AboutSysCapa.Visible := FNopm_ConnectionState;
0182:     opm_Memo_AboutSysCapa.Text := _('Connected store:') + ' ' + opmG_CurrentStoreName + #13#10;
0183:     opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + _('Detected osCommerce extensions:') + #13#10;
0184:     IF (opmG_Capa_osCommerce = TRUE) THEN opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + ' ' + opmC_Capa_OSCommerce;
0185:     IF (opmG_Capa_ZenCart = TRUE) THEN opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + ' ' + opmC_Capa_ZenCart;
0186:     IF (opmG_Capa_MorePics6 = TRUE) THEN opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + ' ' + opmC_Capa_MorePics6;
0187:     IF (opmG_Capa_TotalB2B = TRUE) THEN opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + ' ' + opmC_Capa_TotalB2B;
0188:     IF (opmG_Capa_PollBooth = TRUE) THEN opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + ' ' + opmC_Capa_PollBooth;
0189:     IF (opmG_Capa_HeaderTags = TRUE) THEN opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + ' ' + opmC_Capa_HeaderTags;
0190:     opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + '.' + #13#10;
0191:     opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + _('Detected osCommerce database tables:') + ' ';
0192:     FOR CurTable := 0 TO (opmG_DBTableList.Count - 1) DO
0193:       BEGIN
0194:         opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + ' ' + opmG_DBTableList.ValueFromIndex[CurTable];
0195:       END;
0196:     opm_Memo_AboutSysCapa.Text := opm_Memo_AboutSysCapa.Text + '.';
0197:   END;
0198:   
0199:   
0200:   
0201:   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