From aa901783a0dc07f0dc08628d3ca091a9164b0629 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Mon, 30 Dec 2002 22:14:47 +0000
Subject: *** empty log message ***

svn path=/trunk/Framestein/; revision=312
---
 Source/mainunit.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'Source/mainunit.pas')

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.
 
-- 
cgit v1.2.1