paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 10:37:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

new menueditor from Martin Patik

Browse Source 
git-svn-id: trunk@4221 -
This commit is contained in:
mattias 2003-06-01 13:00:34 +00:00
parent ed5f8759dc
commit fc6f9fdd12
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/menueditorform.pas
View File

@ -82,8 +82,7 @@ implementation
{ TMainMenuEditorForm }
constructor TMainMenuEditorForm.CreateWithMenu(aOwner: TComponent; aMenu: TMenu;
aEditor: TComponentEditor; aDesigner: TDesigner);
constructor TMainMenuEditorForm.CreateWithMenu(aOwner: TComponent; aMenu: TMenu; aEditor: TComponentEditor; aDesigner: TDesigner);
var
Cmp: TPanel;
Cmp2: TScrollBox;
@ -101,7 +100,7 @@ begin
fEditor:=aEditor;
DesignerMainMenu:=TDesignerMainMenu.CreateWithMenu(Self, fMenu, fEditor);
DesignerMainMenu:=TDesignerMainMenu.Create(Self, fMenu, fEditor);
Cmp2:=TScrollBox.Create(self);
with Cmp2 do
@ -198,7 +197,7 @@ begin
fMenu:=TMenu(fDesigner.Form.Components[j]);
end;
end;
DesignerMainMenu:=TDesignerMainMenu.CreateWithMenu(Self, fMenu, fEditor);
DesignerMainMenu:=TDesignerMainMenu.Create(Self, fMenu, fEditor);
with DesignerMainMenu do
begin
Parent:=Self;
@ -225,8 +224,7 @@ end;
{ TMainMenuComponentEditor}
constructor TMainMenuComponentEditor.Create(AComponent: TComponent;
aDesigner: TComponentEditorDesigner);
constructor TMainMenuComponentEditor.Create(AComponent: TComponent; aDesigner: TComponentEditorDesigner);
begin
inherited Create(AComponent,ADesigner);
fDesigner:=TDesigner(aDesigner);