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);