From 47d37b31d91dd24013c51d2e77f21fa0a6097c89 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= Date: Mon, 22 Jul 2002 13:32:27 +0000 Subject: update to 0.31 svn path=/trunk/Framestein/; revision=45 --- Source/Framestein.cfg | 10 ++--- Source/Framestein.dof | 15 +++---- Source/Framestein.dsk | 106 +++++++++++++++++++++++++++++++++++++++--------- Source/Framestein.res | Bin 4056 -> 4056 bytes Source/cleanup.bat | 4 ++ Source/logunit.dfm | 4 +- Source/mainunit.pas | 8 ++-- Source/progressunit.dfm | 28 +++++++++++++ Source/progressunit.pas | 25 ++++++++++++ 9 files changed, 161 insertions(+), 39 deletions(-) create mode 100755 Source/cleanup.bat create mode 100644 Source/progressunit.dfm create mode 100644 Source/progressunit.pas 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 Binary files a/Source/Framestein.res and b/Source/Framestein.res 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. -- cgit v1.2.1