Source code of file oscpmwin_v0.1.2.189/license.pas from the
osCommerce Product Manager for Windows.
0000: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001: osCommerce Product Manager for Windows (oscpmwin).
0002: Copyright �2003,2004,2005 by Mario A. Valdez-Ramirez.
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 license;
0023:
0024: interface
0025:
0026: uses
0027: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
0028: Dialogs, StdCtrls, Buttons;
0029:
0030: type
0031: Topm_Form_License = class(TForm)
0032: opm_Memo_License: TMemo;
0033: opm_BitBtn_LicenseOk: TBitBtn;
0034: procedure FormCreate(Sender: TObject);
0035: procedure FormShow(Sender: TObject);
0036: private
0037: { Private declarations }
0038: public
0039: end;
0040:
0041: var
0042: opm_Form_License: Topm_Form_License;
0043:
0044: implementation
0045:
0046: uses gnugettext, main, oscpmdata, balloons, dataman;
0047:
0048: {$R *.dfm}
0049:
0050: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0051: The following conditional is needed because of licensing
0052: issues when compiling with JclDebug or MadExcept library.
0053: The resulting executable cannot be released under the GPL
0054: license. As a result, we compile and include a freeware
0055: testing license when using any of them.
0056: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0057:
0058: {$IFDEF OSCPMDEBUG}
0059: {$R license_debug.RES}
0060: {$ELSE}
0061: {$R license_text.RES}
0062: {$ENDIF}
0063:
0064:
0065: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0066: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0067: procedure Topm_Form_License.FormCreate(Sender: TObject);
0068: begin
0069: opm_Form_License.Caption := _('License of ') + opmC_AppShortName;
0070: opm_Memo_License.Lines.Text := FNopm_StringFromResource ('license_body');
0071: TranslateComponent (self);
0072: end;
0073:
0074:
0075:
0076: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0077: {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0078: procedure Topm_Form_License.FormShow(Sender: TObject);
0079: begin
0080: opm_Form_License.Caption := _('License of ') + opmC_AppShortName;
0081: end;
0082:
0083: end.
