*** empty log message ***

svn path=/trunk/Framestein/; revision=312

1 files changed, 9 insertions, 1 deletions

diff --git a/Source/mainunit.pas b/Source/mainunit.pas
index 1b2a6e1..aebb64b 100644
--- a/Source/mainunit.pas
+++ b/Source/mainunit.pas
@@ -34,6 +34,7 @@ type
     csToPd: TClientSocket;

     MiExit: TMenuItem;

     REConsole: TRichEdit;

+    MiToolbar: TMenuItem;

     procedure ss1ClientRead(Sender: TObject; Socket: TCustomWinSocket);

     procedure FormCreate(Sender: TObject);

     procedure ss1ClientError(Sender: TObject; Socket: TCustomWinSocket;

@@ -63,6 +64,7 @@ type
     procedure MiExitClick(Sender: TObject);

     procedure ImageLogoDblClick(Sender: TObject);

     procedure FormClose(Sender: TObject; var Action: TCloseAction);

+    procedure MiToolbarClick(Sender: TObject);

   private

     { Private declarations }

     SocketMem: Pointer;

@@ -142,7 +144,7 @@ uses
   fscopyunit, fstextunit, fsdrawunit, fsbrowserunit,

   fsinfounit, fsaviunit,

   fastfiles,

-  Strz, logunit, configureunit, progressunit;

+  Strz, logunit, configureunit, progressunit, toolbarunit;

 

 {$IFDEF FSDLL}

 procedure TMainThread.Execute;

@@ -944,5 +946,11 @@ begin
 {$ENDIF}

 end;

 

+procedure Tmain.MiToolbarClick(Sender: TObject);

+begin

+  MiToolbar.Checked := not MiToolbar.Checked;

+  Toolbar.Visible := MiToolbar.Checked;

+end;

+

 end.