Importación inicial

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.CFPack@2 b7f3c34e-793e-314d-bf25-335ee4f4fe12

internal/4.1/1/README.1ST

@@ -0,0 +1,77 @@
+
+Ver 4.1 (14 Feb 99)
+
+=====================================================================
+                    Custom Forms Pack (CFPack)
+                  for Delphi 4 and C++Builder 4
+=====================================================================
+
+              THIS SOFTWARE IS DISTRIBUTED "AS IS".  
+
+NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.  YOU USE AT YOUR OWN 
+RISK. THE AUTHOR WILL NOT BE LIABLE FOR DATA LOSS, DAMAGES, LOSS OF 
+PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS SOFTWARE. 
+
+=====================================================================
+Many of the Delphi developers want to see the new custom published 
+properties for their TForm / TDataModule descendants in Object Inspector.   
+
+Custom Forms Pack allows you to register your own TForm / TDataModule 
+descendant in Delphi/C++Builder IDE and use it in designer as the 
+original forms. With CFPack you can easy published your properties and 
+use them in design-time via Object Inspector.
+
+CFPack provides a Custom Form Wizard to facilitate the creation of 
+new basic form-ancestor and their descendant a-la "New Form". You 
+can find it in the Delphi Repository dialog on the "New" page as 
+"Custom Form" item.
+
+
+=====================================================================
+
+More information
+----------------
+
+For checking version of current CFPack file check the time of these 
+files (for example - 4:0 for version 4.0).
+
+Check the latest information about CFPack and other my tools at address:
+  http://www.geocities.com/SiliconValley/Way/9006/
+
+=====================================================================
+
+Notes
+-----
+
+You can use Visual Inheritance IDE feature with your own custom forms
+without any limitations.
+
+=====================================================================
+
+Redistributable files 
+---------------------
+
+You can free use and redeploy CFPack in any your 
+freeware/shareware/commercial software.
+
+Please, refer in your custom forms descriptions that
+  "<...> forms created with CFPack by Sergey Orlik".
+
+=====================================================================
+
+About Author
+------------
+
+  Sergey Orlik
+  product manager
+  Inprise Moscow Office
+
+  e-mail: sorlik@inprise.ru
+  personal home page: 
+    http://www.geocities.com/SiliconValley/Way/9006/index.html
+
+=====================================================================
+Copyright (c) Sergey Orlik, 1997-99
+=====================================================================
+
+  

internal/4.1/1/Source/CFPdef.inc

@@ -0,0 +1,57 @@
+{*******************************************************}
+{                                                       }
+{       Delphi Visual Component Library                 }
+{       Custom Forms Pack (CFPack)                      }
+{                                                       }
+{       Copyright (c) 1997-99 Sergey Orlik              }
+{                                                       }
+{     Written by:                                       }
+{       Sergey Orlik                                    }
+{       product manager                                 }
+{       Russia, C.I.S. and Baltic States (former USSR)  }
+{       Inprise Moscow office                           }
+{       Internet:  sorlik@inprise.ru                    }
+{       www.geocities.com/SiliconValley/Way/9006/       }
+{                                                       }
+{*******************************************************}
+
+//======================================
+// VCL Version Define
+
+{$IFDEF VER125}  // CBuilder 4
+      {$DEFINE VER_VCL4}
+{$ENDIF}
+
+{$IFDEF VER120}  // Delphi 4
+      {$DEFINE VER_VCL4}
+{$ENDIF}
+
+
+{$IFDEF VER110}  // CBuilder 3
+      {$DEFINE VER_VCL35}
+{$ENDIF}
+
+{$IFDEF VER100}  // Delphi 3
+      {$DEFINE VER_VCL3}
+{$ENDIF}
+
+
+//======================================
+// Language&IDE Define
+
+{$IFDEF VER125}  // CBuilder 4
+      {$DEFINE VER_CB}
+{$ENDIF}
+
+{$IFDEF VER120}  // Delphi 4
+      {$DEFINE VER_D}
+{$ENDIF}
+
+{$IFDEF VER110}  // CBuilder 3
+      {$DEFINE VER_CB}
+{$ENDIF}
+
+{$IFDEF VER100}  // Delphi 3
+      {$DEFINE VER_D}
+{$ENDIF}
+

internal/4.1/1/Source/CustFrms.pas

