Source code of file oscpmwin_v0.1.1.875/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.Visible := opm_WeAreConnected;
0181: opm_Label_AboutCapa.Caption := _('Detected osCommerce extensions:');
0182: opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ' ' + opmC_Capa_OSCommerce;
0183: IF (opmG_Capa_MorePics6 = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_MorePics6;
0184: IF (opmG_Capa_TotalB2B = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_TotalB2B;
0185: IF (opmG_Capa_PollBooth = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_PollBooth;
0186: IF (opmG_Capa_HeaderTags = TRUE) THEN opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + ', ' + opmC_Capa_HeaderTags;
0187: opm_Label_AboutCapa.Caption := opm_Label_AboutCapa.Caption + '.';
0188: end;
0189:
0190:
0191:
0192: end.
