diff options
author | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-12-30 22:14:47 +0000 |
---|---|---|
committer | Juha Vehviläinen <jusu@users.sourceforge.net> | 2002-12-30 22:14:47 +0000 |
commit | aa901783a0dc07f0dc08628d3ca091a9164b0629 (patch) | |
tree | 175410946332fe359c01f945dce6dd3a401e7747 /Source/mainunit.pas | |
parent | d80c69296266a6169c0164467b748f197e11d25b (diff) |
*** empty log message ***
svn path=/trunk/Framestein/; revision=312
Diffstat (limited to 'Source/mainunit.pas')
-rw-r--r-- | Source/mainunit.pas | 10 |
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.
|