Delphi project for creating FramesteinLib.DLL - FS as Pd Library

svn path=/trunk/Framestein/; revision=131

5 files changed, 186 insertions, 0 deletions

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
--- /dev/null
+++ b/Source/FramesteinLib.res
diff --git a/Source/fsicon.ico b/Source/fsicon.ico
new file mode 100644
index 0000000..e682dd7
--- /dev/null
+++ b/Source/fsicon.ico