paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 00:20:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* component-palette: TMainMenu replaces TMenu

Browse Source 
+ TMenuItem registered as unvisible component
+ TMainMenu registered as visible component
stoppok

git-svn-id: trunk@1718 -
This commit is contained in:
lazarus 2002-05-30 21:40:09 +00:00
parent 4c6f8b55e7
commit 5a6ebefa4b
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/idecomp.pp
View File

@ -307,7 +307,7 @@ procedure RegisterStandardComponents(
begin
RegisterComponentsProc:=@RegisterComponents;
RegisterComponents('Standard','Menus',[TMenu,TPopupMenu]);
RegisterComponents('Standard','Menus',[TMainMenu,TPopupMenu]);
RegisterComponents('Standard','Buttons',[TButton]);
RegisterComponents('Standard','StdCtrls',[TEdit,TLabel,TMemo,TCheckBox
,TListBox,TRadioButton,TComboBox,TScrollBar,TGroupBox,TToggleBox]);
@ -339,6 +339,7 @@ begin
// components that are streamed but not selectable in the IDE
RegisterComponents('','ExtCtrls',[TPage]);
RegisterComponents('','ComCtrls',[TToolbutton]);
RegisterComponents('','menus', [TMenuItem]);
RegisterComponentsProc:=nil;

10
ide/main.pp
View File

@ -5844,7 +5844,9 @@ begin
'Form renaming in source is not implemented yet.',
mtInformation,[mbOk],0);
end else begin
raise Exception.Create('TMainIDE.OnDesignerRenameComponent internal error');
if (aComponent is TMenuItem) or (aComponent is TMenu)
then writeln ('**SH: Warn: TMainIDE.OnDesignerRenameComponent MenuItem / TMenu with Owner = nil'+self.Name)
else raise Exception.Create('TMainIDE.OnDesignerRenameComponent internal error:'+AComponent.Name);
end;
end;
@ -6402,6 +6404,12 @@ end.
{ =============================================================================
$Log$
Revision 1.303 2002/05/30 21:40:08 lazarus
* component-palette: TMainMenu replaces TMenu
+ TMenuItem registered as unvisible component
+ TMainMenu registered as visible component
stoppok
Revision 1.302 2002/05/30 14:18:46 lazarus
MG: filedialogs now saves size and history