From fdb7491e35ba8de80b9631563154a7b23737fb1e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Tue, 3 Jun 2003 21:57:19 +0000
Subject: *** empty log message ***

svn path=/trunk/Framestein/; revision=680
---
 Source/Framestein.dof |  4 ++--
 Source/Framestein.dpr |  4 +---
 Source/mainunit.pas   | 14 +-------------
 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
-- 
cgit v1.2.1