From fdb7491e35ba8de80b9631563154a7b23737fb1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= Date: Tue, 3 Jun 2003 21:57:19 +0000 Subject: *** empty log message *** svn path=/trunk/Framestein/; revision=680 --- Source/mainunit.pas | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) (limited to 'Source/mainunit.pas') 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