Source code of file oscpmwin_v0.1.1.652/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, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
0028:     Dialogs, StdCtrls, Buttons, ShellApi, ExtCtrls, Menus;
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_Label_AboutCapa: TLabel;
0057:       Bevel8: TBevel;
0058:       procedure opm_Label_AboutHomepageClick(Sender: TObject);
0059:       procedure opm_Label_AboutEmailClick(Sender: TObject);
0060:       procedure FormCreate(Sender: TObject);
0061:       procedure opm_Label_AboutHomepageOSCClick(Sender: TObject);
0062:       procedure opm_BitBtn_AboutSplashClick(Sender: TObject);
0063:       procedure opm_PopMenuItem_AboutCloseClick(Sender: TObject);
0064:       procedure opm_PopMenuItem_AboutSplashClick(Sender: TObject);
0065:       procedure opm_PopMenuItem_AboutCopyEmailClick(Sender: TObject);
0066:       procedure opm_PopMenuItem_AboutCopyURLClick(Sender: TObject);
0067:       procedure FormShow(Sender: TObject);
0068:     private
0069:       { Private declarations }
0070:     public
0071:     end;
0072:   
0073:   var
0074:     opm_Form_About: Topm_Form_About;
0075:   
0076:   implementation
0077:   
0078:   uses gnugettext, main, oscpmdata, balloons, splash, clipbrd, dataman;
0079:   
0080:   {$R *.dfm}
0081:   
0082:   
0083:   
0084:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0085:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0086:   procedure Topm_Form_About.opm_Label_AboutHomepageClick(Sender: TObject);
0087:   begin
0088:     ShellExecute (handle,'Open', opmC_Homepage, NIL, NIL, SW_NORMAL);
0089:   end;
0090:   
0091:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0092:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0093:   procedure Topm_Form_About.opm_Label_AboutEmailClick(Sender: TObject);
0094:   begin
0095:     ShellExecute (handle,'Open', opmC_EmailURL, NIL, NIL, SW_NORMAL);
0096:   end;
0097:   
0098:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0099:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0100:   procedure Topm_Form_About.opm_Label_AboutHomepageOSCClick(Sender: TObject);
0101:   begin
0102:     ShellExecute (handle,'Open', opmC_OSCHomepage, NIL, NIL, SW_NORMAL);
0103:   end;
0104:   
0105:   
0106:   
0107:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0108:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0109:   procedure Topm_Form_About.FormCreate(Sender: TObject);
0110:   begin
0111:     opm_Edit_AboutTitle.Text := opmC_AppName1;
0112:     opm_Edit_AboutTitle2.Text := opmC_AppName2 + ' (' + opmC_AppShortName + ') ' + opmC_Version + ' (build ' + opmG_ExeBuildVersion + ')';
0113:     opm_Label_AboutHomepage.Caption := opmC_Homepage;
0114:     opm_Edit_AboutAuthor.Text := opmC_Copyright;
0115:     opm_Label_AboutEmail.Caption := opmC_Email;
0116:     opm_Edit_AboutTitleOSC.Text := opmC_OSCAppName;
0117:     opm_Edit_AboutAuthorOSC.Text := opmC_OSCCopyright;
0118:     opm_Label_AboutHomepageOSC.Caption := opmC_OSCHomepage;
0119:     opm_Label_AboutUserAgent.Caption := opmG_PlatformVersion;
0120:   
0121:     opm_Edit_AboutTitle.BorderStyle := bsNone;
0122:     opm_Edit_AboutTitle2.BorderStyle := bsNone;
0123:     opm_Edit_AboutAuthor.BorderStyle := bsNone;
0124:     opm_Edit_AboutTobeUsed.BorderStyle := bsNone;
0125:     opm_Edit_AboutTitleOSC.BorderStyle := bsNone;
0126:     opm_Edit_AboutAuthorOSC.BorderStyle := bsNone;
0127:   
0128:     TranslateComponent (self);
0129:   end;
0130:   
0131:   
0132:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0133:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0134:   procedure Topm_Form_About.opm_BitBtn_AboutSplashClick(Sender: TObject);
0135:   begin
0136:     opm_Form_splash.opmPR_ReshowSplash;
0137:     opm_Label_AboutMemLoad.Caption := _('Memory usage:') + ' ' + INTTOSTR (FNopm_GetMemoryLoad) + '%';
0138:   end;
0139:   
0140:   
0141:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0142:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0143:   procedure Topm_Form_About.opm_PopMenuItem_AboutCloseClick(Sender: TObject);
0144:   begin
0145:     Close;
0146:   end;
0147:   
0148:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0149:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0150:   procedure Topm_Form_About.opm_PopMenuItem_AboutSplashClick(Sender: TObject);
0151:   begin
0152:     opm_Form_splash.opmPR_ReshowSplash;
0153:     opm_Label_AboutMemLoad.Caption := _('Memory usage:') + ' ' + INTTOSTR (FNopm_GetMemoryLoad) + '%';
0154:   end;
0155:   
0156:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0157:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0158:   procedure Topm_Form_About.opm_PopMenuItem_AboutCopyEmailClick(Sender: TObject);
0159:   begin
0160:     Clipboard.AsText := opmC_Email;
0161:   end;
0162:   
0163:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0164:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0165:   procedure Topm_Form_About.opm_PopMenuItem_AboutCopyURLClick(Sender: TObject);
0166:   begin
0167:     Clipboard.AsText := opmC_OSCHomepage;
0168:   end;
0169:   
0170:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0171:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0172:   procedure Topm_Form_About.FormShow(Sender: TObject);
0173:   begin
0174:     opm_Form_About.Caption := _('About ') + opmC_AppShortName;
0175:     opm_Edit_AboutTobeUsed.Text := _('To be used with');
0176:     opm_Label_AboutMemLoad.Caption := _('Memory usage:') + ' ' + INTTOSTR (FNopm_GetMemoryLoad) + '%';
0177:     opm_Label_AboutLangDetails.Caption := _('Language files translated by') + #13 +
0178:                                           UTF8TOANSI (DefaultInstance.GetTranslationProperty ('Language-Team') + #13 +
0179:                                                       DefaultInstance.GetTranslationProperty ('PO-Revision-Date'));
0180:     opm_Label_AboutCapa.Caption := _('Detected osCommerce extensions:');
0181:     opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ' ' + opmC_Capa_OSCommerce;
0182:     IF (opmG_Capa_MorePics6 = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_MorePics6;
0183:     IF (opmG_Capa_TotalB2B = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_TotalB2B;
0184:     IF (opmG_Capa_PollBooth = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_PollBooth;
0185:     IF (opmG_Capa_HeaderTags = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_HeaderTags;
0186:     opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + '.';
0187:   end;
0188:   
0189:   
0190:   
0191:   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