Source code of file oscpmwin_v0.4.1.723/license.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 license;
0023:   
0024:   interface
0025:   
0026:   uses
0027:     Controls, Forms, StdCtrls, Buttons, Classes, ComCtrls;
0028:   
0029:   type
0030:     Topm_Form_License = class(TForm)
0031:       opm_Memo_License: TMemo;
0032:       opm_BitBtn_LicenseOk: TBitBtn;
0033:       opm_StatusBar_License: TStatusBar;
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, oscpmdata, dataman;
0047:   
0048:   {$R *.dfm}
0049:   {$R license_text.RES}
0050:   
0051:   
0052:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0053:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0054:   procedure Topm_Form_License.FormCreate(Sender: TObject);
0055:   begin
0056:     opm_Memo_License.Lines.Text := FNopm_StringFromResource ('license_body');
0057:     TranslateComponent (self);
0058:   end;
0059:   
0060:   
0061:   
0062:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0063:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0064:   procedure Topm_Form_License.FormShow(Sender: TObject);
0065:   begin
0066:     opm_Form_License.Caption := _('License of ') + opmC_AppShortName;
0067:   end;
0068:   
0069:   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