aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuha Vehviläinen <jusu@users.sourceforge.net>2003-06-03 21:57:19 +0000
committerJuha Vehviläinen <jusu@users.sourceforge.net>2003-06-03 21:57:19 +0000
commitfdb7491e35ba8de80b9631563154a7b23737fb1e (patch)
tree24a56f36b90867e69430735574a0a3ec138d78e4
parent054e54e33bb45dc5e7ead9d8004c46d534d7a5de (diff)
*** empty log message ***
svn path=/trunk/Framestein/; revision=680
-rw-r--r--Source/Framestein.dof4
-rw-r--r--Source/Framestein.dpr4
-rw-r--r--Source/mainunit.pas14
3 files changed, 4 insertions, 18 deletions
diff --git a/Source/Framestein.dof b/Source/Framestein.dof
index 75376b1..a008ddb 100644
--- a/Source/Framestein.dof
+++ b/Source/Framestein.dof
@@ -85,8 +85,8 @@ Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=7
-Item0=E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32;E:\fs\Framestein\Source
-Item1=e:\lab\common\fastlib;e:\lab\common\pshost;e:\lab\common\G32;e:\fs\framestein\source
+Item0=e:\lab\common\fastlib;e:\lab\common\pshost;e:\lab\common\G32;e:\fs\framestein\source
+Item1=E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32;e:\fs\framestein\source
Item2=e:\lab\common\fastlib;e:\lab\common\pshost;e:\lab\common\G32
Item3=g:\lab\common\fastlib;G:\lab\common\pshost;G:\lab\common\G32
Item4=g:\lab\common\fastlib;G:\lab\common\pshost
diff --git a/Source/Framestein.dpr b/Source/Framestein.dpr
index ebb7a0a..009543a 100644
--- a/Source/Framestein.dpr
+++ b/Source/Framestein.dpr
@@ -18,8 +18,7 @@ uses
pluginunit in 'pluginunit.pas',
progressunit in 'progressunit.pas' {Progress},
configureunit in 'configureunit.pas' {configure},
- toolbarunit in 'toolbarunit.pas' {toolbar},
- fsmemounit in 'fsmemounit.pas' {fsmemo};
+ toolbarunit in 'toolbarunit.pas' {toolbar};
{$R *.RES}
@@ -31,7 +30,6 @@ begin
Application.CreateForm(Tconfigure, configure);
Application.CreateForm(Tlog, log);
Application.CreateForm(Ttoolbar, toolbar);
- Application.CreateForm(Tfsmemo, fsmemo);
Application.Run;
end.
diff --git a/Source/mainunit.pas b/Source/mainunit.pas
index 1985c19..c279eae 100644
--- a/Source/mainunit.pas
+++ b/Source/mainunit.pas
@@ -16,7 +16,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ScktComp,
- pluginunit, fsformunit, fsframeunit, fsmemounit,
+ pluginunit, fsformunit, fsframeunit,
FastDIB,
ExtCtrls, Menus, C2PhotoShopHost, Filez, ComCtrls, Buttons;
@@ -248,7 +248,6 @@ var
fsbrowser: TFsBrowser;
fsinfo: TFsInfo;
fsavi: TFsAvi;
- fsmemo: TFsMemo;
f: TFsForm;
begin
if logstate then
@@ -321,17 +320,6 @@ begin
fsavi.Name := CompName(s2);
fsavi.Caption := s2;
end else
- if S1='MEMO' then begin
- FreeIfCompExists(CompName(s2));
- fsmemo := TFsMemo.Create(Self);
- fsmemo.PdName := s2;
- fsmemo.Name := CompName(s2);
- fsmemo.Caption := s2;
- i := ItemCount('TFsMemo')-1;
- fsmemo.Left := fsmemo.Width*(i div 4);
- fsmemo.Top := fsmemo.Height*(i mod 4);
- fsmemo.Show;
- end else
if S1='MINIMIZEALL' then begin
minimizeall;
end else