update to 0.31

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

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
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.