On 12-06-20 01:56 PM, Howard Page-Clark wrote:
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.
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
