aboutsummaryrefslogtreecommitdiff
path: root/Source
diff options
context:
space:
mode:
authorJuha Vehviläinen <jusu@users.sourceforge.net>2002-07-22 13:32:27 +0000
committerJuha Vehviläinen <jusu@users.sourceforge.net>2002-07-22 13:32:27 +0000
commit47d37b31d91dd24013c51d2e77f21fa0a6097c89 (patch)
tree4ba0c9bbd5d4f336191d097584a2fe496d619253 /Source
parent6106d047e91a07604586ed2632579f85fddf35bc (diff)
update to 0.31
svn path=/trunk/Framestein/; revision=45
Diffstat (limited to 'Source')
-rw-r--r--Source/Framestein.cfg10
-rw-r--r--Source/Framestein.dof15
-rw-r--r--Source/Framestein.dsk106
-rw-r--r--Source/Framestein.resbin4056 -> 4056 bytes
-rwxr-xr-xSource/cleanup.bat4
-rw-r--r--Source/logunit.dfm4
-rw-r--r--Source/mainunit.pas8
-rw-r--r--Source/progressunit.dfm28
-rw-r--r--Source/progressunit.pas25
9 files changed, 161 insertions, 39 deletions
diff --git a/Source/Framestein.cfg b/Source/Framestein.cfg
index cdbef8d..dc72219 100644
--- a/Source/Framestein.cfg
+++ b/Source/Framestein.cfg
@@ -24,7 +24,7 @@
-$X+
-$YD
-$Z1
--cg
+-cc
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
@@ -33,7 +33,7 @@
-K$00400000
-LE"c:\program files\borland\delphi5\Projects\Bpl"
-LN"c:\program files\borland\delphi5\Projects\Bpl"
--U"\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib;\lab\common\pshost;C:\lab\common\G32"
--O"\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib;\lab\common\pshost;C:\lab\common\G32"
--I"\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib;\lab\common\pshost;C:\lab\common\G32"
--R"\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib;\lab\common\pshost;C:\lab\common\G32"
+-U"g:\lab\common;g:\lab\common\DelphiX2000_0717-2\Source;g:\lab\common\fastlib;g:\lab\common\pshost;g:\lab\common\G32;g:\lab\common\fastlib"
+-O"g:\lab\common;g:\lab\common\DelphiX2000_0717-2\Source;g:\lab\common\fastlib;g:\lab\common\pshost;g:\lab\common\G32;g:\lab\common\fastlib"
+-I"g:\lab\common;g:\lab\common\DelphiX2000_0717-2\Source;g:\lab\common\fastlib;g:\lab\common\pshost;g:\lab\common\G32;g:\lab\common\fastlib"
+-R"g:\lab\common;g:\lab\common\DelphiX2000_0717-2\Source;g:\lab\common\fastlib;g:\lab\common\pshost;g:\lab\common\G32;g:\lab\common\fastlib"
diff --git a/Source/Framestein.dof b/Source/Framestein.dof
index d217e75..d2d8419 100644
--- a/Source/Framestein.dof
+++ b/Source/Framestein.dof
@@ -31,7 +31,7 @@ UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=
[Linker]
MapFile=0
OutputObjs=0
-ConsoleApp=1
+ConsoleApp=0
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
@@ -43,7 +43,7 @@ OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
-SearchPath=\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib;\lab\common\pshost;C:\lab\common\G32
+SearchPath=g:\lab\common;g:\lab\common\DelphiX2000_0717-2\Source;g:\lab\common\fastlib;g:\lab\common\pshost;g:\lab\common\G32;g:\lab\common\fastlib
Packages=Vcl50;Vclx50;VclSmp50;Qrpt50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;TeeUI50;TeeDB50;Tee50;TeeQR50;VCLIB50;vclie50;Inetdb50;Inet50;NMFast50;dclocx50;dclaxserver50;temppak;janDrawPack;pdpak
Conditionals=
DebugSourceDirs=
@@ -61,7 +61,7 @@ AutoIncBuild=1
MajorVer=0
MinorVer=1
Release=1
-Build=77
+Build=79
Debug=0
PreRelease=1
Special=0
@@ -72,7 +72,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
-FileVersion=0.1.1.77
+FileVersion=0.1.1.79
InternalName=
LegalCopyright=
LegalTrademarks=
@@ -84,8 +84,5 @@ Comments=
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
-Count=4
-Item0=\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib;\lab\common\pshost;C:\lab\common\G32
-Item1=\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib;\lab\common\pshost
-Item2=\lab\common;C:\lab\common\DelphiX2000_0717-2\Source;\lab\common\fastlib
-Item3=\lab\common;C:\lab\common\DelphiX2000_0717-2\Source
+Count=1
+Item0=g:\lab\common;g:\lab\common\DelphiX2000_0717-2\Source;g:\lab\common\fastlib;g:\lab\common\pshost;g:\lab\common\G32;g:\lab\common\fastlib
diff --git a/Source/Framestein.dsk b/Source/Framestein.dsk
index 69b37b9..a20b657 100644
--- a/Source/Framestein.dsk
+++ b/Source/Framestein.dsk
@@ -1,31 +1,65 @@
[Closed Files]
-File_0=SourceModule,'c:\lab\Framestein\mainunit.pas',0,1,417,14,429,1,0
-File_1=SourceModule,'c:\lab\Framestein\fsframeunit.pas',0,1,746,1,758,1,0
-File_2=SourceModule,'c:\lab\Framestein\fsaviunit.pas',0,1,45,12,56,0,0
-File_3=SourceModule,'c:\lab\Framestein\FsAviWriter.pas',0,1,312,15,323,0,0
-File_4=SourceModule,'C:\lab\Framestein\progressunit.pas',0,1,1,13,10,0,0
-File_5=SourceModule,'c:\lab\Framestein\logunit.pas',0,1,38,1,53,1,0
-File_6=SourceModule,'c:\lab\framestein\fsspeedbutton.pas',0,1,30,1,40,0,0
-File_7=SourceModule,'c:\lab\Framestein\fsbrowserunit.pas',0,1,93,1,105,0,0
-File_8=SourceModule,'c:\lab\Framestein\pluginunit.pas',0,1,134,1,147,0,0
-File_9=SourceModule,'c:\lab\common\Strz.pas',0,1,1,1,1,0,0
+File_0=SourceModule,'G:\fsrel\Framestein\Source\Strz.pas',0,1,25,1,30,0,0
+File_1=SourceModule,'G:\fsrel\Framestein\Source\fscopyunit.pas',0,1,124,25,140,1,0
+File_2=SourceModule,'G:\fsrel\Framestein\Source\logunit.pas',0,1,1,32,11,1,0
+File_3=SourceModule,'G:\fsrel\Framestein\Source\pluginunit.pas',0,1,227,1,38,0,0
+File_4=SourceModule,'G:\fsrel\Framestein\Source\fsframeunit.pas',0,1,1,1,1,0,0
+File_5=SourceModule,'G:\fsrel\Framestein\Source\mainunit.pas',0,1,470,15,480,1,0
+File_6=SourceModule,'c:\lab\Framestein\mainunit.pas',0,1,417,14,429,1,0
+File_7=SourceModule,'c:\lab\Framestein\fsframeunit.pas',0,1,746,1,758,1,0
+File_8=SourceModule,'c:\lab\Framestein\fsaviunit.pas',0,1,45,12,56,0,0
+File_9=SourceModule,'c:\lab\Framestein\FsAviWriter.pas',0,1,312,15,323,0,0
[Modules]
-Count=0
-EditWindowCount=0
+Module0=G:\fsrel\Framestein\Source\Framestein.dpr
+Count=1
+EditWindowCount=1
-[C:\Program Files\Borland\Delphi5\Projects\ProjectGroup1.bpg]
+[G:\fsrel\Framestein\Source\Framestein.dpr]
+ModuleType=SourceModule
FormState=0
FormOnTop=0
-[c:\lab\Framestein\framestein.dpr]
+[C:\Program Files\Borland\Delphi5\Projects\ProjectGroup1.bpg]
FormState=0
FormOnTop=0
-[c:\lab\Framestein\Framestein.todo]
+[G:\fsrel\Framestein\Source\Framestein.todo]
FormState=0
FormOnTop=0
+[EditWindow0]
+ViewCount=1
+CurrentView=0
+View0=0
+CodeExplorer=CodeExplorer@EditWindow0
+MessageView=MessageView@EditWindow0
+Create=1
+Visible=1
+State=0
+Left=251
+Top=122
+Width=696
+Height=482
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=688
+ClientHeight=455
+LeftPanelSize=140
+LeftPanelClients=CodeExplorer@EditWindow0,ProjectManager
+LeftPanelData=00000400010000000C000000436F64654578706C6F72657200000000000000000000000000000000000100000000000000001200000050726F6A6563744D616E61676572466F726DFFFFFFFF
+RightPanelSize=0
+BottomPanelSize=0
+BottomPanelClients=MessageView@EditWindow0
+BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF
+
+[View0]
+Module=G:\fsrel\Framestein\Source\Framestein.dpr
+CursorX=1
+CursorY=1
+TopLine=1
+LeftCol=1
+
[Watches]
Count=1
Watch0='longint(pointer(_pshost.fdata+100+((i-1)*4)^)',256,0,18,1,0
@@ -53,12 +87,12 @@ ClientHeight=78
[ProjectManager]
Create=1
-Visible=0
+Visible=1
State=0
-Left=245
-Top=124
-Width=148
-Height=449
+Left=0
+Top=12
+Width=140
+Height=425
MaxLeft=-1
MaxTop=-1
ClientWidth=140
@@ -217,6 +251,38 @@ SortOrder=0
ShowHints=1
ShowChecked=1
+[CodeExplorer@EditWindow0]
+Create=1
+Visible=0
+State=0
+Left=0
+Top=12
+Width=140
+Height=425
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=140
+ClientHeight=425
+TBDockHeight=305
+LRDockWidth=140
+Dockable=1
+
+[MessageView@EditWindow0]
+Create=1
+Visible=0
+State=0
+Left=12
+Top=0
+Width=676
+Height=52
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=676
+ClientHeight=52
+TBDockHeight=52
+LRDockWidth=443
+Dockable=1
+
[DockHosts]
DockHostCount=0
diff --git a/Source/Framestein.res b/Source/Framestein.res
index ee5ac49..6b96418 100644
--- a/Source/Framestein.res
+++ b/Source/Framestein.res
Binary files differ
diff --git a/Source/cleanup.bat b/Source/cleanup.bat
new file mode 100755
index 0000000..df7bec4
--- /dev/null
+++ b/Source/cleanup.bat
@@ -0,0 +1,4 @@
+@echo off
+echo Cleaning up...
+
+del *.dcu
diff --git a/Source/logunit.dfm b/Source/logunit.dfm
index bd8c429..4cc93c4 100644
--- a/Source/logunit.dfm
+++ b/Source/logunit.dfm
@@ -4,7 +4,7 @@ object log: Tlog
Width = 603
Height = 666
BorderStyle = bsSizeToolWin
- Caption = 'Console / Log'
+ Caption = 'Debug log'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -86,6 +86,7 @@ object log: Tlog
Align = alTop
BevelOuter = bvNone
TabOrder = 1
+ Visible = False
end
object Panel3: TPanel
Left = 0
@@ -96,5 +97,6 @@ object log: Tlog
BevelOuter = bvLowered
Caption = 'Console'
TabOrder = 3
+ Visible = False
end
end
diff --git a/Source/mainunit.pas b/Source/mainunit.pas
index ebf3f46..2cb7500 100644
--- a/Source/mainunit.pas
+++ b/Source/mainunit.pas
@@ -103,8 +103,8 @@ type
end;
const
- STARTMSG = 'Framestein 0.30 running...';
- MCAPTION = 'Framestein 0.30';
+ STARTMSG = 'Framestein 0.31 running...';
+ MCAPTION = 'Framestein 0.31';
SocketBufferSize = 100000;
var
@@ -477,8 +477,8 @@ end;
procedure Tmain.Post(const S: String);
begin
-// Writeln(TimeToStr(Time), ' ', S);
- REConsole.Lines.Add(TimeToStr(Time)+' '+S);
+ Writeln(TimeToStr(Time), ' ', S);
+// REConsole.Lines.Add(TimeToStr(Time)+' '+S);
end;
procedure Tmain.Reset;
diff --git a/Source/progressunit.dfm b/Source/progressunit.dfm
new file mode 100644
index 0000000..297d4cd
--- /dev/null
+++ b/Source/progressunit.dfm
@@ -0,0 +1,28 @@
+object Progress: TProgress
+ Left = 262
+ Top = 330
+ Width = 618
+ Height = 53
+ BorderStyle = bsSizeToolWin
+ Caption = 'Progress'
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poScreenCenter
+ PixelsPerInch = 96
+ TextHeight = 13
+ object pb1: TProgressBar
+ Left = 0
+ Top = 0
+ Width = 610
+ Height = 26
+ Align = alClient
+ Min = 0
+ Max = 100
+ TabOrder = 0
+ end
+end
diff --git a/Source/progressunit.pas b/Source/progressunit.pas
new file mode 100644
index 0000000..6859957
--- /dev/null
+++ b/Source/progressunit.pas
@@ -0,0 +1,25 @@
+unit progressunit;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ ComCtrls;
+
+type
+ TProgress = class(TForm)
+ pb1: TProgressBar;
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Progress: TProgress;
+
+implementation
+
+{$R *.DFM}
+
+end.