diff --git a/internal/4.1/1/Lib/D10/CustFrms.dcu b/internal/4.1/1/Lib/D10/CustFrms.dcu new file mode 100644 index 0000000..579263f Binary files /dev/null and b/internal/4.1/1/Lib/D10/CustFrms.dcu differ diff --git a/internal/4.1/1/Lib/D10/FrmsExpt.dcu b/internal/4.1/1/Lib/D10/FrmsExpt.dcu new file mode 100644 index 0000000..46f1fb9 Binary files /dev/null and b/internal/4.1/1/Lib/D10/FrmsExpt.dcu differ diff --git a/internal/4.1/1/Lib/D10/cfpack_d10.dcu b/internal/4.1/1/Lib/D10/cfpack_d10.dcu new file mode 100644 index 0000000..12d7e52 Binary files /dev/null and b/internal/4.1/1/Lib/D10/cfpack_d10.dcu differ diff --git a/internal/4.1/1/Lib/D11/CustFrms.dcu b/internal/4.1/1/Lib/D11/CustFrms.dcu new file mode 100644 index 0000000..7d25625 Binary files /dev/null and b/internal/4.1/1/Lib/D11/CustFrms.dcu differ diff --git a/internal/4.1/1/Lib/D11/FrmsExpt.dcu b/internal/4.1/1/Lib/D11/FrmsExpt.dcu new file mode 100644 index 0000000..314ff4c Binary files /dev/null and b/internal/4.1/1/Lib/D11/FrmsExpt.dcu differ diff --git a/internal/4.1/1/Lib/D11/cfpack_d11.bpl b/internal/4.1/1/Lib/D11/cfpack_d11.bpl new file mode 100644 index 0000000..dc04ec5 Binary files /dev/null and b/internal/4.1/1/Lib/D11/cfpack_d11.bpl differ diff --git a/internal/4.1/1/Lib/D11/cfpack_d11.dcp b/internal/4.1/1/Lib/D11/cfpack_d11.dcp new file mode 100644 index 0000000..be9e2df Binary files /dev/null and b/internal/4.1/1/Lib/D11/cfpack_d11.dcp differ diff --git a/internal/4.1/1/Lib/D11/cfpack_d11.dcu b/internal/4.1/1/Lib/D11/cfpack_d11.dcu new file mode 100644 index 0000000..590937d Binary files /dev/null and b/internal/4.1/1/Lib/D11/cfpack_d11.dcu differ diff --git a/internal/4.1/1/Lib/D7/CustFrms.dcu b/internal/4.1/1/Lib/D7/CustFrms.dcu new file mode 100644 index 0000000..456f151 Binary files /dev/null and b/internal/4.1/1/Lib/D7/CustFrms.dcu differ diff --git a/internal/4.1/1/Lib/D7/FrmsExpt.dcu b/internal/4.1/1/Lib/D7/FrmsExpt.dcu new file mode 100644 index 0000000..7f7d5e6 Binary files /dev/null and b/internal/4.1/1/Lib/D7/FrmsExpt.dcu differ diff --git a/internal/4.1/1/Lib/D7/cfpack.dcu b/internal/4.1/1/Lib/D7/cfpack.dcu new file mode 100644 index 0000000..7f7432a Binary files /dev/null and b/internal/4.1/1/Lib/D7/cfpack.dcu differ diff --git a/internal/4.1/1/README.1ST b/internal/4.1/1/README.1ST new file mode 100644 index 0000000..b25aef3 --- /dev/null +++ b/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 +===================================================================== + + diff --git a/internal/4.1/1/Source/CFPdef.inc b/internal/4.1/1/Source/CFPdef.inc new file mode 100644 index 0000000..c916eb5 --- /dev/null +++ b/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} + diff --git a/internal/4.1/1/Source/CustFrms.pas b/internal/4.1/1/Source/CustFrms.pas new file mode 100644 index 0000000..f2f5e7f --- /dev/null +++ b/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. + + diff --git a/internal/4.1/1/Source/FrmsExpt.dfm b/internal/4.1/1/Source/FrmsExpt.dfm new file mode 100644 index 0000000..a229270 Binary files /dev/null and b/internal/4.1/1/Source/FrmsExpt.dfm differ diff --git a/internal/4.1/1/Source/FrmsExpt.pas b/internal/4.1/1/Source/FrmsExpt.pas new file mode 100644 index 0000000..599298c --- /dev/null +++ b/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 '+CRLF+ + '#include '+CRLF+ + '#include '+CRLF+ + '#include '+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 '+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. + + diff --git a/internal/4.1/1/Source/FrmsExpt.res b/internal/4.1/1/Source/FrmsExpt.res new file mode 100644 index 0000000..2bc81bf Binary files /dev/null and b/internal/4.1/1/Source/FrmsExpt.res differ diff --git a/internal/4.1/1/Source/cfpack.bpk b/internal/4.1/1/Source/cfpack.bpk new file mode 100644 index 0000000..063e0b3 --- /dev/null +++ b/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$@ $< +# --------------------------------------------------------------------------- diff --git a/internal/4.1/1/Source/cfpack.cfg b/internal/4.1/1/Source/cfpack.cfg new file mode 100644 index 0000000..47d4a1b --- /dev/null +++ b/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 diff --git a/internal/4.1/1/Source/cfpack.cpp b/internal/4.1/1/Source/cfpack.cpp new file mode 100644 index 0000000..156a9a5 --- /dev/null +++ b/internal/4.1/1/Source/cfpack.cpp @@ -0,0 +1,17 @@ +//--------------------------------------------------------------------------- +#include +#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; +} +//--------------------------------------------------------------------------- diff --git a/internal/4.1/1/Source/cfpack.dof b/internal/4.1/1/Source/cfpack.dof new file mode 100644 index 0000000..09c2823 --- /dev/null +++ b/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 diff --git a/internal/4.1/1/Source/cfpack.dpk b/internal/4.1/1/Source/cfpack.dpk new file mode 100644 index 0000000..635d420 --- /dev/null +++ b/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. diff --git a/internal/4.1/1/Source/cfpack.drc b/internal/4.1/1/Source/cfpack.drc new file mode 100644 index 0000000..0605b43 --- /dev/null +++ b/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 + diff --git a/internal/4.1/1/Source/cfpack.res b/internal/4.1/1/Source/cfpack.res new file mode 100644 index 0000000..ec5f233 Binary files /dev/null and b/internal/4.1/1/Source/cfpack.res differ diff --git a/internal/4.1/1/Source/cfpack_D2007.drc b/internal/4.1/1/Source/cfpack_D2007.drc new file mode 100644 index 0000000..3421087 --- /dev/null +++ b/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 */ diff --git a/internal/4.1/1/Source/cfpack_D2007.res b/internal/4.1/1/Source/cfpack_D2007.res new file mode 100644 index 0000000..ec5f233 Binary files /dev/null and b/internal/4.1/1/Source/cfpack_D2007.res differ diff --git a/internal/4.1/1/Source/cfpack_d10.bdsproj b/internal/4.1/1/Source/cfpack_d10.bdsproj new file mode 100644 index 0000000..8ec9e7b --- /dev/null +++ b/internal/4.1/1/Source/cfpack_d10.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + cfpack_d10.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 1 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + Custom Forms Pack (CFPack) Tools for Delphi 10 + + + + ..\Lib\D10 + + + ..\Lib\D10 + + + + False + + + + + + False + + + True + False + + + + $00000000 + C:\Archivos de programa\Borland\Delphi7\Bin\ + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/internal/4.1/1/Source/cfpack_d10.cfg b/internal/4.1/1/Source/cfpack_d10.cfg new file mode 100644 index 0000000..7cac608 --- /dev/null +++ b/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 diff --git a/internal/4.1/1/Source/cfpack_d10.dpk b/internal/4.1/1/Source/cfpack_d10.dpk new file mode 100644 index 0000000..b4f34fe --- /dev/null +++ b/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. diff --git a/internal/4.1/1/Source/cfpack_d10.drc b/internal/4.1/1/Source/cfpack_d10.drc new file mode 100644 index 0000000..c0e975e --- /dev/null +++ b/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 + diff --git a/internal/4.1/1/Source/cfpack_d10.res b/internal/4.1/1/Source/cfpack_d10.res new file mode 100644 index 0000000..ec5f233 Binary files /dev/null and b/internal/4.1/1/Source/cfpack_d10.res differ diff --git a/internal/4.1/1/Source/cfpack_d11.dpk b/internal/4.1/1/Source/cfpack_d11.dpk new file mode 100644 index 0000000..18ab07b --- /dev/null +++ b/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. diff --git a/internal/4.1/1/Source/cfpack_d11.res b/internal/4.1/1/Source/cfpack_d11.res new file mode 100644 index 0000000..ec5f233 Binary files /dev/null and b/internal/4.1/1/Source/cfpack_d11.res differ