Main menu disappeared

Timothy Groves6-20-2012 16:50 UTC

This happened after I added a ButtonPanel (which I then removed) and two Bitmap Buttons (which are still there).

Howard Page-Clark6-20-2012 17:56 UTC

Timothy Groves wrote
I am working on a project, and decided for the first time ever to use a main menu. I set it up, it worked, and then it vanished. It is still present in the IDE and source code, but it no longer appears when the app is run.

You could check that the menuItems' Visible properties are all True. Else post your form.pas and form.lfm here and others may notice something amiss. What Lazarus version and what OS do you compile for?

Reply by email

Timothy Groves6-20-2012 18:07 UTC

to Howard Page-Clark

Howard Page-Clark wrote 9 lines

On 20/6/12 5:50, Timothy Groves wrote: > I am working on a project, and decided for the first time ever to use a > main menu. I set it up, it worked, and then it vanished. It is still > present in the IDE and source code, but it no longer appears when the > app is run. You could check that the menuItems' Visible properties are all True. Else post your form.pas and form.lfm here and others may notice something amiss. What Lazarus version and what OS do you compile for?

unit imain;
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
Menus, StdCtrls, Buttons,

   iabout;
type
   { TfrmMainWindow }
   TfrmMainWindow = class(TForm)
     btnNewStory: TBitBtn;
     btnRemoveStory: TBitBtn;
     Label1: TLabel;
     lstStories: TListBox;
     MainMenu: TMainMenu;
     mnuHelpAbout: TMenuItem;
     mnuHelp: TMenuItem;
     mnuEdit: TMenuItem;
     mnuEditProfiles: TMenuItem;
     mnuFileExit: TMenuItem;
     mnuFileSettings: TMenuItem;
     mnuFile: TMenuItem;
     procedure mnuFileExitClick(Sender: TObject);
     procedure mnuHelpAboutClick(Sender: TObject);
   private
     { private declarations }
   public
     { public declarations }
   end;
var
   frmMainWindow: TfrmMainWindow;
implementation
{$R *.lfm}

{ TfrmMainWindow }

procedure TfrmMainWindow.mnuHelpAboutClick(Sender: TObject);
begin
   frmAboutBox.Show;
end;
procedure TfrmMainWindow.mnuFileExitClick(Sender: TObject);
begin
   frmMainWindow.Close;
end;
end.

object frmMainWindow: TfrmMainWindow
Left = 508
Height = 450
Top = 274
Width = 780
BorderStyle = bsDialog
Caption = 'FicMake 1.0.0'
ClientHeight = 423
ClientWidth = 780
Menu = MainMenu
LCLVersion = '0.9.30.2'
object Label1: TLabel
Left = 8
Height = 20
Top = 16
Width = 74
Caption = 'Story List'
ParentColor = False

   end
   object lstStories: TListBox
     Left = 4
     Height = 376
     Top = 41
     Width = 259
     ItemHeight = 0
     ScrollWidth = 257
     TabOrder = 0
     TopIndex = -1
   end
   object btnNewStory: TBitBtn
     Left = 200
     Height = 28
     Top = 8
     Width = 28
     Glyph.Data = {
       36040000424D3604000000000000360000002800000010000000100000000100
       2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080004000800080008000800080
       0040FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000800080009F00FF009F00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00008000400080
       008000800080008000800080008000800080008000C000BF00FF00BF00FF0080
       00C000800080008000800080008000800080008000800080004000800080009F
       00FF00BF00FF00BF00FF00BF00FF00BF00FF00BF00FF00DF00FF00DF00FF00BF
       00FF00BF00FF00BF00FF00BF00FF00BF00FF009F00FF0080008000800080009F
       00FF00BF00FF00BF00FF00BF00FF00BF00FF00BF00FF00DF00FF00DF00FF00BF
       00FF00BF00FF00BF00FF00BF00FF00BF00FF009F00FF00800080008000400080
       008000800080008000800080008000800080008000C000BF00FF00BF00FF0080
       00C0008000800080008000800080008000800080008000800040FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080008000BF00FF00BF00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000800080009F00FF009F00FF0080
       0080FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000080004000800080008000800080
       0040FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
     }
     TabOrder = 1
   end
   object btnRemoveStory: TBitBtn
     Left = 232
     Height = 28
     Top = 8
     Width = 28
     Glyph.Data = {
       36040000424D3604000000000000360000002800000010000000100000000100
       2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000080400000
       8080000080800000808000008080000080800000808000008080000080800000
       8080000080800000808000008080000080800000808000008040000080800000
       9FFF0000BFFF0000BFFF0000BFFF0000BFFF0000BFFF0000BFFF0000BFFF0000
       BFFF0000BFFF0000BFFF0000BFFF0000BFFF00009FFF00008080000080800000
       9FFF0000BFFF0000BFFF0000BFFF0000BFFF0000BFFF0000BFFF0000BFFF0000
       BFFF0000BFFF0000BFFF0000BFFF0000BFFF00009FFF00008080000080400000
       8080000080800000808000008080000080800000808000008080000080800000
       8080000080800000808000008080000080800000808000008040FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
     }
     TabOrder = 2
   end
   object MainMenu: TMainMenu
     left = 120
     top = 8
     object mnuFile: TMenuItem
       Caption = '&File'
       ShortCut = 32838
       object mnuFileSettings: TMenuItem
         Caption = '&Settings'
         ShortCut = 32851
       end
       object mnuFileExit: TMenuItem
         Caption = 'E&xit'
         ShortCut = 32856
         OnClick = mnuFileExitClick
       end
     end
     object mnuEdit: TMenuItem
       Caption = '&Edit'
       ShortCut = 32837
       object mnuEditProfiles: TMenuItem
         Caption = '&Profiles'
         ShortCut = 32848
       end
     end
     object mnuHelp: TMenuItem
       Caption = '&Help'
       ShortCut = 32840
       object mnuHelpAbout: TMenuItem
         Caption = 'About...'
         OnClick = mnuHelpAboutClick
       end
     end
   end

end

Lazarus 0.9.30.2.2 on XUbuntu 12.04.

Reply by email

Mattias Gaertner6-20-2012 18:50 UTC

to Timothy Groves: I am working on a project, and decided for the first time ever to use a main menu. I set…

Timothy Groves hat am 20. Juni 2012 um 18:50
geschrieben:

Show quoted text 7 lines

I am working on a project, and decided for the first time ever to use a main menu. I set it up, it worked, and then it vanished. It is still present in the IDE and source code, but it no longer appears when the app is run. This happened after I added a ButtonPanel (which I then removed) and two Bitmap Buttons (which are still there).

Maybe you accidentally set the form's borderstyle to bsDialog. Set it to bsSizeable.

Mattias
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20120620/755b918b/attachment.html>

Reply by email

Timothy Groves6-20-2012 19:50 UTC

to Mattias Gaertner

Mattias Gaertner wrote 6 lines

Maybe you accidentally set the form's borderstyle to bsDialog. Set it to bsSizeable.

That was it, thanks. I wanted a non-resizeable border, but bsSingle will work just as well.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20120620/03317d69/attachment.html>

Reply by email

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Main menu disappeared