First commit (1999-02-04)

AcercaDe.cpp

@@ -0,0 +1,63 @@
+//---------------------------------------------------------------------------
+#include <io.h>
+#include <vcl.h>
+#pragma hdrstop
+
+#include "AcercaDe.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+
+#define CheckFile "c:\\system.fst"
+
+TAbout *About;
+//---------------------------------------------------------------------------
+__fastcall TAbout::TAbout(TComponent* Owner)
+    : TForm(Owner)
+{
+  // Check for valid copy
+  /*
+  if ( access( CheckFile, 0) != 0 )
+  {
+   Application->HintPause = 0;
+   Application->Terminate();
+  }
+  */
+
+    Animate1 -> FileName = "systm\\About.avi";
+    Animate1 -> Visible = true;
+    Animate1 -> Active = true;
+}
+//---------------------------------------------------------------------------
+void __fastcall TAbout::FormShow(TObject *Sender)
+{
+  if ( (Registro -> Caption == "VERSION DEMO") || (Registro -> Caption == "VERSION TRIAL") )
+     HowTo -> Visible = true;
+  else
+     HowTo -> Visible = false;
+}
+//---------------------------------------------------------------------------
+
+
+
+
+void __fastcall TAbout::Label6Click(TObject *Sender)
+{
+  char zFileName[1024], zParams[80], zDir[80];
+  AnsiString URL = "mailto:jd@infdj.com";
+  ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, URL),
+                         StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);
+
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TAbout::Label5Click(TObject *Sender)
+{
+  char zFileName[1024], zParams[80], zDir[80];
+  AnsiString URL = "http://jd.infdj.com";
+  ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, URL),
+                         StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);
+
+}
+//---------------------------------------------------------------------------
+

AcercaDe.h