@@ -0,0 +1,112 @@
+{*******************************************************}
+{                                                       }
+{       Delphi Visual Component Library                 }
+{       Custom Forms Pack (CFPack)                      }
+{                                                       }
+{       Copyright (c) 1997-99 Sergey Orlik              }
+{                                                       }
+{     Written by:                                       }
+{       Sergey Orlik                                    }
+{       product manager                                 }
+{       Russia, C.I.S. and Baltic States (former USSR)  }
+{       Inprise Moscow office                           }
+{       Internet:  sorlik@inprise.ru                    }
+{       www.geocities.com/SiliconValley/Way/9006/       }
+{                                                       }
+{*******************************************************}
+{$I CFPDEF.INC}
+
+{$IFDEF VER_CB}
+  {$ObjExportAll On}
+{$ENDIF}
+
+unit CustFrms;
+
+interface
+uses
+  Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  DesignIntf, DesignEditors, TypInfo;
+
+{ RegisterCustomFormClass
+  Registers a new custom form or data module, i.e. descendant of TForm or TDataModule.
+  All forms (data modules) registered with this procedure would be visible in the list
+  of available ancestors in Custom Form Wizard. }
+
+procedure RegisterCustomFormClass(CustFormBaseClass: TComponentClass);
+procedure RegisterCustomFormClassAndModule(CustFormBaseClass: TComponentClass;
+  CustModuleClass: TCustomModuleClass);
+
+procedure GetCustomFormClasses(Proc: TGetStrProc);
+function GetCustomFormUnit(const CustomFormClassName: string): string;
+function GetCustomFormClass(const CustomFormClassName: string): TClass;
+
+implementation
+
+var
+  CustomFormClassList: TStringList = nil;
+
+procedure RegisterCustomFormClass(CustFormBaseClass: TComponentClass);
+begin
+  RegisterCustomFormClassAndModule(CustFormBaseClass, TCustomModule);
+end;
+
+procedure RegisterCustomFormClassAndModule(CustFormBaseClass: TComponentClass;
+  CustModuleClass: TCustomModuleClass);
+begin
+  RegisterCustomModule(CustFormBaseClass, CustModuleClass);
+  CustomFormClassList.AddObject(CustFormBaseClass.ClassName,TObject(CustFormBaseClass));
+end;
+
+procedure GetCustomFormClasses(Proc: TGetStrProc);
+var
+  i : integer;
+begin
+  for i:=0 to CustomFormClassList.Count-1 do
+    Proc(CustomFormClassList[i]);
+end;
+
+function GetCustomFormUnit(const CustomFormClassName: string): string;
+begin
+  Result:=GetTypeData(PTypeInfo(TClass(CustomFormClassList.Objects[CustomFormClassList.IndexOf(CustomFormClassName)]).ClassInfo))^.UnitName;
+end;
+
+function GetCustomFormClass(const CustomFormClassName: string): TClass;
+begin
+  Result:=TClass(CustomFormClassList.Objects[CustomFormClassList.IndexOf(CustomFormClassName)]);
+end;
+
+procedure UnRegisterModuleCustomFormClasses(Module: HMODULE);
+var
+  I: Integer;
+  M: TMemoryBasicInformation;
+begin
+  for I := CustomFormClassList.Count - 1 downto 0 do
+  begin
+    VirtualQuery(Pointer(CustomFormClassList.Objects[I]), M, SizeOf(M));
+    if (Module = 0) or (HMODULE(M.AllocationBase) = Module) then
+      CustomFormClassList.Delete(I);
+  end;
+end;
+
+procedure ModuleUnload(Instance: Longint);
+begin
+  UnRegisterModuleCustomFormClasses(HMODULE(Instance));
+end;
+
+procedure CustomFormClassList_Initialize;
+begin
+  CustomFormClassList.AddObject('TForm',TObject(TForm));
+  CustomFormClassList.AddObject('TDataModule',TObject(TDataModule));
+end;
+
+initialization
+  AddModuleUnloadProc(ModuleUnload);
+  CustomFormClassList:=TStringList.Create;
+  CustomFormClassList_Initialize;
+finalization
+  UnRegisterModuleCustomFormClasses(HInstance);
+  CustomFormClassList.Free;
+  RemoveModuleUnloadProc(ModuleUnload);
+end.
+
+

internal/4.1/1/Source/FrmsExpt.pas

