Source code of file oscpmwin_v0.4.1.723/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.
