*** empty log message ***
This commit is contained in:
ronaldhordijk
parent
1700c89380
commit
18c3fbfc97
@ -1 +1,4 @@
|
||||
+ Delphi2005 Project
|
||||
+ Delphi2005 Project
|
||||
B fixed remainder not on 00:00:00 when finished
|
||||
+ Extra performance in Xform
|
||||
+ 32-bits renderer
|
||||
|
||||
@ -119,7 +119,7 @@
|
||||
<Directories Name="UnitOutputDir">..\..\out\dcu</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005</Directories>
|
||||
<Directories Name="SearchPath">..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005</Directories>
|
||||
<Directories Name="Packages">vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;dss;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;dclOffice2k;FlatStyle_D6;S303_R60;RzLPDB60;RzLPND60;vclshlctrls;B302vr60;VirtualTreesD6;o403_r60;ibxpress;CSP20I60;Rz30Ctls60;Rz30DBCtls60;indy;Indy60</Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs">X:\Code\Delphi\Apophysis\Apolibstuff9\ScripterStudio\</Directories>
|
||||
@ -162,7 +162,7 @@
|
||||
<VersionInfoKeys Name="FileDescription">Apophysis 2.02</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">2.0.2.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright">Copyright © 2001-2004 Mark Townsend</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright">Copyright © 2001-2004 Mark Townsend</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename">Apophysis.exe</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
|
||||
@ -1,2 +1,9 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject/>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>2005-01-28 21:27:29.289.pas,X:\Code\Delphi\Apophysis\2.02g\Source\cmapdata.pas=</Transaction>
|
||||
<Transaction>2005-01-29 10:15:34.468.pas,X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas</Transaction>
|
||||
<Transaction>2005-01-29 10:29:11.421.pas,X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Unit1.pas=X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.pas</Transaction>
|
||||
<Transaction>2005-01-29 10:29:11.421.dfm,X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Unit1.dfm=X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.dfm</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
|
||||
@ -35,10 +35,10 @@
|
||||
-N"..\..\out\dcu"
|
||||
-LE"C:\Documents and Settings\Ronald Hordijk\Mijn documenten\Borland Studio Projects\Bpl"
|
||||
-LN"C:\Documents and Settings\Ronald Hordijk\Mijn documenten\Borland Studio Projects\Bpl"
|
||||
-U"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-O"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-I"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-R"..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-U"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-O"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-I"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-R"..\..\Source ;..\..\..\Apolibstuff9\libxml;..\..\..\Apolibstuff9\imglib;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005;..\..\..\Apolibstuff9\SCRIPTSTUDIOD2005"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
|
||||
@ -17,8 +17,8 @@
|
||||
}
|
||||
program Apophysis202;
|
||||
|
||||
{%File '..\..\HtmlHlp.inc'}
|
||||
{%File 'readme.txt'}
|
||||
{%File '..\..\readme.txt'}
|
||||
{%File '..\..\Changes.txt'}
|
||||
|
||||
uses
|
||||
Forms,
|
||||
@ -30,8 +30,6 @@ uses
|
||||
Regstry in '..\..\Source\Regstry.pas',
|
||||
MyTypes in '..\..\Source\MyTypes.pas',
|
||||
Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm},
|
||||
Render in '..\..\Source\Render.pas',
|
||||
RenderThread in '..\..\Source\RenderThread.pas',
|
||||
FormRender in '..\..\Source\FormRender.pas' {RenderForm},
|
||||
Mutate in '..\..\Source\Mutate.pas' {MutateForm},
|
||||
Adjust in '..\..\Source\Adjust.pas' {AdjustForm},
|
||||
@ -40,23 +38,24 @@ uses
|
||||
Save in '..\..\Source\Save.pas' {SaveForm},
|
||||
About in '..\..\Source\About.pas' {AboutForm},
|
||||
cmap in '..\..\Source\cmap.pas',
|
||||
cmapData in '..\..\Source\cmapData.pas',
|
||||
SavePreset in '..\..\Source\SavePreset.pas' {SavePresetForm},
|
||||
ControlPoint in '..\..\Source\ControlPoint.pas',
|
||||
HtmlHlp in '..\..\Source\HtmlHlp.pas',
|
||||
ScriptForm in '..\..\Source\ScriptForm.pas' {ScriptEditor},
|
||||
Preview in '..\..\Source\Preview.pas' {PreviewForm},
|
||||
ScriptRender in '..\..\Source\ScriptRender.pas' {ScriptRenderForm},
|
||||
ap_Math in '..\..\Source\ap_Math.pas',
|
||||
ap_SysUtils in '..\..\Source\ap_SysUtils.pas',
|
||||
FormFavorites in '..\..\Source\FormFavorites.pas' {FavoritesForm},
|
||||
Size in '..\..\Source\Size.pas' {SizeTool},
|
||||
FormExport in '..\..\Source\FormExport.pas' {ExportDialog},
|
||||
MsMultiPartFormData in '..\..\Source\MsMultiPartFormData.pas',
|
||||
Sheep in '..\..\Source\Sheep.pas' {SheepDialog},
|
||||
ap_FileCtrl in '..\..\Source\ap_FileCtrl.pas',
|
||||
XForm in '..\..\Source\XForm.pas',
|
||||
cmapdata in '..\..\Source\cmapdata.pas',
|
||||
Render32 in '..\..\Source\Render32.pas';
|
||||
RenderThread in '..\..\Source\RenderThread.pas',
|
||||
Render in '..\..\Source\Render.pas',
|
||||
Render32 in '..\..\Source\Render32.pas',
|
||||
Render64 in '..\..\Source\Render64.pas';
|
||||
// ImageColoring in '..\..\Source\ImageColoring.pas' {frmImageColoring};
|
||||
|
||||
{$R *.RES}
|
||||
|
||||
@ -83,6 +82,7 @@ begin
|
||||
Application.CreateForm(TSizeTool, SizeTool);
|
||||
Application.CreateForm(TExportDialog, ExportDialog);
|
||||
Application.CreateForm(TSheepDialog, SheepDialog);
|
||||
// Application.CreateForm(TfrmImageColoring, frmImageColoring);
|
||||
Application.UpdateFormatSettings := False;
|
||||
DecimalSeparator := '.';
|
||||
Application.Run;
|
||||
|
||||
@ -1,34 +1,54 @@
|
||||
[Closed Files]
|
||||
File_0=TSourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\RenderThread.pas',0,1,777,23,804,0,0,,
|
||||
File_1=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.identcache',0,1,1,59,12,0,0,,
|
||||
File_2=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas',0,1,1,21,43,0,0,,
|
||||
File_3=TSourceModule,'x:\programs\borland\bds\3.0\source\Win32\rtl\common\Classes.pas',0,1,1188,15,1188,0,0,,
|
||||
File_4=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Save.pas',0,1,1,1,1,0,0,,
|
||||
File_5=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\SavePreset.pas',0,1,1,1,1,0,0,,
|
||||
File_6=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas',0,1,1,1,1,0,0,,
|
||||
File_7=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptRender.pas',0,1,1,1,1,0,0,,
|
||||
File_8=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Sheep.pas',0,1,1,1,1,0,0,,
|
||||
File_9=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Size.pas',0,1,1,1,1,0,0,,
|
||||
File_0=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ScriptRender.pas',0,1,83,21,109,0,0,,
|
||||
File_1=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\ImageColoring.pas',0,1,28,19,68,0,0,,
|
||||
File_2=TSourceModule,'X:\Code\Delphi\Apophysis\Apolibstuff9\SCRIPTSTUDIOD2005\Imports\Delphi2005\ap_System.pas',0,1,263,57,296,0,0,,
|
||||
File_3=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas',0,1,1,1,1,0,0,,
|
||||
File_4=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas',0,1,109,1,123,0,0,,
|
||||
File_5=TSourceModule,'X:\Code\Delphi\Apophysis\2.02f\Source\RenderThread.pas',0,1,777,23,804,0,0,,
|
||||
File_6=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.identcache',0,1,1,59,12,0,0,,
|
||||
File_7=TSourceModule,'x:\programs\borland\bds\3.0\source\Win32\rtl\common\Classes.pas',0,1,1188,15,1188,0,0,,
|
||||
File_8=TSourceModule,'X:\Code\Delphi\Apophysis\2.02g\Source\Save.pas',0,1,1,1,1,0,0,,
|
||||
|
||||
[Modules]
|
||||
Module0=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas
|
||||
Module1=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
|
||||
Module2=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
|
||||
Module3=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj
|
||||
Module4=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
|
||||
Module5=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
|
||||
Module6=X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas
|
||||
Module7=X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas
|
||||
Module8=default.htm
|
||||
Count=9
|
||||
Module0=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
|
||||
Module1=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
|
||||
Module2=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas
|
||||
Module3=X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas
|
||||
Module4=X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas
|
||||
Module5=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
|
||||
Module6=X:\Code\Delphi\Apophysis\2.02g\readme.txt
|
||||
Module7=X:\Code\Delphi\Apophysis\2.02g\Changes.txt
|
||||
Module8=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj
|
||||
Module9=X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas
|
||||
Module10=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
|
||||
Module11=X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas
|
||||
Module12=X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas
|
||||
Module13=X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas
|
||||
Module14=default.htm
|
||||
Count=15
|
||||
EditWindowCount=1
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas]
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas]
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=1
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=1
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
@ -38,35 +58,46 @@ ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\readme.txt]
|
||||
ModuleType=TSourceModule
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Changes.txt]
|
||||
ModuleType=TSourceModule
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.bdsproj]
|
||||
ModuleType=TBaseProject
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=1
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=1
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas]
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=1
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[default.htm]
|
||||
ModuleType=TURLModule
|
||||
|
||||
[EditWindow0]
|
||||
ViewCount=9
|
||||
CurrentEditView=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas
|
||||
ViewCount=15
|
||||
CurrentEditView=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
|
||||
View0=0
|
||||
View1=1
|
||||
View2=2
|
||||
@ -76,6 +107,12 @@ View5=5
|
||||
View6=6
|
||||
View7=7
|
||||
View8=8
|
||||
View9=9
|
||||
View10=10
|
||||
View11=11
|
||||
View12=12
|
||||
View13=13
|
||||
View14=14
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
@ -94,17 +131,17 @@ MessageView=MessageView@EditWindow0
|
||||
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
|
||||
TopPanelSize=0
|
||||
LeftPanelSize=1906
|
||||
LeftPanelClients=StructureView,DockSite0
|
||||
LeftPanelData=00000800010100000000AE170000000000000172070000000000000100000000C50D00001100000053747275637475726556696577466F726D01000000009A1D000009000000446F636B5369746530FFFFFFFF
|
||||
LeftPanelClients=StructureView,DockSite3
|
||||
LeftPanelData=00000800010100000000AE170000000000000172070000000000000100000000C50D00001100000053747275637475726556696577466F726D01000000009A1D000009000000446F636B5369746533FFFFFFFF
|
||||
RightPanelSize=2258
|
||||
RightPanelClients=DockSite1,ToolForm
|
||||
RightPanelData=00000800010100000000AE1700000000000001D20800000000000001000000006511000009000000446F636B536974653101000000009A1D000008000000546F6F6C466F726DFFFFFFFF
|
||||
RightPanelClients=ToolForm,DockSite2
|
||||
RightPanelData=00000800010100000000AE1700000000000001D20800000000000001000000006511000009000000446F636B536974653201000000009A1D000008000000546F6F6C466F726DFFFFFFFF
|
||||
BottomPanelSize=1270
|
||||
BottomPanelClients=MessageView@EditWindow0,ToDo List,DockSite2
|
||||
BottomPanelData=000008000102020000000E000000546F446F4C69737457696E646F7709000000446F636B53697465327C3000000000000002F60400000000000001000000007C3000000B0000004D65737361676556696577FFFFFFFF
|
||||
BottomPanelClients=MessageView@EditWindow0,ToDo List,DockSite0
|
||||
BottomPanelData=000008000102020000000E000000546F446F4C69737457696E646F7709000000446F636B53697465307C3000000000000002F60400000000000001000000007C3000000B0000004D65737361676556696577FFFFFFFF
|
||||
BottomMiddlePanelSize=0
|
||||
BottomMiddlePanelClients=DockSite3
|
||||
BottomMiddelPanelData=0000080001000100000009000000446F636B53697465330000000000000000000000000000000000FFFFFFFF
|
||||
BottomMiddlePanelClients=DockSite1
|
||||
BottomMiddelPanelData=0000080001000100000009000000446F636B53697465310000000000000000000000000000000000FFFFFFFF
|
||||
|
||||
[View0]
|
||||
CustomEditViewType=TWelcomePageView
|
||||
@ -113,83 +150,143 @@ WelcomePageURL=bds:/default.htm
|
||||
[View1]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Project\delphi2005\Apophysis202.dpr
|
||||
CursorX=56
|
||||
CursorY=15
|
||||
TopLine=1
|
||||
CursorX=2
|
||||
CursorY=90
|
||||
TopLine=59
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View2]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
|
||||
CursorX=63
|
||||
CursorY=783
|
||||
TopLine=778
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Changes.txt
|
||||
CursorX=19
|
||||
CursorY=4
|
||||
TopLine=1
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View3]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render32.pas
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\readme.txt
|
||||
CursorX=1
|
||||
CursorY=115
|
||||
TopLine=88
|
||||
CursorY=1
|
||||
TopLine=1
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View4]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
|
||||
CursorX=27
|
||||
CursorY=130
|
||||
TopLine=105
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\ControlPoint.pas
|
||||
CursorX=32
|
||||
CursorY=1479
|
||||
TopLine=1463
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View5]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
|
||||
CursorX=27
|
||||
CursorY=79
|
||||
TopLine=52
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render.pas
|
||||
CursorX=14
|
||||
CursorY=661
|
||||
TopLine=650
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View6]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\MyTypes.pas
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Render64.pas
|
||||
CursorX=1
|
||||
CursorY=1
|
||||
TopLine=1
|
||||
CursorY=585
|
||||
TopLine=560
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View7]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\MsMultiPartFormData.pas
|
||||
CursorX=1
|
||||
CursorY=123
|
||||
TopLine=109
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\RenderThread.pas
|
||||
CursorX=27
|
||||
CursorY=102
|
||||
TopLine=63
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View8]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
|
||||
CursorX=1
|
||||
CursorY=1
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\cmap.pas
|
||||
CursorX=3
|
||||
CursorY=46
|
||||
TopLine=1
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View9]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Main.pas
|
||||
CursorX=22
|
||||
CursorY=3416
|
||||
TopLine=3373
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks={1,3102,15}
|
||||
|
||||
[View10]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Gradient.pas
|
||||
CursorX=38
|
||||
CursorY=133
|
||||
TopLine=126
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View11]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\FormRender.pas
|
||||
CursorX=28
|
||||
CursorY=207
|
||||
TopLine=168
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View12]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\Fullscreen.pas
|
||||
CursorX=25
|
||||
CursorY=124
|
||||
TopLine=91
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View13]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\ScriptForm.pas
|
||||
CursorX=54
|
||||
CursorY=302
|
||||
TopLine=297
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
|
||||
[View14]
|
||||
CustomEditViewType=TEditView
|
||||
Module=X:\Code\Delphi\Apophysis\2.02g\Source\XForm.pas
|
||||
CursorX=52
|
||||
CursorY=68
|
||||
TopLine=31
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks={1,237,1}
|
||||
|
||||
[Watches]
|
||||
Count=0
|
||||
|
||||
@ -204,11 +301,11 @@ State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=3766
|
||||
Height=4698
|
||||
Height=724
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=3766
|
||||
ClientHeight=4698
|
||||
ClientHeight=724
|
||||
TBDockHeight=201
|
||||
LRDockWidth=13602
|
||||
Dockable=1
|
||||
@ -271,31 +368,11 @@ MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=2258
|
||||
ClientHeight=2988
|
||||
TBDockHeight=6519
|
||||
TBDockHeight=8913
|
||||
LRDockWidth=2258
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[PropertyInspector]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1844
|
||||
Height=3843
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1844
|
||||
ClientHeight=3843
|
||||
TBDockHeight=412
|
||||
LRDockWidth=1906
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
SplitPos=95
|
||||
|
||||
[RMAddinTool]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
@ -303,7 +380,7 @@ Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-9
|
||||
Top=-103
|
||||
Top=1001
|
||||
Width=5305
|
||||
Height=5141
|
||||
MaxLeft=-1
|
||||
@ -324,11 +401,11 @@ State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=3766
|
||||
Height=4698
|
||||
Height=724
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=3766
|
||||
ClientHeight=4698
|
||||
ClientHeight=724
|
||||
TBDockHeight=2072
|
||||
LRDockWidth=3484
|
||||
Dockable=1
|
||||
@ -427,11 +504,11 @@ State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=3766
|
||||
Height=4698
|
||||
Height=724
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=3766
|
||||
ClientHeight=4698
|
||||
ClientHeight=724
|
||||
TBDockHeight=412
|
||||
LRDockWidth=4953
|
||||
Dockable=1
|
||||
@ -446,11 +523,11 @@ State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=3766
|
||||
Height=4698
|
||||
Height=724
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=3766
|
||||
ClientHeight=4698
|
||||
ClientHeight=724
|
||||
TBDockHeight=201
|
||||
LRDockWidth=7414
|
||||
Dockable=1
|
||||
@ -469,17 +546,17 @@ State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=3766
|
||||
Height=4698
|
||||
Height=724
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=3766
|
||||
ClientHeight=4698
|
||||
ClientHeight=724
|
||||
TBDockHeight=262
|
||||
LRDockWidth=3484
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[ModelViewTool]
|
||||
[PropertyInspector]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
@ -487,16 +564,17 @@ Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=2195
|
||||
Height=3964
|
||||
Width=1844
|
||||
Height=3843
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=2195
|
||||
ClientHeight=3964
|
||||
TBDockHeight=4879
|
||||
LRDockWidth=5305
|
||||
ClientWidth=1844
|
||||
ClientHeight=3843
|
||||
TBDockHeight=412
|
||||
LRDockWidth=1906
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
SplitPos=95
|
||||
|
||||
[BreakpointWindow]
|
||||
PercentageSizes=1
|
||||
@ -507,11 +585,11 @@ State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=3766
|
||||
Height=4698
|
||||
Height=724
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=3766
|
||||
ClientHeight=4698
|
||||
ClientHeight=724
|
||||
TBDockHeight=1549
|
||||
LRDockWidth=8742
|
||||
Dockable=1
|
||||
@ -587,72 +665,26 @@ DockHostCount=4
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=384
|
||||
Width=1906
|
||||
Height=3944
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1906
|
||||
ClientHeight=3944
|
||||
TBDockHeight=5111
|
||||
LRDockWidth=1906
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=PropertyInspector
|
||||
TabDockClients=PropertyInspector,RMAddinTool
|
||||
|
||||
[DockSite1]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=23
|
||||
Width=2258
|
||||
Height=4316
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=2258
|
||||
ClientHeight=4316
|
||||
TBDockHeight=6318
|
||||
LRDockWidth=2258
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=ProjectManager
|
||||
TabDockClients=ProjectManager,ModelViewTool,DataExplorer
|
||||
|
||||
[DockSite2]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-5
|
||||
Top=-990
|
||||
Top=-860
|
||||
Width=3828
|
||||
Height=5050
|
||||
Height=1076
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=3828
|
||||
ClientHeight=5050
|
||||
TBDockHeight=5050
|
||||
ClientHeight=1076
|
||||
TBDockHeight=1076
|
||||
LRDockWidth=3828
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=LocalVarsWindow
|
||||
TabDockClients=BreakpointWindow,CallStackWindow,WatchWindow,ThreadStatusWindow,DebugLogView,LocalVarsWindow
|
||||
TabDockClients=BreakpointWindow,ThreadStatusWindow,DebugLogView,CallStackWindow,WatchWindow,LocalVarsWindow
|
||||
|
||||
[DockSite3]
|
||||
[DockSite1]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
@ -660,7 +692,7 @@ Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-252
|
||||
Top=-990
|
||||
Top=-857
|
||||
Width=2336
|
||||
Height=2314
|
||||
MaxLeft=-1
|
||||
@ -675,3 +707,49 @@ TabPosition=1
|
||||
ActiveTabID=FindReferencsForm
|
||||
TabDockClients=RefactoringForm,FindReferencsForm
|
||||
|
||||
[DockSite2]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=23
|
||||
Width=2258
|
||||
Height=4316
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=2258
|
||||
ClientHeight=4316
|
||||
TBDockHeight=1670
|
||||
LRDockWidth=2258
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=ProjectManager
|
||||
TabDockClients=ProjectManager,DataExplorer
|
||||
|
||||
[DockSite3]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=384
|
||||
Width=1906
|
||||
Height=3944
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1906
|
||||
ClientHeight=3944
|
||||
TBDockHeight=1740
|
||||
LRDockWidth=1906
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=RMAddinTool
|
||||
TabDockClients=RMAddinTool,PropertyInspector
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -15,7 +15,6 @@
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
}
|
||||
{$D-,L-,O+,Q-,R-,Y-,S-}
|
||||
program Apophysis202;
|
||||
|
||||
{%File 'HtmlHlp.inc'}
|
||||
@ -33,6 +32,7 @@ uses
|
||||
MyTypes in '..\..\Source\MyTypes.pas',
|
||||
Fullscreen in '..\..\Source\Fullscreen.pas' {FullscreenForm},
|
||||
Render in '..\..\Source\Render.pas',
|
||||
Render32 in '..\..\Source\Render32.pas',
|
||||
RenderThread in '..\..\Source\RenderThread.pas',
|
||||
FormRender in '..\..\Source\FormRender.pas' {RenderForm},
|
||||
Mutate in '..\..\Source\Mutate.pas' {MutateForm},
|
||||
|
||||
@ -39,11 +39,15 @@ type
|
||||
vHandkerchief, vHeart, vDisc, vSpiral, vHyperbolic, vSquare, vEx, vJulia,
|
||||
vBent, vWaves, vFisheye, vPopcorn, vExponential, vPower, vCosine, vSawTooth, vRandom);
|
||||
type
|
||||
TCPpoint = record
|
||||
x, y, c: double;
|
||||
end;
|
||||
PCPpoint = ^TCPpoint;
|
||||
|
||||
TPointsArray = array of TCPpoint;
|
||||
TPointsXYArray = array of TXYpoint;
|
||||
|
||||
T2Cpoint = record
|
||||
x, y, c1, c2: double;
|
||||
end;
|
||||
P2Cpoint = ^T2Cpoint;
|
||||
T2CPointsArray = array of T2Cpoint;
|
||||
|
||||
TControlPoint = class
|
||||
public
|
||||
@ -81,6 +85,7 @@ type
|
||||
PropTable: array of Integer;
|
||||
jpeg: TJPegImage;
|
||||
FAngle: Double;
|
||||
FTwoColorDimensions: Boolean;
|
||||
private
|
||||
procedure PreparePropTable;
|
||||
|
||||
@ -90,9 +95,7 @@ type
|
||||
|
||||
procedure ParseString(aString: string);
|
||||
procedure ParseStringList(sl: TStringlist);
|
||||
// procedure RandomCP(calc: boolean = true);
|
||||
procedure RandomCP(min: integer = 2; max: integer = NXFORMS; calc: boolean = true);
|
||||
// procedure RandomCP;
|
||||
procedure RandomCP1;
|
||||
procedure CalcBoundbox;
|
||||
function BlowsUp(NrPoints: integer): boolean;
|
||||
@ -102,8 +105,10 @@ type
|
||||
|
||||
class function interpolate(cp1, cp2: TControlPoint; Time: double): TControlPoint; /// just for now
|
||||
procedure InterpolateX(cp1, cp2: TControlPoint; Tm: double);
|
||||
procedure Iterate(NrPoints: integer; var Points: TPointsArray);
|
||||
procedure Iterate_d(NrPoints: integer; var Points: TPointsArray);
|
||||
procedure Iterate_Old(NrPoints: integer; var Points: TPointsArray);
|
||||
procedure IterateXY(NrPoints: integer; var Points: TPointsXYArray);
|
||||
procedure IterateXYC(NrPoints: integer; var Points: TPointsArray);
|
||||
procedure IterateXYCC(NrPoints: integer; var Points: T2CPointsArray);
|
||||
|
||||
function Clone: TControlPoint;
|
||||
procedure Copy(cp1: TControlPoint);
|
||||
@ -180,6 +185,8 @@ begin
|
||||
nbatches := 1;
|
||||
|
||||
white_level := 200;
|
||||
|
||||
FTwoColorDimensions := False;
|
||||
end;
|
||||
|
||||
destructor TControlPoint.Destroy;
|
||||
@ -221,7 +228,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControlPoint.Iterate(NrPoints: integer; var Points: TPointsArray);
|
||||
procedure TControlPoint.Iterate_Old(NrPoints: integer; var Points: TPointsArray);
|
||||
var
|
||||
i: Integer;
|
||||
px, py, pc: double;
|
||||
@ -452,7 +459,38 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControlPoint.Iterate_d(NrPoints: integer; var Points: TPointsArray);
|
||||
procedure TControlPoint.IterateXY(NrPoints: integer; var Points: TPointsXYArray);
|
||||
var
|
||||
i: Integer;
|
||||
px, py: double;
|
||||
CurrentPoint: PXYPoint;
|
||||
begin
|
||||
px := 2 * random - 1;
|
||||
py := 2 * random - 1;
|
||||
|
||||
PreparePropTable;
|
||||
|
||||
for i := 0 to NXFORMS - 1 do
|
||||
xform[i].prepare;
|
||||
|
||||
for i := -100 to NrPoints - 1 do begin
|
||||
try
|
||||
xform[PropTable[Random(1024)]].NextPointXY(px,py);
|
||||
except
|
||||
on EMathError do begin
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
// store points
|
||||
if i >= 0 then begin
|
||||
CurrentPoint := @Points[i];
|
||||
CurrentPoint.X := px;
|
||||
CurrentPoint.Y := py;
|
||||
end
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControlPoint.IterateXYC(NrPoints: integer; var Points: TPointsArray);
|
||||
{ Variations for Draves conpatibility }
|
||||
var
|
||||
i: Integer;
|
||||
@ -473,7 +511,6 @@ begin
|
||||
xform[PropTable[Random(1024)]].NextPoint(px,py,pc);
|
||||
except
|
||||
on EMathError do begin
|
||||
// raise Exception.Create('Iteration blows up');
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
@ -487,21 +524,16 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TControlPoint.BlowsUp(NrPoints: integer): boolean;
|
||||
procedure TControlPoint.IterateXYCC(NrPoints: integer; var Points: T2CPointsArray);
|
||||
var
|
||||
i: Integer;
|
||||
px, py, pc: double;
|
||||
minx, maxx, miny, maxy: double;
|
||||
Points: TPointsArray;
|
||||
CurrentPoint: PCPPoint;
|
||||
px, py, pc1, pc2: double;
|
||||
CurrentPoint: P2Cpoint;
|
||||
begin
|
||||
Result := false;
|
||||
|
||||
SetLength(Points, SUB_BATCH_SIZE);
|
||||
|
||||
px := 2 * random - 1;
|
||||
py := 2 * random - 1;
|
||||
pc := random;
|
||||
pc1 := random;
|
||||
pc2 := random;
|
||||
|
||||
PreparePropTable;
|
||||
|
||||
@ -510,12 +542,51 @@ begin
|
||||
|
||||
for i := -100 to NrPoints - 1 do begin
|
||||
try
|
||||
xform[PropTable[Random(1024)]].NextPoint(px,py,pc);
|
||||
xform[PropTable[Random(1024)]].NextPoint2C(px, py, pc1, pc2);
|
||||
except
|
||||
on EMathError do begin
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
// store points
|
||||
if i >= 0 then begin
|
||||
CurrentPoint := @Points[i];
|
||||
CurrentPoint.X := px;
|
||||
CurrentPoint.Y := py;
|
||||
CurrentPoint.C1 := pc1;
|
||||
CurrentPoint.C2 := pc2;
|
||||
end
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function TControlPoint.BlowsUp(NrPoints: integer): boolean;
|
||||
var
|
||||
i: Integer;
|
||||
px, py: double;
|
||||
minx, maxx, miny, maxy: double;
|
||||
Points: TPointsXYArray;
|
||||
CurrentPoint: PXYPoint;
|
||||
begin
|
||||
Result := false;
|
||||
|
||||
SetLength(Points, SUB_BATCH_SIZE);
|
||||
|
||||
px := 2 * random - 1;
|
||||
py := 2 * random - 1;
|
||||
|
||||
PreparePropTable;
|
||||
|
||||
for i := 0 to NXFORMS - 1 do
|
||||
xform[i].prepare;
|
||||
|
||||
for i := -100 to NrPoints - 1 do begin
|
||||
try
|
||||
xform[PropTable[Random(1024)]].NextPointXY(px,py);
|
||||
if i >= 0 then begin
|
||||
CurrentPoint := @Points[i];
|
||||
CurrentPoint.X := px;
|
||||
CurrentPoint.Y := py;
|
||||
CurrentPoint.C := pc;
|
||||
end
|
||||
except
|
||||
on EMathError do begin
|
||||
@ -849,8 +920,8 @@ begin
|
||||
try
|
||||
SetLength(Points, SUB_BATCH_SIZE);
|
||||
case compatibility of
|
||||
0: iterate(SUB_BATCH_SIZE, points);
|
||||
1: iterate_d(SUB_BATCH_SIZE, points);
|
||||
0: iterate_Old(SUB_BATCH_SIZE, points);
|
||||
1: iterateXYC(SUB_BATCH_SIZE, points);
|
||||
end;
|
||||
|
||||
LimitOutSidePoints := Round(0.05 * SUB_BATCH_SIZE);
|
||||
@ -921,14 +992,17 @@ begin
|
||||
else
|
||||
pixels_per_unit := 10;
|
||||
except on E: EMathError do
|
||||
pixels_per_unit := 10;
|
||||
begin// default
|
||||
center[0] := 0;
|
||||
center[1] := 0;
|
||||
pixels_per_unit := 10;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function CalcUPRMagn(const cp: TControlPoint): double;
|
||||
var
|
||||
Points: TPointsArray;
|
||||
Points: TPointsXYArray;
|
||||
i, j: integer;
|
||||
deltax, minx, maxx: double;
|
||||
cntminx, cntmaxx: integer;
|
||||
@ -937,10 +1011,9 @@ var
|
||||
LimitOutSidePoints: integer;
|
||||
xLength, yLength: double;
|
||||
begin
|
||||
result := 1.0;
|
||||
try
|
||||
SetLength(Points, SUB_BATCH_SIZE);
|
||||
cp.iterate_d(SUB_BATCH_SIZE, Points);
|
||||
cp.iterateXY(SUB_BATCH_SIZE, Points);
|
||||
|
||||
LimitOutSidePoints := Round(0.05 * SUB_BATCH_SIZE);
|
||||
|
||||
@ -1023,8 +1096,8 @@ begin
|
||||
end;
|
||||
|
||||
except on E: EMathError do
|
||||
raise Exception.Create('CalcUPRMagn: ' +e.Message);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -1235,8 +1308,6 @@ begin
|
||||
result.free;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TControlPoint.SaveToFile(Filename: string);
|
||||
var
|
||||
sl: TStringlist;
|
||||
|
||||
@ -2,7 +2,7 @@ object MainForm: TMainForm
|
||||
Left = 316
|
||||
Top = 424
|
||||
Width = 574
|
||||
Height = 395
|
||||
Height = 415
|
||||
Caption = 'Apophysis'
|
||||
Color = clBtnFace
|
||||
Font.Charset = ANSI_CHARSET
|
||||
@ -27,7 +27,7 @@ object MainForm: TMainForm
|
||||
Left = 160
|
||||
Top = 28
|
||||
Width = 4
|
||||
Height = 294
|
||||
Height = 314
|
||||
end
|
||||
object ToolBar: TToolBar
|
||||
Left = 0
|
||||
@ -251,7 +251,7 @@ object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 28
|
||||
Width = 160
|
||||
Height = 294
|
||||
Height = 314
|
||||
Align = alLeft
|
||||
Columns = <
|
||||
item
|
||||
@ -270,7 +270,7 @@ object MainForm: TMainForm
|
||||
Left = 164
|
||||
Top = 28
|
||||
Width = 402
|
||||
Height = 294
|
||||
Height = 314
|
||||
Align = alClient
|
||||
BevelInner = bvLowered
|
||||
BevelOuter = bvNone
|
||||
@ -281,7 +281,7 @@ object MainForm: TMainForm
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 400
|
||||
Height = 292
|
||||
Height = 312
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
PopupMenu = DisplayPopup
|
||||
@ -293,7 +293,7 @@ object MainForm: TMainForm
|
||||
end
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 322
|
||||
Top = 342
|
||||
Width = 566
|
||||
Height = 19
|
||||
Panels = <
|
||||
@ -2616,6 +2616,10 @@ object MainForm: TMainForm
|
||||
ShortCut = 16455
|
||||
OnClick = mnuGradClick
|
||||
end
|
||||
object mnuimage: TMenuItem
|
||||
Caption = 'Image '
|
||||
OnClick = mnuimageClick
|
||||
end
|
||||
object N4: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
|
||||
@ -221,6 +221,8 @@ type
|
||||
tbzoomwindow: TToolButton;
|
||||
tbDrag: TToolButton;
|
||||
tbRotate: TToolButton;
|
||||
mnuimage: TMenuItem;
|
||||
procedure mnuimageClick(Sender: TObject);
|
||||
procedure mnuExitClick(Sender: TObject);
|
||||
procedure mnuSaveUPRClick(Sender: TObject);
|
||||
procedure ListViewChange(Sender: TObject; Item: TListItem;
|
||||
@ -906,8 +908,9 @@ begin
|
||||
Trunc((Elapsed * 24 - Trunc(Elapsed * 24)) * 60),
|
||||
Trunc((Elapsed * 24 * 60 - Trunc(Elapsed * 24 * 60)) * 60),
|
||||
Trunc((Elapsed * 24 * 60 * 60 - Trunc(Elapsed * 24 * 60 * 60)) * 100)]);
|
||||
if prog > 0 then
|
||||
if prog > 0 then
|
||||
Remainder := Min(Remainder, Elapsed * (power(1 / prog, 1.2) - 1));
|
||||
|
||||
StatusBar.Panels[1].Text := Format('Remaining %2.2d:%2.2d:%2.2d.%2.2d',
|
||||
[Trunc(Remainder * 24),
|
||||
Trunc((Remainder * 24 - Trunc(Remainder * 24)) * 60),
|
||||
@ -3100,6 +3103,12 @@ begin
|
||||
GradientForm.Show;
|
||||
end;
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
procedure TMainForm.mnuimageClick(Sender: TObject);
|
||||
begin
|
||||
// frmImageColoring.Show;
|
||||
end;
|
||||
|
||||
procedure swapcolor(var clist: array of cardinal; i, j: integer);
|
||||
var
|
||||
t: cardinal;
|
||||
@ -4377,7 +4386,9 @@ begin
|
||||
StopThread;
|
||||
UpdateUndo;
|
||||
MainCp.ZoomtoRect(FSelectRect);
|
||||
DrawFlame;
|
||||
|
||||
RedrawTimer.Enabled := True;
|
||||
UpdateWindows;
|
||||
end;
|
||||
msDragMove:
|
||||
begin
|
||||
@ -4393,7 +4404,9 @@ begin
|
||||
StopThread;
|
||||
UpdateUndo;
|
||||
MainCp.MoveRect(FSelectRect);
|
||||
DrawFlame;
|
||||
|
||||
RedrawTimer.Enabled := True;
|
||||
UpdateWindows;
|
||||
end;
|
||||
msRotateMove:
|
||||
begin
|
||||
@ -4407,7 +4420,9 @@ begin
|
||||
StopThread;
|
||||
UpdateUndo;
|
||||
MainCp.Rotate(FRotateAngle);
|
||||
DrawFlame;
|
||||
|
||||
RedrawTimer.Enabled := True;
|
||||
UpdateWindows;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -4489,5 +4504,6 @@ begin
|
||||
FMouseMoveState := msRotate;
|
||||
end;
|
||||
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
end.
|
||||
|
||||
@ -1,474 +0,0 @@
|
||||
{***************************************************************************}
|
||||
{ This source code was generated automatically by }
|
||||
{ Pas file import tool for Scripter Studio }
|
||||
{ }
|
||||
{ Scripter Studio and Pas file import tool for Scripter Studio }
|
||||
{ written by Automa / TMS Software }
|
||||
{ copyright © 1997 - 2003 }
|
||||
{ Email : info@tmssoftware.com }
|
||||
{ Web : http://www.tmssoftware.com }
|
||||
{***************************************************************************}
|
||||
unit ap_FileCtrl;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows,
|
||||
Messages,
|
||||
SysUtils,
|
||||
Classes,
|
||||
Controls,
|
||||
Graphics,
|
||||
Forms,
|
||||
Menus,
|
||||
StdCtrls,
|
||||
Buttons,
|
||||
FileCtrl,
|
||||
Variants,
|
||||
atScript;
|
||||
|
||||
type
|
||||
TatFileCtrlLibrary = class(TatScripterLibrary)
|
||||
procedure __TFileListBoxCreate(AMachine: TatVirtualMachine);
|
||||
procedure __TFileListBoxDestroy(AMachine: TatVirtualMachine);
|
||||
procedure __TFileListBoxUpdate(AMachine: TatVirtualMachine);
|
||||
procedure __TFileListBoxApplyFilePath(AMachine: TatVirtualMachine);
|
||||
procedure __GetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
||||
procedure __SetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
||||
procedure __GetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
procedure __SetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
procedure __GetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
||||
procedure __SetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
||||
procedure __TDirectoryListBoxCreate(AMachine: TatVirtualMachine);
|
||||
procedure __TDirectoryListBoxDestroy(AMachine: TatVirtualMachine);
|
||||
procedure __TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine);
|
||||
procedure __TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine);
|
||||
procedure __TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine);
|
||||
procedure __TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine);
|
||||
procedure __TDirectoryListBoxUpdate(AMachine: TatVirtualMachine);
|
||||
procedure __GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
||||
procedure __SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
||||
procedure __GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
procedure __SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
procedure __GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine);
|
||||
procedure __GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine);
|
||||
procedure __TDriveComboBoxCreate(AMachine: TatVirtualMachine);
|
||||
procedure __TDriveComboBoxDestroy(AMachine: TatVirtualMachine);
|
||||
procedure __GetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
||||
procedure __SetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
||||
procedure __TFilterComboBoxCreate(AMachine: TatVirtualMachine);
|
||||
procedure __TFilterComboBoxDestroy(AMachine: TatVirtualMachine);
|
||||
procedure __GetTFilterComboBoxMask(AMachine: TatVirtualMachine);
|
||||
procedure __ProcessPath(AMachine: TatVirtualMachine);
|
||||
procedure __MinimizeName(AMachine: TatVirtualMachine);
|
||||
procedure __DirectoryExists(AMachine: TatVirtualMachine);
|
||||
procedure __ForceDirectories(AMachine: TatVirtualMachine);
|
||||
procedure Init; override;
|
||||
class function LibraryName: string; override;
|
||||
end;
|
||||
|
||||
TFileListBoxClass = class of TFileListBox;
|
||||
TDirectoryListBoxClass = class of TDirectoryListBox;
|
||||
TDriveComboBoxClass = class of TDriveComboBox;
|
||||
TFilterComboBoxClass = class of TFilterComboBox;
|
||||
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$WARNINGS OFF}
|
||||
|
||||
|
||||
|
||||
procedure TatFileCtrlLibrary.__TFileListBoxCreate(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := Integer(TFileListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TFileListBoxDestroy(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TFileListBox(CurrentObject).Destroy;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TFileListBoxUpdate(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TFileListBox(CurrentObject).Update;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TFileListBoxApplyFilePath(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TFileListBox(CurrentObject).ApplyFilePath(GetInputArg(0));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TFileListBox(CurrentObject).Drive);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__SetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TFileListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TFileListBox(CurrentObject).Directory);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__SetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TFileListBox(CurrentObject).Directory:=GetInputArg(0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TFileListBox(CurrentObject).FileName);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__SetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TFileListBox(CurrentObject).FileName:=GetInputArg(0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDirectoryListBoxCreate(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := Integer(TDirectoryListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDirectoryListBoxDestroy(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TDirectoryListBox(CurrentObject).Destroy;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := TDirectoryListBox(CurrentObject).DisplayCase(GetInputArg(0));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := Integer(TDirectoryListBox(CurrentObject).FileCompareText(GetInputArg(0),GetInputArg(1)));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := TDirectoryListBox(CurrentObject).GetItemPath(VarToInteger(GetInputArg(0)));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TDirectoryListBox(CurrentObject).OpenCurrent;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDirectoryListBoxUpdate(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TDirectoryListBox(CurrentObject).Update;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TDirectoryListBox(CurrentObject).Drive);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TDirectoryListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TDirectoryListBox(CurrentObject).Directory);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TDirectoryListBox(CurrentObject).Directory:=GetInputArg(0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TDirectoryListBox(CurrentObject).PreserveCase);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TDirectoryListBox(CurrentObject).CaseSensitive);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDriveComboBoxCreate(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := Integer(TDriveComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TDriveComboBoxDestroy(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TDriveComboBox(CurrentObject).Destroy;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TDriveComboBox(CurrentObject).Drive);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__SetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TDriveComboBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TFilterComboBoxCreate(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := Integer(TFilterComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__TFilterComboBoxDestroy(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
TFilterComboBox(CurrentObject).Destroy;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__GetTFilterComboBoxMask(AMachine: TatVirtualMachine);
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
ReturnOutputArg(TFilterComboBox(CurrentObject).Mask);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__ProcessPath(AMachine: TatVirtualMachine);
|
||||
var
|
||||
Param1: Char;
|
||||
Param2: string;
|
||||
Param3: string;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
Param1 := VarToStr(GetInputArg(1))[1];
|
||||
Param2 := GetInputArg(2);
|
||||
Param3 := GetInputArg(3);
|
||||
FileCtrl.ProcessPath(GetInputArg(0),Param1,Param2,Param3);
|
||||
SetInputArg(1,Param1);
|
||||
SetInputArg(2,Param2);
|
||||
SetInputArg(3,Param3);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__MinimizeName(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := FileCtrl.MinimizeName(GetInputArg(0),TCanvas(Integer(GetInputArg(1))),VarToInteger(GetInputArg(2)));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__DirectoryExists(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := FileCtrl.DirectoryExists(GetInputArg(0));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.__ForceDirectories(AMachine: TatVirtualMachine);
|
||||
var
|
||||
AResult: variant;
|
||||
begin
|
||||
with AMachine do
|
||||
begin
|
||||
AResult := FileCtrl.ForceDirectories(GetInputArg(0));
|
||||
ReturnOutputArg(AResult);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TatFileCtrlLibrary.Init;
|
||||
begin
|
||||
With Scripter.DefineClass(TFileListBox) do
|
||||
begin
|
||||
DefineMethod('Create',1,tkClass,TFileListBox,__TFileListBoxCreate,true);
|
||||
DefineMethod('Destroy',0,tkNone,nil,__TFileListBoxDestroy,false);
|
||||
DefineMethod('Update',0,tkNone,nil,__TFileListBoxUpdate,false);
|
||||
DefineMethod('ApplyFilePath',1,tkNone,nil,__TFileListBoxApplyFilePath,false);
|
||||
DefineProp('Drive',tkVariant,__GetTFileListBoxDrive,__SetTFileListBoxDrive,nil,false,0);
|
||||
DefineProp('Directory',tkVariant,__GetTFileListBoxDirectory,__SetTFileListBoxDirectory,nil,false,0);
|
||||
DefineProp('FileName',tkVariant,__GetTFileListBoxFileName,__SetTFileListBoxFileName,nil,false,0);
|
||||
end;
|
||||
With Scripter.DefineClass(TDirectoryListBox) do
|
||||
begin
|
||||
DefineMethod('Create',1,tkClass,TDirectoryListBox,__TDirectoryListBoxCreate,true);
|
||||
DefineMethod('Destroy',0,tkNone,nil,__TDirectoryListBoxDestroy,false);
|
||||
DefineMethod('DisplayCase',1,tkVariant,nil,__TDirectoryListBoxDisplayCase,false);
|
||||
DefineMethod('FileCompareText',2,tkInteger,nil,__TDirectoryListBoxFileCompareText,false);
|
||||
DefineMethod('GetItemPath',1,tkVariant,nil,__TDirectoryListBoxGetItemPath,false);
|
||||
DefineMethod('OpenCurrent',0,tkNone,nil,__TDirectoryListBoxOpenCurrent,false);
|
||||
DefineMethod('Update',0,tkNone,nil,__TDirectoryListBoxUpdate,false);
|
||||
DefineProp('Drive',tkVariant,__GetTDirectoryListBoxDrive,__SetTDirectoryListBoxDrive,nil,false,0);
|
||||
DefineProp('Directory',tkVariant,__GetTDirectoryListBoxDirectory,__SetTDirectoryListBoxDirectory,nil,false,0);
|
||||
DefineProp('PreserveCase',tkVariant,__GetTDirectoryListBoxPreserveCase,nil,nil,false,0);
|
||||
DefineProp('CaseSensitive',tkVariant,__GetTDirectoryListBoxCaseSensitive,nil,nil,false,0);
|
||||
end;
|
||||
With Scripter.DefineClass(TDriveComboBox) do
|
||||
begin
|
||||
DefineMethod('Create',1,tkClass,TDriveComboBox,__TDriveComboBoxCreate,true);
|
||||
DefineMethod('Destroy',0,tkNone,nil,__TDriveComboBoxDestroy,false);
|
||||
DefineProp('Text',tkVariant,nil,nil,nil,false,0);
|
||||
DefineProp('Drive',tkVariant,__GetTDriveComboBoxDrive,__SetTDriveComboBoxDrive,nil,false,0);
|
||||
end;
|
||||
With Scripter.DefineClass(TFilterComboBox) do
|
||||
begin
|
||||
DefineMethod('Create',1,tkClass,TFilterComboBox,__TFilterComboBoxCreate,true);
|
||||
DefineMethod('Destroy',0,tkNone,nil,__TFilterComboBoxDestroy,false);
|
||||
DefineProp('Mask',tkVariant,__GetTFilterComboBoxMask,nil,nil,false,0);
|
||||
DefineProp('Text',tkVariant,nil,nil,nil,false,0);
|
||||
end;
|
||||
With Scripter.DefineClass(ClassType) do
|
||||
begin
|
||||
DefineMethod('ProcessPath',4,tkNone,nil,__ProcessPath,false).SetVarArgs([1,2,3]);
|
||||
DefineMethod('MinimizeName',3,tkVariant,nil,__MinimizeName,false);
|
||||
DefineMethod('DirectoryExists',1,tkVariant,nil,__DirectoryExists,false);
|
||||
DefineMethod('ForceDirectories',1,tkVariant,nil,__ForceDirectories,false);
|
||||
AddConstant('ftReadOnly',ftReadOnly);
|
||||
AddConstant('ftHidden',ftHidden);
|
||||
AddConstant('ftSystem',ftSystem);
|
||||
AddConstant('ftVolumeID',ftVolumeID);
|
||||
AddConstant('ftDirectory',ftDirectory);
|
||||
AddConstant('ftArchive',ftArchive);
|
||||
AddConstant('ftNormal',ftNormal);
|
||||
AddConstant('dtUnknown',dtUnknown);
|
||||
AddConstant('dtNoDrive',dtNoDrive);
|
||||
AddConstant('dtFloppy',dtFloppy);
|
||||
AddConstant('dtFixed',dtFixed);
|
||||
AddConstant('dtNetwork',dtNetwork);
|
||||
AddConstant('dtCDROM',dtCDROM);
|
||||
AddConstant('dtRAM',dtRAM);
|
||||
AddConstant('tcLowerCase',tcLowerCase);
|
||||
AddConstant('tcUpperCase',tcUpperCase);
|
||||
AddConstant('sdAllowCreate',sdAllowCreate);
|
||||
AddConstant('sdPerformCreate',sdPerformCreate);
|
||||
AddConstant('sdPrompt',sdPrompt);
|
||||
AddConstant('WNTYPE_DRIVE',WNTYPE_DRIVE);
|
||||
end;
|
||||
end;
|
||||
|
||||
class function TatFileCtrlLibrary.LibraryName: string;
|
||||
begin
|
||||
result := 'FileCtrl';
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterScripterLibrary(TatFileCtrlLibrary, True);
|
||||
|
||||
{$WARNINGS ON}
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user