@@ -0,0 +1,478 @@
+{*******************************************************}
+{                                                       }
+{       Delphi Visual Component Library                 }
+{       Custom Forms Pack (CFPack)                      }
+{                                                       }
+{       Copyright (c) 1997-99 Sergey Orlik              }
+{                                                       }
+{     Written by:                                       }
+{       Sergey Orlik                                    }
+{       product manager                                 }
+{       Russia, C.I.S. and Baltic States (former USSR)  }
+{       Inprise Moscow office                           }
+{       Internet:  sorlik@inprise.ru                    }
+{       www.geocities.com/SiliconValley/Way/9006/       }
+{                                                       }
+{*******************************************************}
+{$I CFPDEF.INC}
+{$Warnings OFF}
+
+unit FrmsExpt;
+
+interface
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus,
+  ComCtrls, ExtCtrls, StdCtrls,
+  DesignIntf, ExptIntf, ToolIntf, EditIntf, VirtIntf, TypInfo, 
+  CustFrms;
+
+type
+  { TCustFormExpert }
+
+  TNewFormOption = (nfRegister,nfAddToProject,nfSimple);
+
+  TCustFormExpert = class(TIExpert)
+  private
+    procedure RunExpert(ToolServices: TIToolServices);
+  public
+    function GetName: string; override;
+    function GetComment: string; override;
+    function GetGlyph: HICON; override;
+    function GetStyle: TExpertStyle; override;
+    function GetState: TExpertState; override;
+    function GetIDString: string; override;
+    function GetAuthor: string; override;
+    function GetPage: string; override;
+    procedure Execute; override;
+  end;
+
+  TNewCustFormDlg = class(TForm)
+    Bevel1: TBevel;
+    BtnCancel: TButton;
+    BtnCreate: TButton;
+    Label3: TLabel;
+    EdAncestor: TComboBox;
+    RadioProject: TRadioButton;
+    RadioRegister: TRadioButton;
+    RadioSimple: TRadioButton;
+    procedure FormCreate(Sender: TObject);
+  end;
+
+var
+  NewCustFormDlg: TNewCustFormDlg;
+
+procedure Register;
+
+implementation
+
+{$R *.DFM}
+{$R *.RES}
+
+const
+  CRLF = #13#10;
+  CRLF2 = #13#10#13#10;
+  DefaultModuleFlags = [cmShowSource, cmShowForm, cmMarkModified, cmUnNamed];
+
+resourcestring
+  sCustFormExpertAuthor = 'Sergey Orlik';
+  sCustFormExpertName   = 'Custom Form';
+  sCustFormExpertDesc   = 'Create a new custom form';
+
+{ TCustFormModuleCreator }
+
+type
+{$IFDEF VER_CB}
+  TCustFormModuleCreator = class(TIModuleCreatorEx)
+{$ELSE}
+  TCustFormModuleCreator = class(TIModuleCreator)
+{$ENDIF}
+  private
+    FAncestorIdent : string;
+    FAncestorClass : TClass;
+    FNewFormOption : TNewFormOption;
+    FFormIdent : string;
+    FUnitIdent : string;
+    FFileName  : string;
+  public
+    function Existing: Boolean; override;
+    function GetFileName: string; override;
+    function GetFileSystem: string; override;
+    function GetFormName: string; override;
+    function GetAncestorName: string; override;
+  {$IFNDEF VER100}
+    {$IFDEF VER_CB}
+    function GetIntfName: string; override;
+    function NewIntfSource(const UnitIdent, FormIdent,
+      AncestorIdent: string): string; override;
+    {$ENDIF}
+    function NewModuleSource(const UnitIdent, FormIdent,
+      AncestorIdent: string): string; override;
+  {$ELSE}
+    function NewModuleSource(UnitIdent, FormIdent,
+      AncestorIdent: string): string; override;
+  {$ENDIF}
+    procedure FormCreated(Form: TIFormInterface); override;
+  end;
+
+function TCustFormModuleCreator.Existing:boolean;
+begin
+  Result:=False
+end;
+
+function TCustFormModuleCreator.GetFileName:string;
+begin
+  Result:=FFileName; //'';
+end;
+
+function TCustFormModuleCreator.GetFileSystem:string;
+begin
+  Result:='';
+end;
+
+function TCustFormModuleCreator.GetFormName:string;
+begin
+  Result:=FFormIdent;
+end;
+
+function TCustFormModuleCreator.GetAncestorName:string;
+begin
+  Result:=FAncestorIdent;
+end;
+
+{$IFDEF VER_CB}
+function UnitName2Namespace(const Value:string):string;
+var
+  s1,s2 : string;
+begin
+  s1:=Value[1];
+  s2:=LowerCase(Value);
+  System.Delete(s2,1,1);
+  Result:=UpperCase(s1)+s2;
+end;
+
+function TCustFormModuleCreator.GetIntfName: string;
+begin
+  Result:='';
+end;
+
+function TCustFormModuleCreator.NewIntfSource(const UnitIdent, FormIdent,
+      AncestorIdent: string): string;
+var
+  s : string;
+begin
+  s:=s+'//---------------------------------------------------------------------------'+
+      CRLF+
+      '#ifndef '+UnitIdent+'H'+CRLF+
+      '#define '+UnitIdent+'H'+CRLF+
+      '//---------------------------------------------------------------------------'+
+      CRLF+
+      '#include <Classes.hpp>'+CRLF+
+      '#include <Controls.hpp>'+CRLF+
+      '#include <StdCtrls.hpp>'+CRLF+
+      '#include <Forms.hpp>'+CRLF;
+
+  if (AncestorIdent<>'Form') and  (AncestorIdent<>'DataModule') then
+    s:=s+
+     '#include "'+GetCustomFormUnit(FAncestorClass.ClassName)+'.h"'+CRLF;
+
+  s:=s+'//---------------------------------------------------------------------------'+
+      CRLF+
+      'class T'+FormIdent+' : public '+FAncestorClass.ClassName+CRLF+
+      '{'+CRLF+
+      '__published:'+CRLF+
+      'private:'+CRLF+
+      'protected:'+CRLF+
+      'public:'+CRLF+
+      '        __fastcall T'+FormIdent+'(TComponent* Owner);'+CRLF+
+      '};'+CRLF;
+
+  if FNewFormOption<>nfRegister then
+   s:=s+
+      '//---------------------------------------------------------------------------'+
+      CRLF+
+      'extern PACKAGE T'+FormIdent+' *'+FormIdent+';'+CRLF;
+
+   s:=s+
+      '//---------------------------------------------------------------------------'+
+      CRLF+
+      '#endif';
+  Result:=s;
+end;
+
+function TCustFormModuleCreator.NewModuleSource(const UnitIdent, FormIdent,
+      AncestorIdent: string): string;
+var
+  s : string;
+begin
+
+  s:='//---------------------------------------------------------------------------'+
+     CRLF+
+     '#include <vcl.h>'+CRLF;
+
+  if FNewFormOption=nfRegister then
+   s:=s+
+     '#include "CustFrms.hpp"'+CRLF;
+
+  s:=s+
+     '#pragma hdrstop'+CRLF2+
+
+     '#include "'+UnitIdent+'.h"'+CRLF+
+     '//---------------------------------------------------------------------------'+
+     CRLF+
+     '#pragma package(smart_init)'+CRLF;
+
+  if (AncestorIdent<>'Form') and  (AncestorIdent<>'DataModule') then
+    s:=s+
+     '#pragma link "'+GetCustomFormUnit(FAncestorClass.ClassName)+'"'+CRLF;
+
+  if FNewFormOption<>nfRegister then
+    s:=s+
+     '#pragma resource "*.dfm"'+CRLF+
+     'T'+FormIdent+' *'+FormIdent+';'+CRLF;
+
+  s:=s+
+     '//---------------------------------------------------------------------------'+
+     CRLF+
+     '__fastcall T'+FormIdent+'::T'+FormIdent+'(TComponent* Owner)'+CRLF+
+     '        : '+FAncestorClass.ClassName+'(Owner)'+CRLF+
+     '{'+CRLF+
+     '}'+CRLF+
+     '//---------------------------------------------------------------------------'+
+     CRLF;
+
+  if FNewFormOption=nfRegister then
+    s:=s+
+     'namespace '+UnitName2Namespace(UnitIdent)+CRLF+
+     '{'+CRLF+
+     '        void __fastcall PACKAGE Register()'+CRLF+
+     '        {'+CRLF+
+     '                 RegisterCustomFormClass(__classid(T'+FormIdent+'));'+CRLF+
+     '        }'+CRLF+
+     '}'+CRLF+
+     '//---------------------------------------------------------------------------'+
+     CRLF;
+
+  Result:=s;
+end;
+
+{$ELSE} 
+  {$IFDEF VER100}
+function TCustFormModuleCreator.NewModuleSource(UnitIdent,FormIdent,AncestorIdent:string):string;
+  {$ELSE}
+function TCustFormModuleCreator.NewModuleSource(const UnitIdent,FormIdent,AncestorIdent:string):string;
+  {$ENDIF}
+var
+  s : string;
+begin
+  s:='unit '+FUnitIdent+';'+CRLF2+
+      'interface'+CRLF2+
+      'uses'+CRLF+
+      '  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs';
+
+  if (FAncestorIdent<>'Form') and (FAncestorIdent<>'DataModule') then
+    s:=s+','+CRLF+
+      '  '+GetCustomFormUnit(FAncestorClass.ClassName);
+
+  if FNewFormOption=nfRegister then
+    s:=s+','+
+      ' CustFrms';
+
+    s:=s+';'+CRLF2+
+      'type'+CRLF+
+      '  T'+FFormIdent+' = class('+FAncestorClass.ClassName+')'+CRLF+
+      '  private'+CRLF+
+      '  protected'+CRLF+
+      '  public'+CRLF+
+      '  published'+CRLF+
+      '  end;'+CRLF2;
+
+  if FNewFormOption=nfRegister then
+    s:=s+
+      'procedure Register;'+CRLF2
+  else
+    s:=s+
+      'var'+CRLF+
+      '  '+FFormIdent+' : T'+FFormIdent+';'+CRLF2;
+
+  s:=s+
+      'implementation'+CRLF2;
+
+  if FNewFormOption=nfRegister then
+    s:=s+
+      'procedure Register;'+CRLF+
+      'begin'+CRLF+
+      '  RegisterCustomFormClass(T'+FFormIdent+');'+CRLF+
+      'end;'+CRLF2
+  else
+    s:=s+
+      '{$R *.DFM}'+CRLF2;
+
+  s:=s+
+      'end.';
+
+  Result:=s;
+end;
+{$ENDIF}
+
+procedure TCustFormModuleCreator.FormCreated(Form:TIFormInterface);
+begin
+end;
+
+{ HandleException }
+
+procedure HandleException;
+begin
+  ToolServices.RaiseException(ReleaseException);
+end;
+
+{ TCustFormExpert }
+
+function TCustFormExpert.GetName: string;
+begin
+  try
+    Result := sCustFormExpertName;
+  except
+    HandleException;
+  end;
+end;
+
+function TCustFormExpert.GetComment: string;
+begin
+  try
+    Result := sCustFormExpertDesc;
+  except
+    HandleException;
+  end;
+end;
+
+function TCustFormExpert.GetGlyph: HICON;
+begin
+  try
+    Result := LoadIcon(HInstance, 'NEWCUSTFORM');
+  except
+    HandleException;
+  end;
+end;
+
+function TCustFormExpert.GetStyle: TExpertStyle;
+begin
+  try
+    Result := esForm;
+  except
+    HandleException;
+  end;
+end;
+
+function TCustFormExpert.GetState: TExpertState;
+begin
+  try
+    Result := [esEnabled];
+  except
+    HandleException;
+  end;
+end;
+
+function TCustFormExpert.GetIDString: string;
+begin
+  try
+    Result := 'Borland.'+sCustFormExpertName;
+  except
+    HandleException;
+  end;
+end;
+
+function TCustFormExpert.GetAuthor: string;
+begin
+  try
+    Result := sCustFormExpertAuthor;
+  except
+    HandleException;
+  end;
+end;
+
+function TCustFormExpert.GetPage: string;
+begin
+  try
+    Result := 'New';
+  except
+    HandleException;
+  end;
+end;
+
+procedure TCustFormExpert.Execute;
+begin
+  try
+    RunExpert(ToolServices);
+  except
+    HandleException;
+  end;
+end;
+
+procedure TCustFormExpert.RunExpert(ToolServices: TIToolServices);
+var
+  ModuleFlags : TCreateModuleFlags;
+  IModuleCreator : TCustFormModuleCreator;
+  IModule : TIModuleInterface;
+  s : string;
+begin
+  if ToolServices = nil then Exit;
+  NewCustFormDlg:=TNewCustFormDlg.Create(Application);
+  if NewCustFormDlg.ShowModal=mrCancel then
+  begin
+    NewCustFormDlg.Free;
+    Exit;
+  end;
+  IModuleCreator:=TCustFormModuleCreator.Create;
+  if NewCustFormDlg.RadioRegister.Checked then
+    IModuleCreator.FNewFormOption:=nfRegister
+  else
+    if NewCustFormDlg.RadioProject.Checked then
+      IModuleCreator.FNewFormOption:=nfAddToProject
+    else
+      IModuleCreator.FNewFormOption:=nfSimple;
+  s:=NewCustFormDlg.EdAncestor.Text;
+  if s<>EmptyStr then
+    System.Delete(s,1,1);
+  IModuleCreator.FAncestorIdent:=s;
+  IModuleCreator.FAncestorClass:=GetCustomFormClass(NewCustFormDlg.EdAncestor.Items[NewCustFormDlg.EdAncestor.ItemIndex]);
+  ToolServices.GetNewModuleAndClassName(IModuleCreator.FAncestorIdent,
+    IModuleCreator.FUnitIdent,IModuleCreator.FFormIdent,IModuleCreator.FFileName);
+  ModuleFlags:=DefaultModuleFlags;
+  if IModuleCreator.FNewFormOption=nfAddToProject then
+    ModuleFlags:=ModuleFlags+[cmAddToProject];
+  try
+{$IFDEF VER_CB}
+    IModule:=ToolServices.ModuleCreateEx(IModuleCreator,ModuleFlags);
+{$ELSE}
+    IModule:=ToolServices.ModuleCreate(IModuleCreator,ModuleFlags);
+{$ENDIF}
+    IModule.Free;
+  finally
+    IModuleCreator.Free;
+    NewCustFormDlg.Free;
+  end;
+end;
+
+{ TNewCustFormDlg }
+
+procedure TNewCustFormDlg.FormCreate(Sender: TObject);
+type
+  TGetStrFunc = function(const Value: string): Integer of object;
+var
+  Func : TGetStrFunc;
+begin
+  Func:=EdAncestor.Items.Add;
+  GetCustomFormClasses(TGetStrProc(Func));
+  EdAncestor.ItemIndex:=0;
+end;
+
+{ Register }
+
+procedure Register;
+begin
+  RegisterLibraryExpert(TCustFormExpert.Create);
+end;
+
+end.
+
+

