diff options
author | Juha Vehviläinen <jusu@users.sourceforge.net> | 2003-06-03 21:57:19 +0000 |
---|---|---|
committer | Juha Vehviläinen <jusu@users.sourceforge.net> | 2003-06-03 21:57:19 +0000 |
commit | fdb7491e35ba8de80b9631563154a7b23737fb1e (patch) | |
tree | 24a56f36b90867e69430735574a0a3ec138d78e4 /Source | |
parent | 054e54e33bb45dc5e7ead9d8004c46d534d7a5de (diff) |
*** empty log message ***
svn path=/trunk/Framestein/; revision=680
Diffstat (limited to 'Source')
-rw-r--r-- | Source/Framestein.dof | 4 | ||||
-rw-r--r-- | Source/Framestein.dpr | 4 | ||||
-rw-r--r-- | 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
|