From 8e3c093fbb8a4b7eb84c74cd6a00544e3fa1460d Mon Sep 17 00:00:00 2001 From: Raymond Date: Mon, 30 Nov 2009 15:55:14 +0000 Subject: [PATCH] git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@252 3f818213-9676-44b0-a9b4-5e4c4e03d09d --- Projects/SAMufasaGUI/testunit.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas index 35da3b9..2a326e5 100644 --- a/Projects/SAMufasaGUI/testunit.pas +++ b/Projects/SAMufasaGUI/testunit.pas @@ -1048,7 +1048,11 @@ end; procedure TForm1.MenuItemDebugImageClick(Sender: TObject); begin - DebugImgForm.Show; + MenuItemDebugImage.Checked := not DebugImgForm.Visible; + if MenuItemDebugImage.Checked then + DebugImgForm.Show + else + DebugImgForm.Hide; end; procedure TForm1.MenuItemShowClick(Sender: TObject);