internal/4.1/1/Source/cfpack.bpk

@@ -0,0 +1,194 @@
+# ---------------------------------------------------------------------------
+!if !$d(BCB)
+BCB = $(MAKEDIR)\..
+!endif
+
+# ---------------------------------------------------------------------------
+# IDE SECTION
+# ---------------------------------------------------------------------------
+# The following section of the project makefile is managed by the BCB IDE.
+# It is recommended to use the IDE to change any of the values in this
+# section.
+# ---------------------------------------------------------------------------
+
+VERSION = BCB.04.04
+# ---------------------------------------------------------------------------
+PROJECT = cfpack.bpl
+OBJFILES = CustFrms.obj FrmsExpt.obj cfpack.obj
+RESFILES = cfpack.res
+RESDEPEN = $(RESFILES) FrmsExpt.dfm
+LIBFILES =
+IDLFILES =
+IDLGENFILES =
+LIBRARIES = testpkg.lib dss40.lib tee40.lib teedb40.lib teeui40.lib qrpt40.lib inet40.lib inetdb40.lib nmfast40.lib ibsmp40.lib \
+  vcldbx40.lib vcldb40.lib vclmid40.lib vcljpg40.lib vclx40.lib
+SPARELIBS = vcl40.lib vclx40.lib vcljpg40.lib vclmid40.lib vcldb40.lib vcldbx40.lib ibsmp40.lib nmfast40.lib inetdb40.lib \
+  inet40.lib qrpt40.lib teeui40.lib teedb40.lib tee40.lib dss40.lib testpkg.lib
+PACKAGES = vcl40.bpi
+DEFFILE =
+# ---------------------------------------------------------------------------
+PATHCPP = .;
+PATHASM = .;
+PATHPAS = .;
+PATHRC = .;
+DEBUGLIBPATH = $(BCB)\lib\debug
+RELEASELIBPATH = $(BCB)\lib\release
+USERDEFINES =
+SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
+# ---------------------------------------------------------------------------
+CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl -Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par -w-inl \
+  -Vx -tWM -D$(SYSDEFINES);$(USERDEFINES)
+IDLCFLAGS = -I$(BCB)\include -I$(BCB)\include\vcl -src_suffixcpp
+PFLAGS = -U$(BCB)\projects\lib;$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -I$(BCB)\include;$(BCB)\include\vcl -$YD -$W -$O- -v \
+  -JPHNE -M
+RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl
+AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
+LFLAGS = -L$(BCB)\projects\lib;$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -D"Custom Forms Pack (CFPack) Tools" -aa -Tpp -Gpd -x \
+  -Gn -Gl -Gi -v
+# ---------------------------------------------------------------------------
+ALLOBJ = c0pkg32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
+ALLRES = $(RESFILES)
+ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
+# ---------------------------------------------------------------------------
+!ifdef IDEOPTIONS
+
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=4
+MinorVer=1
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1049
+CodePage=1251
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=4.1.0.0
+InternalName=
+LegalCopyright=Sergey Orlik, Moscow, 1997-1999
+LegalTrademarks=
+OriginalFilename=
+ProductName=Custom Forms Pack (CFPack)
+ProductVersion=4.0.0.0
+Comments=
+
+[Excluded Packages]
+$(BCB)\Bin\bcbsmp40.bpl=Borland C++ Sample Components
+
+[Debugging]
+DebugSourceDirs=$(BCB)\source\vcl
+
+[Parameters]
+RunParams=
+HostApplication=
+RemoteHost=
+RemotePath=
+RemoteDebug=0
+
+[Compiler]
+InMemoryExe=0
+ShowInfoMsgs=0
+
+[CORBA]
+AddServerUnit=1
+AddClientUnit=1
+PrecompiledHeaders=1
+
+!endif
+
+# ---------------------------------------------------------------------------
+# MAKE SECTION
+# ---------------------------------------------------------------------------
+# This section of the project file is not used by the BCB IDE.  It is for
+# the benefit of building from the command-line using the MAKE utility.
+# ---------------------------------------------------------------------------
+
+.autodepend
+# ---------------------------------------------------------------------------
+!if !$d(BCC32)
+BCC32 = bcc32
+!endif
+
+!if !$d(CPP32)
+CPP32 = cpp32
+!endif
+
+!if !$d(DCC32)
+DCC32 = dcc32
+!endif
+
+!if !$d(TASM32)
+TASM32 = tasm32
+!endif
+
+!if !$d(LINKER)
+LINKER = ilink32
+!endif
+
+!if !$d(BRCC32)
+BRCC32 = brcc32
+!endif
+
+!if !$d(IDL2CPP)
+IDL2CPP = idl2cpp
+!endif
+
+# ---------------------------------------------------------------------------
+!if $d(PATHCPP)
+.PATH.CPP = $(PATHCPP)
+.PATH.C   = $(PATHCPP)
+!endif
+
+!if $d(PATHPAS)
+.PATH.PAS = $(PATHPAS)
+!endif
+
+!if $d(PATHASM)
+.PATH.ASM = $(PATHASM)
+!endif
+
+!if $d(PATHRC)
+.PATH.RC  = $(PATHRC)
+!endif
+# ---------------------------------------------------------------------------
+$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
+    $(BCB)\BIN\$(LINKER) @&&!
+    $(LFLAGS) +
+    $(ALLOBJ), +
+    $(PROJECT),, +
+    $(ALLLIB), +
+    $(DEFFILE), +
+    $(ALLRES)
+!
+# ---------------------------------------------------------------------------
+.pas.hpp:
+    $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
+
+.pas.obj:
+    $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
+
+.cpp.obj:
+    $(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
+
+.c.obj:
+    $(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
+
+.c.i:
+    $(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
+
+.cpp.i:
+    $(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
+
+.asm.obj:
+    $(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
+
+.rc.res:
+    $(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
+# ---------------------------------------------------------------------------

internal/4.1/1/Source/cfpack.cfg

@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J+
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-GD
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N"..\Lib\D7"
+-LE"c:\archivos de programa\borland\delphi7\Projects\Bpl"
+-LN"c:\archivos de programa\borland\delphi7\Projects\Bpl"
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

internal/4.1/1/Source/cfpack.cpp

@@ -0,0 +1,17 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+USERES("cfpack.res");
+USEPACKAGE("vcl40.bpi");
+USEUNIT("CustFrms.pas");
+USEFORMNS("FrmsExpt.pas", Frmsexpt, NewCustFormDlg);
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+//---------------------------------------------------------------------------
+//   Package source.
+//---------------------------------------------------------------------------
+int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
+{
+        return 1;
+}
+//---------------------------------------------------------------------------

internal/4.1/1/Source/cfpack.dof

@@ -0,0 +1,153 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=1
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Custom Forms Pack (CFPack) Tools
+[Directories]
+OutputDir=
+UnitOutputDir=..\Lib\D7
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;CEToolsPkgd7;FR7;FRIBX7;Hydra_Core_D7;Hydra_RO_D7;fqb70;frx7;frxADO7;frxBDE7;frxDB7;frxDBX7;frxe7;frxIBX7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;DataAbstract_Core_D7;DataAbstract_IDE_D7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;cxEditorsVCLD7;cxLibraryVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;dxPSCoreD7;PluginSDK_D7R
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=3082
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\DJclVcl70.bpl=JEDI Code Library VCL package for Delphi 7
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\DJcl70.bpl=JEDI Code Library RTL package for Delphi 7
+C:\WINDOWS\system32\fqb70.bpl=FastQueryBuilder 1.01
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System (core 3.1) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
+C:\Archivos de programa\RemObjects Software\Hydra\Dcu\D7\Hydra_Core_D7.bpl=RemObjects Hydra - Core Library
+C:\Archivos de programa\RemObjects Software\Hydra\Dcu\D7\Hydra_IDE_D7.bpl=RemObjects Hydra - IDE Integration
+C:\Archivos de programa\RemObjects Software\Hydra\Dcu\D7\Hydra_RO_D7.bpl=RemObjects Hydra - RemObjects SDK Integration Library
+c:\archivos de programa\borland\delphi7\Projects\Bpl\RodaxFrameD7.bpl=Frames Acana (D7)
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=..\Lib\D7

internal/4.1/1/Source/cfpack.dpk

@@ -0,0 +1,40 @@
+package cfpack;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Custom Forms Pack (CFPack) Tools'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  vcl,
+  designide,
+  rtl,
+  vclactnband,
+  vclx;
+
+contains
+  CustFrms in 'CustFrms.pas',
+  FrmsExpt in 'FrmsExpt.pas' {NewCustFormDlg};
+
+end.

internal/4.1/1/Source/cfpack.drc

@@ -0,0 +1,20 @@
+/* VER150
+  Generated by the Borland Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+#define FrmsExpt_sCustFormExpertAuthor 65520
+#define FrmsExpt_sCustFormExpertName 65521
+#define FrmsExpt_sCustFormExpertDesc 65522
+STRINGTABLE
+BEGIN
+	FrmsExpt_sCustFormExpertAuthor,	"Sergey Orlik"
+	FrmsExpt_sCustFormExpertName,	"Custom Form"
+	FrmsExpt_sCustFormExpertDesc,	"Create a new custom form"
+END
+

internal/4.1/1/Source/cfpack_D2007.drc

@@ -0,0 +1,24 @@
+/* VER185
+  Generated by the CodeGear Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+#define FrmsExpt_sCustFormExpertAuthor 65520
+#define FrmsExpt_sCustFormExpertName 65521
+#define FrmsExpt_sCustFormExpertDesc 65522
+STRINGTABLE
+BEGIN
+	FrmsExpt_sCustFormExpertAuthor,	"Sergey Orlik"
+	FrmsExpt_sCustFormExpertName,	"Custom Form"
+	FrmsExpt_sCustFormExpertDesc,	"Create a new custom form"
+END
+
+/* T:\Componentes\CFPack\Source\FrmsExpt.DFM */
+/* T:\Componentes\CFPack\Source\FrmsExpt.RES */
+/* T:\Componentes\CFPack\Source\cfpack_D2007.res */
+/* T:\Componentes\CFPack\Source\cfpack_D2007.drf */

internal/4.1/1/Source/cfpack_d10.bdsproj

@@ -0,0 +1,492 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{43864F6A-F909-4CEE-AF9E-BD13EE1C4AD5}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">cfpack_d10.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">1</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">3</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">Custom Forms Pack (CFPack) Tools for Delphi 10</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">..\Lib\D10</Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath">..\Lib\D10</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">3082</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=1
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=0
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=1
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

internal/4.1/1/Source/cfpack_d10.cfg

@@ -0,0 +1,45 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J+
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-GD
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0"..\Lib\D10"
+-LE"C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl"
+-LN"C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl"
+-U"..\Lib\D10"
+-O"..\Lib\D10"
+-I"..\Lib\D10"
+-R"..\Lib\D10"
+-Z
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

internal/4.1/1/Source/cfpack_d10.dpk

@@ -0,0 +1,40 @@
+package cfpack_d10;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Custom Forms Pack (CFPack) Tools for Delphi 10'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  vcl,
+  designide,
+  rtl,
+  vclactnband,
+  vclx;
+
+contains
+  CustFrms in 'CustFrms.pas',
+  FrmsExpt in 'FrmsExpt.pas' {NewCustFormDlg};
+
+end.

internal/4.1/1/Source/cfpack_d10.drc

@@ -0,0 +1,20 @@
+/* VER180
+  Generated by the Borland Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+#define FrmsExpt_sCustFormExpertAuthor 65520
+#define FrmsExpt_sCustFormExpertName 65521
+#define FrmsExpt_sCustFormExpertDesc 65522
+STRINGTABLE
+BEGIN
+	FrmsExpt_sCustFormExpertAuthor,	"Sergey Orlik"
+	FrmsExpt_sCustFormExpertName,	"Custom Form"
+	FrmsExpt_sCustFormExpertDesc,	"Create a new custom form"
+END
+

internal/4.1/1/Source/cfpack_d11.dpk

@@ -0,0 +1,41 @@
+package cfpack_d11;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DESCRIPTION 'Custom Forms Pack (CFPack) Tools for Delphi 2007'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+{$DEFINE RELEASE}
+
+requires
+  vcl,
+  designide,
+  rtl,
+  vclactnband,
+  vclx;
+
+contains
+  CustFrms in 'CustFrms.pas',
+  FrmsExpt in 'FrmsExpt.pas' {NewCustFormDlg};
+
+end.