From 8ac679c678b5528245adcc7bfc16028dab25a5ce Mon Sep 17 00:00:00 2001 From: utak3r Date: Sun, 9 Oct 2005 18:27:38 +0000 Subject: [PATCH] Added Delphi 7 project files. --- 2.10/Project/delphi7/Apophysis202.cfg | 41 +++++ 2.10/Project/delphi7/Apophysis202.dpr | 109 +++++++++++++ 2.10/Project/delphi7/Apophysis202.res | Bin 0 -> 1333 bytes 2.10/Project/delphi7/FlameSS.cfg | 41 +++++ 2.10/Project/delphi7/FlameSS.dpr | 214 ++++++++++++++++++++++++++ 2.10/Project/delphi7/FlameSS.res | Bin 0 -> 876 bytes 6 files changed, 405 insertions(+) create mode 100644 2.10/Project/delphi7/Apophysis202.cfg create mode 100644 2.10/Project/delphi7/Apophysis202.dpr create mode 100644 2.10/Project/delphi7/Apophysis202.res create mode 100644 2.10/Project/delphi7/FlameSS.cfg create mode 100644 2.10/Project/delphi7/FlameSS.dpr create mode 100644 2.10/Project/delphi7/FlameSS.res diff --git a/2.10/Project/delphi7/Apophysis202.cfg b/2.10/Project/delphi7/Apophysis202.cfg new file mode 100644 index 0000000..d32db51 --- /dev/null +++ b/2.10/Project/delphi7/Apophysis202.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+ +-$Y+ +-$Z1 +-cg +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +-H+ +-W+ +-M +-$M16384,1048576 +-K$00400000 +-E"..\..\out" +-N"..\..\out\dcu" +-LE"g:\compilers\delphi7\Projects\Bpl" +-LN"g:\compilers\delphi7\Projects\Bpl" +-U"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6" +-O"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6" +-I"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6" +-R"..\..\..\Apolibstuff\libxml;..\..\..\Apolibstuff\imglib;..\..\..\Apolibstuff\Scripterstudio\Imports\Delphi6;..\..\..\Apolibstuff\ScripterStudio;..\..\..\Apolibstuff\Indy\d6" diff --git a/2.10/Project/delphi7/Apophysis202.dpr b/2.10/Project/delphi7/Apophysis202.dpr new file mode 100644 index 0000000..7190fb8 --- /dev/null +++ b/2.10/Project/delphi7/Apophysis202.dpr @@ -0,0 +1,109 @@ +{ + Apophysis Copyright (C) 2001-2004 Mark Townsend + + 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. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +} +program Apophysis202; + + + +uses + Forms, + SysUtils, + About in '..\..\Source\About.pas' {AboutForm}, + Adjust in '..\..\Source\Adjust.pas' {AdjustForm}, + bmdll32 in '..\..\Source\bmdll32.PAS', + Browser in '..\..\Source\Browser.pas' {GradientBrowser}, + Cmap in '..\..\Source\cmap.pas', + cmapdata in '..\..\Source\cmapdata.pas', + ControlPoint in '..\..\Source\ControlPoint.pas', + Editor in '..\..\Source\Editor.pas' {EditForm}, + FormExport in '..\..\Source\FormExport.pas' {ExportDialog}, + FormFavorites in '..\..\Source\FormFavorites.pas' {FavoritesForm}, + formPostProcess in '..\..\Source\formPostProcess.pas' {frmPostProcess}, + FormRender in '..\..\Source\FormRender.pas' {RenderForm}, + Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm}, + Global in '..\..\Source\Global.pas', + GradientHlpr in '..\..\Source\GradientHlpr.pas', + HtmlHlp in '..\..\Source\HtmlHlp.pas', + ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring}, + ImageMaker in '..\..\Source\ImageMaker.pas', + Main in '..\..\Source\Main.pas' {MainForm}, + MsMultiPartFormData in '..\..\Source\MsMultiPartFormData.pas', + Mutate in '..\..\Source\Mutate.pas' {MutateForm}, + MyTypes in '..\..\Source\MyTypes.pas', + Options in '..\..\Source\Options.pas' {OptionsForm}, + Preview in '..\..\Source\Preview.pas' {PreviewForm}, + Regstry in '..\..\Source\Regstry.pas', + Render in '..\..\Source\Render.pas', + Render64 in '..\..\Source\Render64.pas', + Render64MT in '..\..\Source\Render64MT.pas', + RenderMM in '..\..\Source\RenderMM.pas', + RenderMM2 in '..\..\Source\RenderMM2.pas', + RenderThread in '..\..\Source\RenderThread.pas', + RndFlame in '..\..\Source\RndFlame.pas', + Save in '..\..\Source\Save.pas' {SaveForm}, + SavePreset in '..\..\Source\SavePreset.pas' {SavePresetForm}, + ScriptForm in '..\..\Source\ScriptForm.pas' {ScriptEditor}, + ScriptRender in '..\..\Source\ScriptRender.pas' {ScriptRenderForm}, + Sheep in '..\..\Source\Sheep.pas' {SheepDialog}, + XForm in '..\..\Source\XForm.pas', + pngextra in '..\..\..\..\..\..\..\compilers\components\PNGImage\pngextra.pas', + pngimage in '..\..\..\..\..\..\..\compilers\components\PNGImage\pngimage.pas', + pnglang in '..\..\..\..\..\..\..\compilers\components\PNGImage\pnglang.pas', + pngzlib in '..\..\..\..\..\..\..\compilers\components\PNGImage\pngzlib.pas', + varpdj in '..\..\Source\varpdj.pas', + varblob in '..\..\Source\varblob.pas', + XFormMan in '..\..\Source\XFormMan.pas', + BaseVariation in '..\..\Source\BaseVariation.pas', + BucketFillerThread in '..\..\Source\BucketFillerThread.pas', + RenderMM_MT in '..\..\Source\RenderMM_MT.pas', + varRings2 in '..\..\Source\varRings2.pas', + varFan2 in '..\..\Source\varFan2.pas', + CustomDrawControl in '..\..\Source\CustomDrawControl.pas'; + +// ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring}; + +{$R *.RES} + +begin + Application.Initialize; + Application.Title := 'Apophysis'; + Application.HelpFile := 'Apophysis 2.0.chm'; + // Application.CreateForm(TfrmImageColoring, frmImageColoring); + Application.CreateForm(TMainForm, MainForm); + Application.CreateForm(TAboutForm, AboutForm); + Application.CreateForm(TAdjustForm, AdjustForm); + Application.CreateForm(TGradientBrowser, GradientBrowser); + Application.CreateForm(TEditForm, EditForm); + Application.CreateForm(TExportDialog, ExportDialog); + Application.CreateForm(TFavoritesForm, FavoritesForm); + Application.CreateForm(TfrmPostProcess, frmPostProcess); + Application.CreateForm(TRenderForm, RenderForm); + Application.CreateForm(TFullscreenForm, FullscreenForm); + Application.CreateForm(TfrmImageColoring, frmImageColoring); + Application.CreateForm(TMutateForm, MutateForm); + Application.CreateForm(TOptionsForm, OptionsForm); + Application.CreateForm(TPreviewForm, PreviewForm); + Application.CreateForm(TSaveForm, SaveForm); + Application.CreateForm(TSavePresetForm, SavePresetForm); + Application.CreateForm(TScriptEditor, ScriptEditor); + Application.CreateForm(TScriptRenderForm, ScriptRenderForm); + Application.CreateForm(TSheepDialog, SheepDialog); + Application.UpdateFormatSettings := False; + DecimalSeparator := '.'; + Application.Run; +end. + diff --git a/2.10/Project/delphi7/Apophysis202.res b/2.10/Project/delphi7/Apophysis202.res new file mode 100644 index 0000000000000000000000000000000000000000..0a74f0860819b6a3a6f9a770799a08b3c5355893 GIT binary patch literal 1333 zcmeHH!EJ*;5F9YzBvy16iA1py$-E*z9D&>bbO0Tg4xj_*!0rH^`9TME2hf4tf!%>K zhfSnNk<$PpEqgaJ?5*~(0N^mr=S%ST3txA=KB7nKG%25r-ZbaIVFU~fG!yxc+L0aC zeS`xUtRZGAUL}N#0O2wF-fC;X^o6^{j{R5M6uh` z+p>p@b!xat36I(=Ea0%0xM&cvz6>{r_@?yOBYQck0S*`@Fihaj3E2NZzX{vc#SQ36 zSMM6SWll8nx}Ve@QXzWXc$h4v( 0 then begin + PwdFunc := GetProcAddress(MyMod,'PwdChangePasswordA'); + if Assigned(PwdFunc) then + PwdFunc('SCRSAVE',StrToInt(paramstr(2)),0,0); + FreeLibrary(MyMod); + end; +end; + +function WindowProc(Wnd: HWnd; Msg: Integer; wParam: Word; lParam: Integer): Integer; far; stdcall; +begin + + { Window procedure for the saver preview. Only used for terminating the preview + version of the saver. } + if (Msg = WM_DESTROY) or (Msg = WM_CLOSE) then PostMessage(Wnd, WM_QUIT, 0, 0); + Result := DefWindowProc(Wnd, Msg, wParam, lParam); + +end; + +procedure Preview; +var + PreviewCanvas: TCanvas; + PreviewRect: TRect; + WndClass: TWndClass; + DC: hDC; + MyWnd: hWnd; + Msg: TMsg; + ParentHandle: THandle; + cp : TControlPoint; + Render: TRenderer; + bm: TBitmap; +begin + { To run the preview, you need to create a window class corresponding with the + little display in the screensaver control panel. This doesn't look very + elegant in a Delphi project, but I don't think you can use VCL functionality + to do this... } + with WndClass do + begin + style := CS_PARENTDC; + lpfnWndProc := @WindowProc; + cbClsExtra := 0; + cbWndExtra := 0; + hIcon := 0; + hCursor := 0; + hbrBackground := 0; + lpszMenuName := nil; + lpszClassName := 'DeskSpin'; + end; + WndClass.hInstance := hInstance; + Windows.RegisterClass(WndClass); + + ParentHandle := StrToInt(ParamStr(2)); + + // Initialize a Rect that matches the preview area: + GetWindowRect(Parenthandle, PreviewRect); + PreviewRect.Right := PreviewRect.Right - PreviewRect.Left; + PreviewRect.Bottom := PreviewRect.Bottom - PreviewRect.Top; + PreviewRect.Left := 0; + PreviewRect.Top := 0; + + // Instantiate the window class so we can draw to the preview area: + MyWnd := CreateWindow('DeskSpin', 'DeskSpin', + WS_CHILD or WS_DISABLED or WS_VISIBLE, 0, 0, + PreviewRect.Right, PreviewRect.Bottom, ParentHandle, + 0, hInstance, nil); + + // We need a DC before we can draw: + DC := GetDC(MyWnd); + { We can create a TCanvas matching the DC, so we can draw the preview with + familiar functions: } + PreviewCanvas := TCanvas.Create; + PreviewCanvas.Handle := DC; + + randomize; + cp := TControlPoint.Create; + Render := TRenderer.Create; + + cp.ParseString('pixels_per_unit 277.456647 center -1.0982659 0 gamma 2 spatial_filter_radius' + + ' 0.5 contrast 1 brightness 1.5 zoom 0 spatial_oversample 1 sample_density 1 nbatches' + + ' 1 white_level 200 cmap_inter 0 time 0 cmap 33 xform 0 density 1 color 0 var 0 0 0 1 0' + + ' 0 0 coefs 0.466381997 -0.0618700013 0.0792416036 0.610638022 -0.475656986 -0.28115499'+ + ' xform 1 density 1 color 1 var 0 0 0 0 1 0 0 coefs -0.513867021 0.271649003 -0.254521996' + + ' -0.550984025 -0.674094975 -0.600323975'); + + cp.sample_density := 1; + cp.Width := PreviewRect.Right - PreviewRect.Left; + cp.Height := PreviewRect.Bottom - PreviewRect.Top; + cp.spatial_oversample := 2; + cp.spatial_filter_radius := 0.1; + cp.Gamma := 4; + cp.brightness := 4; + cp.CalcBoundbox; + Render.SetCP(cp); + Render.Render; + BM := Render.GetImage; + PreviewCanvas.Draw(0,0,bm); + + + { Enter a message loop to keep the preview going. I've kept the preview simple + (plain text output), but if you wanted, you could initialize OpenGL for the + DC you already have, and actually let your saver render to that. } + while GetMessage(Msg, 0, 0, 0) do + begin + PreviewCanvas.Draw(0,0,bm); + +// PreviewCanvas.FillRect(PreviewRect); +// PreviewCanvas.TextOut(5, 5, 'Your preview here.'); + TranslateMessage(Msg); + DispatchMessage(Msg); + end; + PreviewCanvas.Free; + + // Close and destroy the preview window: + CloseWindow(MyWnd); + DestroyWindow(MyWnd); + + Render.Free; + cp.Free; +end; + +begin + Case GetScreenSaverMode of + ssSetPwd: + begin + Application.Initialize; + SetPassWord; + end; + ssConfig: + begin + Application.Initialize; + Application.Title := 'Flame Screensaver'; + Application.CreateForm(TfrmConfig, frmConfig); + Application.Run; + end; + ssPreview: + Preview; + else // ssrun + // Test if screen save was already started + MySem := CreateSemaphore(nil,0,1,'ESDSaverSemaphore'); + if (MySem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then begin + CloseHandle(MySem); + Exit; + end; + + Application.Initialize; + Application.CreateForm(TfrmMain, frmMain); + Application.Run; + + if (MySem <> 0) then + CloseHandle(MySem); + end; // Case GetScreenSaverMode of + +end. diff --git a/2.10/Project/delphi7/FlameSS.res b/2.10/Project/delphi7/FlameSS.res new file mode 100644 index 0000000000000000000000000000000000000000..e1bec2ca1f751405dab7906c76ead120a5e08841 GIT binary patch literal 876 zcmc&zJx<0j40ZVs-cThtKu1Q7073#W0GB|_nQCwCR&TjdkHg5;Z!<3msoGBrY*=;t z^PFd=l8J~qsC!YkJNZ1T_yILd#@hDkycXTS>7aMehDv(Go!@07!bjs+3{JSvk>+^@ zkcLRci@{muauP;HwtQ{G8M>aJ`#w zwBF(9Z?#v#3GlX_xXbDF;MMzo=Ncp2LftRvh3@H@UZD^423uvj7ik+B>bf>>McSf< Fz5$D}d^G?7 literal 0 HcmV?d00001