@@ -0,0 +1,60 @@
+//---------------------------------------------------------------------------
+#ifndef AcercaDeH
+#define AcercaDeH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <ComCtrls.hpp>
+#include <ExtCtrls.hpp>
+#include <Buttons.hpp>
+#include <Graphics.hpp>
+//---------------------------------------------------------------------------
+class TAbout : public TForm
+{
+__published:	// IDE-managed Components
+    TAnimate *Animate1;
+    TBevel *Bevel1;
+    TShape *Shape1;
+    TLabel *Label1;
+    TLabel *Label2;
+    TLabel *Label3;
+    TBevel *Bevel2;
+    TLabel *Label4;
+    TLabel *Label5;
+    TLabel *Label6;
+    TLabel *Nombre;
+    TLabel *Descripcion;
+    TImage *Icono;
+    TBevel *Bevel3;
+    TBevel *Bevel4;
+    TBevel *Bevel5;
+    TLabel *Label9;
+    TLabel *Registro;
+    TBitBtn *HowTo;
+    TScrollBox *ScrollBox1;
+    TLabel *Label11;
+    TImage *Image2;
+    TLabel *Label12;
+    TLabel *Label13;
+    TBevel *Bevel6;
+    TLabel *Label14;
+    TBevel *Bevel7;
+    TBevel *Bevel8;
+    TBevel *Bevel9;
+    TBevel *Bevel10;
+    TLabel *Label15;
+    TLabel *Label16;
+    void __fastcall FormShow(TObject *Sender);
+        void __fastcall Label6Click(TObject *Sender);
+        void __fastcall Label5Click(TObject *Sender);
+    
+private:	// User declarations
+public:		// User declarations
+    __fastcall TAbout(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TAbout *About;
+//---------------------------------------------------------------------------
+#endif

AcercaDeEXE.bpr

@@ -0,0 +1,118 @@
+<?xml version='1.0' encoding='utf-8' ?>
+<!-- C++Builder XML Project -->
+<PROJECT>
+  <MACROS>
+    <VERSION value="BCB.05.03"/>
+    <PROJECT value="AcercaDeEXE.exe"/>
+    <OBJFILES value="AcercaDeEXE.obj AcercaDe.obj"/>
+    <RESFILES value="AcercaDeEXE.res"/>
+    <IDLFILES value=""/>
+    <IDLGENFILES value=""/>
+    <DEFFILE value=""/>
+    <RESDEPEN value="$(RESFILES) AcercaDe.dfm"/>
+    <LIBFILES value=""/>
+    <LIBRARIES value="qrpt50.lib vcldbx50.lib vclbde50.lib vcldb50.lib vclx50.lib vcl50.lib"/>
+    <SPARELIBS value="vcl50.lib vclx50.lib vcldb50.lib vclbde50.lib vcldbx50.lib qrpt50.lib"/>
+    <PACKAGES value="vclx50.bpi vcl50.bpi vcldb50.bpi vclbde50.bpi vcldbx50.bpi bcbsmp50.bpi 
+      dclocx50.bpi qrpt50.bpi teeui50.bpi teedb50.bpi tee50.bpi ibsmp50.bpi 
+      nmfast50.bpi inetdb50.bpi inet50.bpi"/>
+    <PATHCPP value=".;"/>
+    <PATHPAS value=".;"/>
+    <PATHRC value=".;"/>
+    <PATHASM value=".;"/>
+    <DEBUGLIBPATH value="$(BCB)\lib\debug"/>
+    <RELEASELIBPATH value="$(BCB)\lib\release"/>
+    <LINKER value="ilink32"/>
+    <USERDEFINES value=""/>
+    <SYSDEFINES value="NO_STRICT"/>
+    <MAINSOURCE value="AcercaDeEXE.cpp"/>
+    <INCLUDEPATH value="&quot;..\jd soft\jd&quot;;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl"/>
+    <LIBPATH value="&quot;..\jd soft\jd&quot;;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib"/>
+    <WARNINGS value="-w-par -w-8027 -w-8026"/>
+    <WARNOPTSTR value=""/>
+  </MACROS>
+  <OPTIONS>
+    <IDLCFLAGS value="-src_suffix cpp -I&quot;..\jd soft\jd&quot; -I$(BCB)\bin -I$(BCB)\objrepos 
+      -I$(BCB)\projects -I$(BCB)\include -I$(BCB)\include\vcl -boa"/>
+    <CFLAG1 value="-Od -H=c:\PROGRAM\CBUILDER\CBUILD~1\lib\vcld.csm -Hc -Vx -Ve -X- -r- -a8 
+      -b- -k -y -v -vi- -c -tWM"/>
+    <CFLAG2 value=""/>
+    <CFLAG3 value=""/>
+    <PFLAGS value="-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE 
+      -$YD -$W -$O- -v -JPHNV -M -JPHNE"/>
+    <RFLAGS value=""/>
+    <AFLAGS value="/mx /w2 /zd"/>
+    <LFLAGS value="-D&quot;&quot; -aa -Tpe -x -v"/>
+    <IFLAGS value=""/>
+  </OPTIONS>
+  <LINKER>
+    <ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
+    <ALLRES value="$(RESFILES)"/>
+    <ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
+  </LINKER>
+  <IDEOPTIONS>
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=1
+MajorVer=1
+MinorVer=0
+Release=0
+Build=52
+Debug=1
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=3082
+CodePage=1252
+
+[Version Info Keys]
+CompanyName=JD soft.
+FileDescription=Gestión integral de múltiples empresas,\n con  múltiples terminales.
+FileVersion=1.0.0.52
+InternalName=Tpv for Windows
+LegalCopyright=Copyright (C) JD soft. 1990-1998
+LegalTrademarks=
+OriginalFilename=Tpv
+ProductName=Tpv for Win98
+ProductVersion=1.0.0.0
+Comments=e-mail: Jose-David.Guillen@cs.us.es
+
+[HistoryLists\hlIncludePath]
+Count=1
+Item0=..\jd soft\jd;l:\programación (-cbuilder-)\jd soft\jd;l:\cbuilder\cbuilder\objrepos;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\objrepos;$(BCB)\bin;$(BCB)\objrepos;j:\cbuilder\jd soft;j:\progwin95\jd soft;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl
+
+[HistoryLists\hlLibraryPath]
+Count=1
+Item0=..\jd soft\jd;l:\programación (-cbuilder-)\jd soft\jd;l:\cbuilder\cbuilder\objrepos;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\objrepos;$(BCB)\bin;$(BCB)\objrepos;j:\cbuilder\jd soft;j:\progwin95\jd soft;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib
+
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE
+
+[Debugging]
+DebugSourceDirs=
+
+[Parameters]
+RunParams=
+HostApplication=
+RemoteHost=
+RemotePath=
+RemoteDebug=0
+
+[Compiler]
+ShowInfoMsgs=1
+LinkDebugVcl=1
+LinkCGLIB=0
+
+[CORBA]
+AddServerUnit=1
+AddClientUnit=1
+PrecompiledHeaders=1
+
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+  </IDEOPTIONS>
+</PROJECT>

AcercaDeEXE.cpp

@@ -0,0 +1,21 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+USERES("AcercaDeEXE.res");
+USEFORM("AcercaDe.cpp", About);
+//---------------------------------------------------------------------------
+WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
+{
+    try
+    {
+        Application->Initialize();
+        Application->CreateForm(__classid(TAbout), &About);
+        Application->Run();
+    }
+    catch (Exception &exception)
+    {
+        Application->ShowException(&exception);
+    }
+    return 0;
+}
+//---------------------------------------------------------------------------