From abe3e28bb8c11236f42046e1c1fd6f809b00a823 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= Date: Wed, 18 Sep 2002 16:26:23 +0000 Subject: Delphi project for creating FramesteinLib.DLL - FS as Pd Library svn path=/trunk/Framestein/; revision=131 --- Source/FramesteinLib.cfg | 36 +++++++++++++++++++ Source/FramesteinLib.dof | 88 +++++++++++++++++++++++++++++++++++++++++++++++ Source/FramesteinLib.dpr | 62 +++++++++++++++++++++++++++++++++ Source/FramesteinLib.res | Bin 0 -> 876 bytes Source/fsicon.ico | Bin 0 -> 6870 bytes 5 files changed, 186 insertions(+) create mode 100644 Source/FramesteinLib.cfg create mode 100644 Source/FramesteinLib.dof create mode 100644 Source/FramesteinLib.dpr create mode 100644 Source/FramesteinLib.res create mode 100644 Source/fsicon.ico diff --git a/Source/FramesteinLib.cfg b/Source/FramesteinLib.cfg new file mode 100644 index 0000000..12f9601 --- /dev/null +++ b/Source/FramesteinLib.cfg @@ -0,0 +1,36 @@ +-$A+ +-$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 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-LE"c:\program files\borland\delphi5\Projects\Bpl" +-LN"c:\program files\borland\delphi5\Projects\Bpl" +-DFSDLL diff --git a/Source/FramesteinLib.dof b/Source/FramesteinLib.dof new file mode 100644 index 0000000..4edf1b3 --- /dev/null +++ b/Source/FramesteinLib.dof @@ -0,0 +1,88 @@ +[Compiler] +A=1 +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; +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir= +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath= +Packages=Vcl50;Vclx50;VclSmp50;Qrpt50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;TeeUI50;TeeDB50;Tee50;TeeQR50;VCLIB50;vclie50;Inetdb50;Inet50;NMFast50;dclocx50;dclaxserver50;DelphiX_for5;fspak +Conditionals=FSDLL +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1035 +CodePage=1252 +[Version Info Keys] +CompanyName= +FileDescription= +FileVersion=1.0.0.0 +InternalName= +LegalCopyright= +LegalTrademarks= +OriginalFilename= +ProductName= +ProductVersion=1.0.0.0 +Comments= +[HistoryLists\hlConditionals] +Count=1 +Item0=FSDLL +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/Source/FramesteinLib.dpr b/Source/FramesteinLib.dpr new file mode 100644 index 0000000..c6b10ac --- /dev/null +++ b/Source/FramesteinLib.dpr @@ -0,0 +1,62 @@ +{ Copyright (C) 2001-2002 Juha Vehviläinen + This program is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License + as published by the Free Software Foundation; either version 2 + of the License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details.} + +Library Framestein; + +{%ToDo 'Framestein.todo'} +{%ToDo 'FramesteinLib.todo'} + +uses + ActiveX, + Forms, + Classes, + Windows, + mainunit in 'mainunit.pas' {main}, + fsframeunit in 'fsframeunit.pas' {fsframe}, + fscopyunit in 'fscopyunit.pas' {fscopy}, + fstextunit in 'fstextunit.pas' {fstext}, + fsformunit in 'fsformunit.pas', + fsdrawunit in 'fsdrawunit.pas' {fsdraw}, + effectsunit in 'effectsunit.pas', + pluginunit in 'pluginunit.pas', + logunit in 'logunit.pas' {log}, + fsbrowserunit in 'fsbrowserunit.pas' {fsbrowser}, + fsinfounit in 'fsinfounit.pas' {fsinfo}, + configureunit in 'configureunit.pas' {configure}, + pshostunit in 'pshostunit.pas', + fsaviunit in 'fsaviunit.pas' {FsAvi}, + progressunit in 'progressunit.pas' {Progress}; + +{$R *.RES} + +function framestein_setup: Longint; stdcall; +begin + MainT := TMainThread.Create(False); + Result := 0; +end; + +exports + framestein_setup; + +var + SaveExit: Pointer; + +procedure FSExit; +begin + Application.MessageBox('exitproc called!', '', 0); + ExitProc := SaveExit; +end; + +begin + SaveExit := ExitProc; + ExitProc := @FSExit; +end. + diff --git a/Source/FramesteinLib.res b/Source/FramesteinLib.res new file mode 100644 index 0000000..3f023c8 Binary files /dev/null and b/Source/FramesteinLib.res differ diff --git a/Source/fsicon.ico b/Source/fsicon.ico new file mode 100644 index 0000000..e682dd7 Binary files /dev/null and b/Source/fsicon.ico differ -- cgit v1.2.1