paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 21:14:01 +02:00
Code Issues Packages Projects Releases Wiki Activity
52766063ca
lazarus/designer/designermenu.pp
mattias c026b52cc5 IDE: menu designer: prevent crash when all menu items were deleted, bug #23870 
git-svn-id: trunk@40241 -
2013-02-10 12:28:36 +00:00

2218 lines
79 KiB
ObjectPascal
Raw Blame History

{
/***************************************************************************
designermenu.pas
----------------
***************************************************************************/
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
Author: Martin Patik
}
unit DesignerMenu;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Menus, Graphics,
GraphType, Buttons, StdCtrls, ExtCtrls, ComponentEditors, LazConf, ComCtrls,
Arrow, ButtonPanel, Laz2_XMLCfg, LazarusIDEStrConsts, PropEdits, IDEProcs;
const
// Length of a field for storing index positions of DesignerMenuItem, we use it to find the right MenuItem
INDEX_SEQUENCE_LENGTH = 100;
type
{ TTemplateMenuForm }
TTemplateMenuForm = class(TForm)
ButtonPanel1: TButtonPanel;
Edit_template_description: TEdit;
Label_template_view: TLabel;
Label_template_description: TLabel;
ListBoxView: TListBox;
TemplatesListBox: TListBox;
procedure CancelBitBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure OKBitBtnClick(Sender: TObject);
procedure TemplatesListBoxClick(Sender: TObject);
private
SelectedMenuTemplate: Integer;
Description: string;
subitem_level: Integer;
fAction: Integer;
public
function GetSelectedMenuTemplate: Integer;
function GetDescription: string;
procedure TemplateView(templatemenuitem: string; default_template: Integer);
end;
{ TDesignerMenuItem }
TDesignerMenuItem = class
public
SelfPanel: TPanel;
SubMenuPanel: TPanel;
SubMenuArrow: TArrow;
CaptionLabel: TLabel;
ParentMenu: TDesignerMenuItem;
SubMenu: TDesignerMenuItem;
PrevItem: TDesignerMenuItem;
NextItem: TDesignerMenuItem;
Index: Integer;
Caption: string;
coord: TRect;
Level: Integer;
Selected: Boolean;
Active: Boolean;
SelfPanelCreated: Boolean;
SubMenuPanelCreated: Boolean;
ID: string;
RealMenuItem: TMenuItem;
constructor Create(ARealMenuItem: TMenuItem);
end;
{ TDesignerMainMenu }
TDesignerMainMenu = class(TCustomControl)
private
fRoot: TDesignerMenuItem;
fPanel: TPanel;
fDesignerMenuItemIdent: Integer;
fParentCanvas: TCanvas;
fSelectedDesignerMenuItem: string;
fMenu: TMenu;
fDefaultComponentEditor: TDefaultComponentEditor;
FDesignerPopupMenu: TPopupMenu;
temp_panel: TPanel;
temp_level: Integer;
temp_newitemcounter: Integer;
index_sequence: Array[1..INDEX_SEQUENCE_LENGTH] of Integer;
function GetDesigner: TComponentEditorDesigner;
procedure SetRoot(const AValue: TDesignerMenuItem);
protected
procedure DesignerSetSelection(const ASelection: TPersistentSelectionList);
procedure PersistentDeleting(APersistent: TPersistent);
function SearchItemByPanel(DMenuItem: TDesignerMenuItem; APanel: TPanel): TDesignerMenuItem;
procedure ClearAllMenus;
public
// Constructor and destructor
constructor CreateWithMenu(AOwner: TComponent; AMenu: TMenu);
destructor Destroy; override;
// Properties for accesing private variables
property Root: TDesignerMenuItem read FRoot write SetRoot;
property Panel: TPanel read FPanel write FPanel;
property DesignerMenuItemIdent: Integer read FDesignerMenuItemIdent write FDesignerMenuItemIdent;
property SelectedDesignerMenuItem: string read FSelectedDesignerMenuItem write FSelectedDesignerMenuItem;
property ParentCanvas: TCanvas read FParentCanvas write FParentCanvas;
property Menu: TMenu read fMenu;
// Loading menu functions and initialization function
procedure LoadMainMenu;
procedure Init(DMenuItem: TDesignerMenuItem);
procedure Link(AMenuItem: TMenuItem; ParentMI: TDesignerMenuItem);
// Draw function and supplementary functions for setting coordinates
procedure RealignDesigner;
procedure Draw(DMenuItem: TDesignerMenuItem; FormPanel,SubMenuPanel: TPanel); //draw function
procedure SetCoordinates(Coord_Left,Coord_Top,Coord_Right: Integer; DMenuItem: TDesignerMenuItem); //coord. of each designermenuitem
function GetSubMenuHeight(DMenuItem: TDesignerMenuItem; LeftPos,TopPos: Integer; Ident: string): TRect; //width and height of submenu panel
function GetMaxCoordinates(DMenuItem: TDesignerMenuItem; Max_Width, Max_Height: Integer): TRect; //width and height of all expanded menu items
// Event handling
procedure MenuItemMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MenuItemDblClick(Sender: TObject);
procedure AddNewItemBeforeClick(Sender: TObject);
procedure AddNewItemAfterClick(Sender: TObject);
procedure AddSubMenuClick(Sender: TObject);
procedure HandleOnClickEventClick(Sender: TObject);
procedure MoveUpClick(Sender: TObject);
procedure MoveDownClick(Sender: TObject);
procedure DeleteItemClick(Sender: TObject);
procedure InsertFromTemplateClick(Sender: TObject);
procedure SaveAsTemplateClick(Sender: TObject);
procedure DeleteFromTemplateClick(Sender: TObject);
procedure OnDesignerModified(Sender: TObject);
procedure OnComponentAdded(Sender: TObject);
// Functions for editing menus
function AddNewItemBefore(DMenuItem: TDesignerMenuItem; Ident: string): TDesignerMenuItem;
function AddNewItemAfter(DMenuItem: TDesignerMenuItem; Ident: string): TDesignerMenuItem;
function AddSubMenu(DMenuItem: TDesignerMenuItem; Ident: string): TDesignerMenuItem;
function MoveUp(DMenuItem: TDesignerMenuItem; Ident: string): Integer;
function MoveDown(DMenuItem: TDesignerMenuItem; Ident: string): Integer;
function DeleteItem(DMenuItem: TDesignerMenuItem): Integer;
function ChangeCaption(DMenuItem: TDesignerMenuItem; const newcaption: string): Integer;
procedure InsertFromTemplate(Item,Ident: string);
procedure SaveAsTemplate(Item,Ident: string);
procedure ReplaceInTemplate(old_Item, new_Item: string);
function ChangeMenuItem(DMenuItem: TDesignerMenuItem; TheAction: Integer; Ident: string): Boolean;
// Function for updating the real menu (which is the edited one) and supplementary functions for
// building a search index which is needed to locate an MenuItem in real menu which has to be update
procedure InitIndexSequence;
function CreateIndexSequence(DMenuItem: TDesignerMenuItem; Ident: string; Ind: Integer): Boolean;
function UpdateMenu(AMenuItem: TMenuItem; DMenuItem: TDesignerMenuItem; Ind,TheAction: Integer): TMenuItem;
procedure HideDesignerMenuItem(DMenuItem: TDesignerMenuItem);
function GetDesignerMenuItem(DMenuItem: TDesignerMenuItem; const Ident: string): TDesignerMenuItem;
function FindDesignerMenuItem(AMenuItem: TMenuItem): TDesignerMenuItem;
end;
implementation
{$R *.lfm}
const
DESIGNER_MENU_ITEM_HEIGHT=20;
DESIGNER_MENU_ITEM_SPACE=30;
MIN_DESIGNER_MENU_ITEM_WIDTH=100;
DESIGNER_MENU_ITEM_PANEL_HEIGHT=22;
MIN_SUB_MENU_PANEL_WIDTH=100;
POSITION_LEFT=10;
POSITION_TOP=10;
NUMBER_OF_DEFAULT_TEMPLATES = 3;
// Name of the file where menu templates are stored
MenuTemplatesFile='menutemplates.xml';
var
TemplateMenuFormCreateAction: Integer;
XMLConfig: TXMLConfig = nil;
{ TDesignerMenuItem }
constructor TDesignerMenuItem.Create(ARealMenuItem: TMenuItem);
begin
Self.RealMenuItem := ARealMenuItem;
end;
{ TDesignerMainMenu }
procedure TDesignerMainMenu.DesignerSetSelection(
const ASelection: TPersistentSelectionList);
var
i: Integer;
MenuItem, pMenu: TMenuItem;
DesignerItem: TDesignerMenuItem;
InvalidateNeeded: Boolean;
begin
InvalidateNeeded := False;
for i := 0 to ASelection.Count - 1 do
if ASelection.Items[i] is TMenuItem then
begin
MenuItem := TMenuItem(ASelection.Items[i]);
pMenu := MenuItem;
while pMenu.HasParent do
pMenu := pMenu.Parent;
if pMenu <> fMenu.Items then Continue;
DesignerItem := FindDesignerMenuItem(MenuItem);
if not Assigned(DesignerItem) then Continue;
ChangeMenuItem(Root, 2, Root.ID);
InitIndexSequence;
SelectedDesignerMenuItem := DesignerItem.ID;
ChangeMenuItem(Root, 1, SelectedDesignerMenuItem);
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
InvalidateNeeded := True;
end;
if InvalidateNeeded then
RealignDesigner;
end;
function TDesignerMainMenu.GetDesigner: TComponentEditorDesigner;
begin
Result:=nil;
if fMenu=nil then exit;
Result:=FindRootDesigner(fMenu) as TComponentEditorDesigner;
end;
procedure TDesignerMainMenu.SetRoot(const AValue: TDesignerMenuItem);
begin
if FRoot <> nil then
FRoot.Free;
FRoot := AValue;
end;
//
constructor TDesignerMainMenu.CreateWithMenu(AOwner: TComponent; aMenu: TMenu);
var
PopupMenuItem: TMenuItem;
begin
inherited Create(AOwner);
XMLConfig := TXMLConfig.Create(SetDirSeparators(GetPrimaryConfigPath + '/' + MenuTemplatesFile));
// creates PopupMenu for and its items the menu editor
FDesignerPopupMenu := TPopupMenu.Create(Self);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorInsertNewItemAfter;
PopupMenuItem.OnClick := @AddNewItemAfterClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorInsertNewItemBefore;
PopupMenuItem.OnClick := @AddNewItemBeforeClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorDeleteItem;
PopupMenuItem.OnClick := @DeleteItemClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := '-';
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorCreateSubMenu;
PopupMenuItem.OnClick := @AddSubMenuClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := '-';
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem:=TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorHandleOnClickEvent;
PopupMenuItem.OnClick := @HandleOnCLickEventClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem:=TMenuItem.Create(Self);
PopupMenuItem.Caption := '-';
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorMoveUp;
PopupMenuItem.OnClick := @MoveUpClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem:=TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorMoveDown;
PopupMenuItem.OnClick := @MoveDownClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := '-';
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorInsertFromTemplate;
PopupMenuItem.OnClick := @InsertFromTemplateClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorSaveAsTemplate;
PopupMenuItem.OnClick := @SaveAsTemplateClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
PopupMenuItem := TMenuItem.Create(Self);
PopupMenuItem.Caption := lisMenuEditorDeleteFromTemplate;
PopupMenuItem.OnClick := @DeleteFromTemplateClick;
FDesignerPopupMenu.Items.Add(PopupMenuItem);
//Handler for renaming a caption in OI for some menuitem to rename also designermenuitem
GlobalDesignHook.AddHandlerModified(@OnDesignerModified);
//GlobalDesignHook.AddHandlerPersistentAdded(@OnComponentAdded);
GlobalDesignHook.AddHandlerPersistentDeleting(@PersistentDeleting);
GlobalDesignHook.AddHandlerSetSelection(@DesignerSetSelection);
FRoot := TDesignerMenuItem.Create(nil);
fMenu := AMenu;
temp_level := 1;
temp_newitemcounter := 1;
temp_panel := TPanel.Create(Self);
temp_panel.Visible := False;
end;
destructor TDesignerMainMenu.Destroy;
begin
if GlobalDesignHook<>nil then
GlobalDesignHook.RemoveAllHandlersForObject(Self);
ClearAllMenus;
FreeAndNil(XMLConfig);
inherited Destroy;
end;
// ------------------------------------------------------------------------------------//
// Initialize new DesignerMenuItem (sets ID, defaluts values, creates SelfPanel ...) --//
// ------------------------------------------------------------------------------------//
procedure TDesignerMainMenu.Init(DMenuItem: TDesignerMenuItem);
var
i: Integer;
begin
i:=DesignerMenuItemIdent;
Str(i, DMenuItem.ID); Assert(DMenuItem.ID = IntToStr(i));
DMenuItem.Selected:=false;
DMenuItem.Active:=false;
DMenuItem.coord.Left:=0;
DMenuItem.coord.Top:=0;
DMenuItem.coord.Right:=0;
DMenuItem.coord.Bottom:=0;
DMenuItem.SelfPanelCreated:=false;
DMenuItem.SubMenuPanelCreated:=false;
DMenuItem.SubMenuPanel:=TPanel.Create(self);
DMenuItem.SelfPanel:=TPanel.Create(self);
DMenuItem.SelfPanel.Name:='SelfPanel_' + DMenuItem.ID;
DMenuItem.SelfPanel.Caption:='';
DMenuItem.SelfPanel.Height:=DESIGNER_MENU_ITEM_HEIGHT;
DMenuItem.SelfPanel.OnMouseDown:=@MenuItemMouseDown;
DMenuItem.SelfPanel.OnDblClick:=@MenuItemDblClick;
DMenuItem.SelfPanel.PopupMenu := FDesignerPopupMenu;
DMenuItem.CaptionLabel:=TLabel.Create(self);
DMenuItem.CaptionLabel.Name:='CaptionLabel_' + DMenuItem.ID;
DMenuItem.CaptionLabel.Parent:=DMenuItem.SelfPanel;
DMenuItem.CaptionLabel.Left:=DMenuItem.SelfPanel.Left + 5;
DMenuItem.CaptionLabel.Top:=2;
DMenuItem.CaptionLabel.Height:=DESIGNER_MENU_ITEM_HEIGHT - 4;
DMenuItem.CaptionLabel.OnMouseDown:=@MenuItemMouseDown;
DMenuItem.CaptionLabel.OnDblClick:=@MenuItemDblClick;
DMenuItem.SubMenuArrow:=TArrow.Create(self);
DMenuItem.SubMenuArrow.Name:='SubMenuArrow_' + DMenuItem.ID;
DMenuItem.SubMenuArrow.Parent:=DMenuItem.SelfPanel;
DMenuItem.SubMenuArrow.ArrowType:=atright;
DMenuItem.SubMenuArrow.Width:=20;
DMenuItem.SubMenuArrow.Height:=13;
DMenuItem.SubMenuArrow.ShadowType:=stout;
DMenuItem.SubMenuArrow.Visible:=false;
DMenuItem.SubMenuArrow.OnMouseDown:=@MenuItemMouseDown;
DMenuItem.SubMenuArrow.OnDblClick:=@MenuItemDblClick;
DesignerMenuItemIdent:=DesignerMenuItemIdent + 1;
inc(temp_newitemcounter);
end;
// --------------------------------------------------------------------------
// Loads the MainMenu from the Designer form and creates the DesignerMainMenu
// --------------------------------------------------------------------------
procedure TDesignerMainMenu.LoadMainMenu;
var
PrevMI, MI: TDesignerMenuItem;
i: Integer;
firstmenuitem: TMenuItem;
begin
if (fMenu.Items.Count = 0) then
begin
firstmenuitem := TMenuItem.Create(fMenu.Owner);
firstmenuitem.Name := GetDesigner.CreateUniqueComponentName(firstmenuitem.ClassName);
firstmenuitem.Caption := 'New Item1';
fMenu.Items.Insert(0, firstmenuitem);
GetDesigner.PropertyEditorHook.PersistentAdded(firstmenuitem, true);
GetDesigner.Modified;
end;
PrevMI := nil;
for i := 0 to fMenu.Items.Count - 1 do
begin
MI := TDesignerMenuItem.Create(fMenu.Items[i]);
MI.Caption := fMenu.Items[i].Caption;
MI.Level := temp_level;
MI.NextItem := nil;
MI.SubMenu := nil;
MI.ParentMenu := nil;
MI.Index := i;
if (i = 0) then
begin
MI.PrevItem := nil;
Root := MI;
end else
begin
MI.PrevItem := PrevMI;
PrevMI.NextItem := MI;
end;
Init(MI);
PrevMI := MI;
Link(fMenu.Items[i], MI);
end;
Root.Selected := True;
end;
procedure TDesignerMainMenu.Link(AMenuItem: TMenuItem; ParentMI: TDesignerMenuItem);
var
PrevMI, MI: TDesignerMenuItem;
i: Integer;
begin
inc(temp_level);
if (AMenuItem.Count > 0) then
begin
PrevMI:=nil;
for i:= 0 to AMenuItem.Count-1 do
begin
MI := TDesignerMenuItem.Create(AMenuItem.Items[i]);
MI.Caption:=AMenuItem.Items[i].Caption;
MI.Level:=temp_level;
MI.NextItem:=nil;
MI.SubMenu:=nil;
MI.Index:=i;
if (i=0) then
begin
MI.ParentMenu:=ParentMI;
MI.PrevItem:=nil;
ParentMI.SubMenu:=MI;
end else
begin
MI.PrevItem:=PrevMI;
PrevMI.NextItem:=MI;
MI.ParentMenu:=nil;
end;
Init(MI);
PrevMI:=MI;
Link(AMenuItem.Items[i],MI);
end;
end;
dec(temp_level);
end;
procedure TDesignerMainMenu.RealignDesigner;
var
temp_coord: TRect;
begin
temp_coord:=GetMaxCoordinates(Root, 0, 0);
Panel.Width:=temp_coord.Right + 10;
Panel.Height:=temp_coord.Bottom + 10;
Draw(Root, Panel, Panel);
end;
//------------------------------------------------------------------------------------------//
// Draw the whole DesignerMenu with active MenuItems and SubMenus ----------------------//
//------------------------------------------------------------------------------------------//
procedure TDesignerMainMenu.Draw(DMenuItem: TDesignerMenuItem; FormPanel,SubMenuPanel: TPanel);
var
SubMenuDimensions: TRect;
begin
if DMenuItem.SelfPanel = nil then exit;
with DMenuItem.SelfPanel do
begin
if (fMenu is TPopupMenu) and (DMenuItem.Level = 1) then
begin
if (DMenuItem.PrevItem = nil) then
begin
SubMenuDimensions:=GetSubMenuHeight(Root, 0, 0, DMenuItem.ID);
with temp_panel do
begin
Parent:=FormPanel;
Visible:=true;
Left:=POSITION_LEFT;
Top:=POSITION_TOP;
Width:=SubMenuDimensions.right;
Height:=SubMenuDimensions.bottom;
end;
end;
Parent:=temp_panel;
end else
Parent:=FormPanel;
Visible:=true;
if (DMenuItem.Level > 1) and (fMenu is TMainMenu) then
begin
Left:=2;
Top:=DMenuItem.coord.Top - Parent.Top + 2;
Width:=Parent.width - 4;
Height:=DESIGNER_MENU_ITEM_HEIGHT;
end else
begin
Top:=DMenuItem.coord.Top - Parent.Top + 2;
Height:=DESIGNER_MENU_ITEM_HEIGHT;
if (fMenu is TPopupMenu) then
begin
Width:=Parent.width - 4;
Left:=2;
end else
begin
Left:=DMenuItem.coord.Left;
Width:=ParentCanvas.TextWidth(DMenuItem.Caption) + DESIGNER_MENU_ITEM_SPACE;
end;
end;
if (DMenuItem.Selected) or ((DMenuItem.Level = 1) and (fMenu is TMainMenu)) then
Bevelouter:=bvraised
else
Bevelouter:=bvnone;
end;
DMenuItem.CaptionLabel.Caption:=DMenuItem.Caption;
if (DMenuItem.NextItem <> nil) then Draw(DMenuItem.NextItem, FormPanel, SubMenuPanel);
with DMenuItem.SelfPanel do
begin
if ((DMenuItem.SubMenu <> nil) and
(((DMenuItem.Selected) and ((DMenuItem.Submenu.Selected = False) or (DMenuItem.SubMenu.Active = False))) or
((DMenuItem.SubMenu.Selected) or (DMenuItem.SubMenu.Active)))) then
begin
if (fMenu is TpopupMenu) and (DMenuItem.Level = 1) then
SubMenuDimensions:=GetSubMenuHeight(GetDesignerMenuItem(Root, DMenuItem.SubMenu.ID), DMenuItem.coord.right + 1, 0, DMenuItem.SubMenu.ID)
else
SubMenuDimensions:=GetSubMenuHeight(GetDesignerMenuItem(Root, DMenuItem.SubMenu.ID), 0, 1, DMenuItem.SubMenu.ID);
with DMenuItem.SubMenuPanel do
begin
Parent:=SubMenuPanel;
Visible:=true;
if (fMenu is TMainMenu) and (DMenuItem.Level = 1) then
begin
Left:=DMenuItem.coord.Left;
Top:=DMenuItem.coord.Bottom + 1;
end else
begin
Left:=DMenuItem.coord.Right - 4;
Top:=DMenuItem.coord.Top + 4;
end;
Width:=SubMenuDimensions.right;
Height:=SubMenuDimensions.bottom;
end;
end;
end;
if (DMenuItem.SubMenu <> nil) then
begin
if (DMenuItem.Level = 1) and (fMenu is TMainMenu) then
DMenuItem.SubMenuArrow.ArrowType:=atdown
else
DMenuItem.SubMenuArrow.ArrowType:=atright;
DMenuItem.SubMenuArrow.Left:=DMenuItem.SelfPanel.Width - DMenuItem.SubMenuArrow.Width - 1;
DMenuItem.SubMenuArrow.Top:=(DMenuItem.SelfPanel.Height - DMenuItem.SubMenuArrow.Height) div 2;
DMenuItem.SubMenuArrow.Visible:=true;
end else
begin
DMenuItem.SubMenuArrow.Left:=DMenuItem.SelfPanel.Width - DMenuItem.SubMenuArrow.Width - 1;
DMenuItem.SubMenuArrow.Top:=(DMenuItem.SelfPanel.Height - DMenuItem.SubMenuArrow.Height) div 2;
DMenuItem.SubMenuArrow.Visible:=false;
end;
DMenuItem.CaptionLabel.Width:=DMenuItem.SelfPanel.Width - 10;
if ((DMenuItem.SubMenu <> nil) and ((DMenuItem.Selected) or (DMenuItem.Active))) then
begin
if ((((DMenuItem.Submenu.Active=False) or (DMenuItem.SubMenu.Selected=False)) and (DMenuItem.Selected)) or
((DMenuItem.Submenu.Active) or (DMenuItem.SubMenu.Selected))) then
Draw(DMenuItem.SubMenu, DMenuItem.SubMenuPanel,SubMenuPanel);
end;
end;
// --------------------------------------------------------------------------------------------------------------//
// Set the coordinates (position) of each DesignerMenuItem ------------------------------------------------------//
// --------------------------------------------------------------------------------------------------------------//
procedure TDesignerMainMenu.SetCoordinates(Coord_Left,Coord_Top,Coord_Right: Integer; DMenuItem: TDesignerMenuItem);
var
temp_menuitem: TDesignerMenuItem;
begin
DMenuItem.coord.Left:=Coord_Left;
DMenuItem.coord.Top:=Coord_Top;
DMenuItem.coord.Bottom:=DMenuItem.coord.top + DESIGNER_MENU_ITEM_HEIGHT; // Bylo DESIGNER_MENU_ITEM_PANEL_HEIGHT
if (DMenuItem.Level = 1) and (fMenu is TPopupMenu) then
Coord_Right:=MIN_DESIGNER_MENU_ITEM_WIDTH;
if (DMenuItem.Level = 1) and (fMenu is TMainMenu) then
DMenuItem.coord.Right:=DMenuItem.coord.Left + Canvas.TextWidth(DMenuItem.Caption) + DESIGNER_MENU_ITEM_SPACE
else begin
// is this DesignerMenuItem wider than its predecessors?
if (Canvas.TextWidth(DMenuItem.Caption) + DESIGNER_MENU_ITEM_SPACE > Coord_Right) then
begin
DMenuItem.coord.right:=DMenuItem.coord.Left + Canvas.TextWidth(DMenuItem.Caption) + DESIGNER_MENU_ITEM_SPACE;
Coord_Right:=DMenuItem.coord.Right - DMenuItem.coord.Left;
// we have to set the width of all predecessors of this DesignerMenuItem to its size
temp_menuitem:=DMenuItem;
while (temp_menuitem.PrevItem <> nil) do
begin
temp_menuitem:=temp_menuitem.PrevItem;
temp_menuitem.coord.right:=DMenuItem.coord.right;
end;
// if not wider then keep size of the predecessor
end else
begin
DMenuItem.coord.right:=DMenuItem.coord.Left + Coord_Right;
Coord_Right:=DMenuItem.coord.Right - DMenuItem.coord.Left;
end;
end;
if (DMenuItem.SubMenu <> nil) then
begin
if (fMenu is TMainMenu) and (DMenuItem.Level = 1) then
SetCoordinates(DMenuItem.coord.Left, DMenuItem.coord.Bottom + 1, MIN_DESIGNER_MENU_ITEM_WIDTH, DMenuItem.SubMenu)
else
SetCoordinates(DMenuItem.coord.Right - 4, DMenuItem.coord.Top + 4, MIN_DESIGNER_MENU_ITEM_WIDTH, DMenuItem.SubMenu)
end;
if (DMenuItem.NextItem <> nil) then
begin
if (DMenuItem.Level = 1) and (fMenu is TMainMenu) then
SetCoordinates(DMenuItem.coord.Right + 1, POSITION_TOP, 0,DMenuItem.NextItem)
else
SetCoordinates(DMenuItem.coord.left, DMenuItem.coord.Bottom, Coord_Right, DMenuItem.NextItem);
end;
end;
// -------------------------------------------------------------------------------------------------------------------//
// Determines a position of the SubMenuPanel of some DesignerMenuItem ------------------------------------------------//
//--------------------------------------------------------------------------------------------------------------------//
function TDesignerMainMenu.GetSubMenuHeight(DMenuItem: TDesignerMenuItem; LeftPos,TopPos: Integer; Ident: string): TRect;
var
coords: TRect;
SubItemCount: Integer;
begin
coords.right:=DMenuItem.coord.Right - DMenuItem.coord.Left + 4;
// sets the bottom coordinate of submenupanel depending on number of submenuitems
SubItemCount:=1;
while(DMenuItem.NextItem <> nil) do
begin
inc(SubItemCount);
DMenuItem:=DMenuItem.NextItem;
end;
coords.bottom:=SubItemCount * DESIGNER_MENU_ITEM_HEIGHT + 5;
// return coordinates
GetSubMenuHeight:=coords;
end;
// -------------------------------------------------------------------------------------------------------------------//
// Determines a position of the SubMenuPanel of some DesignerMenuItem ------------------------------------------------//
//--------------------------------------------------------------------------------------------------------------------//
function TDesignerMainMenu.GetMaxCoordinates(DMenuItem: TDesignerMenuItem; Max_Width, Max_Height: Integer): TRect;
var
temp_coord: TRect;
begin
Result:=Rect(0,0,0,0);
if (DMenuItem.coord.Right > Max_Width) then
Max_Width:=DMenuItem.coord.Right;
if (DMenuItem.coord.Bottom > Max_Height) then
Max_Height:=DMenuItem.coord.Bottom;
if (DMenuItem.SubMenu = nil) and (DMenuItem.NextItem = nil) then
begin
Result.Right:=Max_Width;
Result.Bottom:=Max_Height;
exit;
end;
if DMenuItem.SubMenu <> nil then
begin
temp_coord:=GetMaxCoordinates(DMenuItem.SubMenu, Max_Width, Max_Height);
Max_Width:=temp_coord.Right;
Max_Height:=temp_coord.Bottom;
end;
if (DMenuItem.NextItem <> nil) then
temp_coord:=GetMaxCoordinates(DMenuItem.NextItem, Max_Width, Max_Height);
Result:=temp_coord;
end;
// --------------------------------------------------------
// Function that changes MenuItem (Remove, Add SubMenu ...)
// --------------------------------------------------------
function TDesignerMainMenu.ChangeMenuItem(DMenuItem: TDesignerMenuItem;
TheAction: Integer; Ident: string): Boolean;
var
completed: boolean;
begin
completed:=false;
case TheAction of
// Test if this DMenuItem has been selected
1: begin
if (DMenuItem.ID = Ident) then
begin
DMenuItem.Selected:=true;
DMenuItem.Active:=false;
completed:=true;
end else begin
DMenuItem.Selected:=false;
end;
if (DMenuItem.SubMenu <> nil) then
begin
if (ChangeMenuItem(DMenuItem.SubMenu,TheAction,Ident) = true) then
begin
DMenuItem.Active:=true;
completed:=true;
end else DMenuItem.Active:=false;
end;
if (DMenuItem.NextItem <> nil) then
begin
if (ChangeMenuItem(DMenuItem.NextItem,TheAction,Ident)= true) then
begin
if DMenuItem.Level > 1 then
begin
DMenuItem.Active := True;
completed := true;
end;
end;
end;
end;
// Destroy all created panels of this DMenuItem
2: begin
DMenuItem.Active := False;
DMenuItem.Selected := False;
if (DMenuItem.SubMenu<> nil) then
begin
ChangeMenuItem(DMenuItem.SubMenu,TheAction,DMenuItem.SubMenu.ID);
DMenuItem.SubMenuPanel.visible:=false;
end;
if (DMenuItem.NextItem <> nil) then
ChangeMenuItem(DMenuItem.NextItem,TheAction,DMenuItem.NextItem.ID);
DMenuItem.SelfPanel.visible:=false;
end;
end;
ChangeMenuItem := completed;
end;
// -------------------------------------------------------------------------------------------------------------------//
// We have clicked on some DesignerMenuItem --------------------------------------------------------------------------//
// -------------------------------------------------------------------------------------------------------------------//
procedure TDesignerMainMenu.MenuItemMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
DesignerItem: TDesignerMenuItem;
begin
ChangeMenuItem(Root, 2, Root.ID);
InitIndexSequence;
if (Sender is TPanel) then
DesignerItem := SearchItemByPanel(Root, TPanel(Sender))
else
if (Sender is TLabel) then
DesignerItem := SearchItemByPanel(Root, TPanel(TLabel(Sender).Parent))
else
if (Sender is TArrow) then
DesignerItem := SearchItemByPanel(Root, TPanel(TArrow(Sender).Parent))
else
DesignerItem := nil;
if DesignerItem <> nil then
begin
SelectedDesignerMenuItem := DesignerItem.ID;
ChangeMenuItem(Root, 1, SelectedDesignerMenuItem);
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
UpdateMenu(fMenu.Items, GetDesignerMenuItem(Root, SelectedDesignerMenuItem), 1, 9);
RealignDesigner;
end;
end;
procedure TDesignerMainMenu.MenuItemDblClick(Sender: TObject);
begin
HandleOnClickEventClick(Sender);
end;
// -------------------------------------------------------------//
// New Item (before) has been selected from context menu -------//
// -------------------------------------------------------------//
procedure TDesignerMainMenu.AddNewItemBeforeClick(Sender: TObject);
var
NewItem: TDesignerMenuItem;
begin
NewItem := AddNewItemBefore(Root, SelectedDesignerMenuItem);
if NewItem = nil then
Exit;
NewItem.Active := True; // set visible
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
InitIndexSequence;
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
UpdateMenu(fMenu.Items,
GetDesignerMenuItem(Root, SelectedDesignerMenuItem).PrevItem, 1, 2);
end;
// ------------------------------------------------------------//
// New Item (after) has been selected from context menu -------//
// ------------------------------------------------------------//
procedure TDesignerMainMenu.AddNewItemAfterClick(Sender: TObject);
var
NewItem: TDesignerMenuItem;
begin
NewItem := AddNewItemAfter(Root, SelectedDesignerMenuItem);
if NewItem = nil then
Exit;
NewItem.Active := True; // set visible
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
InitIndexSequence;
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
UpdateMenu(fMenu.Items,
GetDesignerMenuItem(Root,SelectedDesignerMenuItem).NextItem,1,1);
end;
// ------------------------------------------------------------//
// Add SubMenu has been selected from context menu ------------//
// ------------------------------------------------------------//
procedure TDesignerMainMenu.AddSubMenuClick(Sender: TObject);
var
NewItem: TDesignerMenuItem;
begin
NewItem := AddSubMenu(Root, SelectedDesignerMenuItem);
if NewItem = nil then
Exit;
NewItem.Active := True; // set visible
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
InitIndexSequence;
CreateIndexSequence(Root, SelectedDesignerMenuItem,1);
UpdateMenu(fMenu.Items,
GetDesignerMenuItem(Root, SelectedDesignerMenuItem).SubMenu, 1, 3);
end;
// -----------------------------------------------------------------------//
// "Handle OnClick Event" has been selected from context menu ------------//
// -----------------------------------------------------------------------//
procedure TDesignerMainMenu.HandleOnClickEventClick(Sender: TObject);
var
temp_menuitem: TMenuItem;
begin
temp_menuitem:=UpdateMenu(fMenu.Items,
GetDesignerMenuItem(Root, SelectedDesignerMenuItem), 1, 10);
fDefaultComponentEditor:=TDefaultComponentEditor.Create(temp_menuitem, GetDesigner);
fDefaultComponentEditor.Edit;
fDefaultComponentEditor.Free;
end;
// ----------------------------------------------------//
// Move Up has been selected from context menu --------//
// ----------------------------------------------------//
procedure TDesignerMainMenu.MoveUpClick(Sender: TObject);
begin
if (MoveUp(Root, SelectedDesignerMenuItem) > 0) then
begin
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
InitIndexSequence;
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
UpdateMenu(fMenu.Items, GetDesignerMenuItem(Root, SelectedDesignerMenuItem), 1, 4);
RealignDesigner;
end;
end;
// --------------------------------------------------------//
// Delete Item has been selected from context menu --------//
// --------------------------------------------------------//
procedure TDesignerMainMenu.DeleteItemClick(Sender: TObject);
var
temp_returnvalue: Integer;
Item, NextSelectedItem: TDesignerMenuItem;
begin
//SelectedDesignerMenuItem:=GetSelectedDesignerMenuItem(Root);
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
Item := GetDesignerMenuItem(Root, SelectedDesignerMenuItem);
// look for next selected item
NextSelectedItem := Item.NextItem;
if NextSelectedItem = nil then
NextSelectedItem := Item.PrevItem;
if NextSelectedItem = nil then
NextSelectedItem := Item.ParentMenu;
if NextSelectedItem = nil then
NextSelectedItem := Root;
temp_returnvalue := DeleteItem(Item);
if (temp_returnvalue > 0) then
begin
SelectedDesignerMenuItem := NextSelectedItem.ID;
ChangeMenuItem(Root, 2, Root.ID);
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
if (temp_returnvalue = 1) then
UpdateMenu(fMenu.Items, nil, 1, 7);
if (temp_returnvalue = 2) then
UpdateMenu(fMenu.Items, GetDesignerMenuItem(Root, SelectedDesignerMenuItem), 1 , 8);
ChangeMenuItem(Root, 1, SelectedDesignerMenuItem);
RealignDesigner;
end;
end;
procedure TDesignerMainMenu.PersistentDeleting(APersistent: TPersistent);
var
MenuItem: TMenuItem absolute APersistent;
Item: TDesignerMenuItem;
begin
if APersistent is TMenuItem then
begin
Item := FindDesignerMenuItem(MenuItem);
if Item <> nil then
begin
if DeleteItem(Item) = 2 then
(Owner as TForm).Close
else begin
SetCoordinates(POSITION_LEFT, POSITION_TOP, 0, Root);
RealignDesigner;
end;
end;
end;
inherited;
end;
function TDesignerMainMenu.SearchItemByPanel(
DMenuItem: TDesignerMenuItem; APanel: TPanel): TDesignerMenuItem;
begin
if DMenuItem <> nil then
begin
if DMenuItem.SelfPanel = APanel then
Result := DMenuItem
else begin
Result := SearchItemByPanel(DMenuItem.SubMenu, APanel);
if Result = nil then
Result := SearchItemByPanel(DMenuItem.NextItem, APanel);
end;
end else
Result := nil;
end;
procedure TDesignerMainMenu.ClearAllMenus;
procedure DeleteRecursive(var AMenu: TDesignerMenuItem);
begin
if not Assigned(AMenu) then Exit;
if Assigned(AMenu.NextItem) then DeleteRecursive(AMenu.NextItem);
if Assigned(AMenu.SubMenu) then DeleteRecursive(AMenu.SubMenu);
FreeAndNil(AMenu);
end;
begin
DeleteRecursive(fRoot);
end;
// -----------------------------------------------------------------//
// Insert From Template has been selected from context menu --------//
// -----------------------------------------------------------------//
procedure TDesignerMainMenu.InsertFromTemplateClick(Sender: TObject);
var
templatemenuitem: string;
temp_designermenuitem: TDesignerMenuItem;
TemplateMenuForm: TTemplateMenuForm;
begin
TemplateMenuFormCreateAction:=1;
TemplateMenuForm:=TTemplateMenuForm.Create(nil);
try
if (TemplateMenuForm.ShowModal = mrOK) then
begin
if (GetDesignerMenuItem(Root, SelectedDesignerMenuItem).SubMenu <> nil) then
begin
HideDesignerMenuItem(GetDesignerMenuItem(Root, SelectedDesignerMenuItem));
GetDesignerMenuItem(Root, SelectedDesignerMenuItem).SubMenu:=nil;
GetDesignerMenuItem(Root, SelectedDesignerMenuItem).SubMenuPanel.Visible:=false;
InitIndexSequence;
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
UpdateMenu(fMenu.Items, GetDesignerMenuItem(Root, SelectedDesignerMenuItem), 1, 8);
end;
if (TemplateMenuForm.GetSelectedMenuTemplate > NUMBER_OF_DEFAULT_TEMPLATES) then
begin
Str(TemplateMenuForm.GetSelectedMenuTemplate - NUMBER_OF_DEFAULT_TEMPLATES, templatemenuitem);
templatemenuitem:='menu_' + templatemenuitem;
InitIndexSequence;
CreateIndexSequence(Root, SelectedDesignerMenuItem, 1);
ChangeCaption(GetDesignerMenuItem(Root, SelectedDesignerMenuItem), XMLConfig.Getvalue(templatemenuitem + '/Name/Value', ''));
UpdateMenu(fMenu.Items, GetDesignerMenuItem(Root, SelectedDesignerMenuItem), 1, 6);
InsertFromTemplate(templatemenuitem, SelectedDesignerMenuItem);
end
// Some of default templates has been selected
else begin
temp_designermenuitem:=GetDesignerMenuItem(Root, SelectedDesignerMenuItem);
case TemplateMenuForm.GetSelectedMenuTemplate of
1: Begin
// Change a caption of selected designermenuitem to "File"
ChangeCaption (temp_designermenuitem, lisFile);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add an submenu with first item and set it's caption to "New"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddSubMenuClick(self);
temp_designermenuitem:=temp_designermenuitem.SubMenu;
ChangeCaption (temp_designermenuitem, lisNew);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new separator
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, '-');
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Open"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisOpen);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Open Recent"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisMenuTemplateOpenRecent);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Save"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisSave);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Save As"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisSaveAs);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Close"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisClose);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new separator
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, '-');
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Exit"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisExit);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
end;
2: begin
// Change a caption of selected designermenuitem fo "Edit"
ChangeCaption (temp_designermenuitem, lisEdit);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add an submenu with first item and set it's caption to "Undo"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddSubMenuClick(self);
temp_designermenuitem:=temp_designermenuitem.SubMenu;
ChangeCaption (temp_designermenuitem, lisUndo);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Redo"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisRedo);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new separator
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, '-');
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Cut"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisCut);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Copy"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisCopy);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Paste"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisPaste);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new separator
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, '-');
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Find"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisMenuTemplateFind);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Find Next"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisMenuTemplateFindNext);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
end;
3: begin
// Change a caption of selected designermenuitem fo "Help"
ChangeCaption (temp_designermenuitem, lisHelp);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add an submenu with first item and set it's caption to "Contents"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddSubMenuClick(self);
temp_designermenuitem:=temp_designermenuitem.SubMenu;
ChangeCaption (temp_designermenuitem, lisMenuTemplateContents);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "Tutorial"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisMenuTemplateTutorial);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new separator
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, '-');
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6);
// Add new item and set it's caption to "About"
SelectedDesignerMenuItem:=temp_designermenuitem.ID;
AddNewItemAfterClick(self);
temp_designermenuitem:=temp_designermenuitem.NextItem;
ChangeCaption (temp_designermenuitem, lisMenuTemplateAbout);
UpdateMenu(fMenu.Items, temp_designermenuitem, 1, 6 );
end;
end;
end;
RealignDesigner;
end;
finally
TemplateMenuForm.Free;
end;
end;
procedure TDesignerMainMenu.InsertFromTemplate(Item,Ident: string);
var
i: Integer;
templatesubmenuitem, str_i: string;
tempdesignermenuitem: TDesignerMenuItem;
begin
InitIndexSequence;
CreateIndexSequence(Root, GetDesignerMenuItem(Root, Ident).ID,1);
ChangeCaption(GetDesignerMenuItem(Root, Ident), XMLConfig.Getvalue(Item + '/Name/Value',''));
UpdateMenu(fMenu.Items, GetDesignerMenuItem(Root, Ident), 1, 6);
if (XMLConfig.GetValue(Item + '/SubItems/Value','') = 'true') then
begin
i:=1;
Str(i,str_i);
templatesubmenuitem:=Item + '/subitem_' + str_i;
while(XMLConfig.Getvalue(templatesubmenuitem + '/Name/Value','does_not_exist') <> 'does_not_exist') do
begin
if (i=1) then
begin
tempdesignermenuitem:=AddSubMenu(Root, GetDesignerMenuItem(Root, Ident).ID);
SetCoordinates(POSITION_LEFT,POSITION_TOP,0,Root);
ChangeCaption(tempdesignermenuitem, XMLConfig.GetValue(templatesubmenuitem + '/Name/Value',''));
InitIndexSequence;
CreateIndexSequence(Root, tempdesignermenuitem.ParentMenu.ID,1);
UpdateMenu(fMenu.Items, tempdesignermenuitem, 1, 3);
end else
begin
tempdesignermenuitem:=AddNewItemAfter(Root, tempdesignermenuitem.ID);
SetCoordinates(POSITION_LEFT,POSITION_TOP,0,Root);
ChangeCaption(tempdesignermenuitem,XMLConfig.GetValue(templatesubmenuitem + '/Name/Value',''));
InitIndexSequence;
CreateIndexSequence(Root, tempdesignermenuitem.PrevItem.ID,1);
UpdateMenu(fMenu.Items, tempdesignermenuitem, 1, 1);
end;
InsertFromTemplate(templatesubmenuitem,tempdesignermenuitem.ID);
Inc(i);
Str(i,str_i);
templatesubmenuitem:=Item + '/subitem_' + str_i;
end;
end else
begin
end;
RealignDesigner;
end;
// -----------------------------------------------------------------//
// Save As Template has been selected from context menu ------------//
// -----------------------------------------------------------------//
procedure TDesignerMainMenu.SaveAsTemplateClick(Sender: TObject);
var
i: Integer;
str_i, templatemenuitem: string;
TemplateMenuForm: TTemplateMenuForm;
begin
i:=1;
Str(i,str_i);
templatemenuitem:='menu_' + str_i;
TemplateMenuFormCreateAction:=2;
TemplateMenuForm:=TTemplateMenuForm.Create(nil);
try
if (TemplateMenuForm.ShowModal = mrOK) then
begin
while (XMLConfig.GetValue(templatemenuitem + '/Name/Value','does_not_exists') <> 'does_not_exists') do
begin
Inc(i);
Str(i,str_i);
templatemenuitem:='menu_' + str_i;
end;
XMLConfig.SetValue(templatemenuitem + '/Description/Value', TemplateMenuForm.GetDescription);
SaveAsTemplate(templatemenuitem, SelectedDesignerMenuItem);
InvalidateFileStateCache;
XMLConfig.Flush;
end;
finally
TemplateMenuForm.Free;
end;
end;
procedure TDesignerMainMenu.SaveAsTemplate(Item,Ident: string);
var
i: Integer;
str_i: string;
temp_designermenuitem, temp_designersubmenuitem: TDesignerMenuItem;
begin
i:=1;
Str(i, str_i);
temp_designermenuitem:=GetDesignerMenuItem(Root, Ident);
XMLConfig.SetValue(Item + '/Name/Value', temp_designermenuitem.Caption);
temp_designersubmenuitem:=temp_designermenuitem.SubMenu;
if (temp_designermenuitem.SubMenu <> nil) then
XMLConfig.SetValue(Item + '/SubItems/Value', 'true');
while (temp_designersubmenuitem <> nil) do
begin
XMLConfig.SetValue(Item + '/subitem_' + str_i + '/Name/Value', temp_designersubmenuitem.Caption);
SaveAsTemplate(Item + '/subitem_' + str_i, temp_designersubmenuitem.ID);
temp_designersubmenuitem:=temp_designersubmenuitem.NextItem;
Inc(i);
Str(i, str_i);
end;
end;
// -----------------------------------------------------------------//
// Delete From Template has been selected from context menu ------------//
// -----------------------------------------------------------------//
procedure TDesignerMainMenu.DeleteFromTemplateClick(Sender: TObject);
var
i,j: Integer;
str_i, str_j, old_templatemenuitem, new_templatemenuitem: string;
TemplateMenuForm: TTemplateMenuForm;
begin
//SelectedDesignerMenuItem:=GetSelectedDesignerMenuItem(Root);
i:=1;
j:=1;
TemplateMenuFormCreateAction:=3;
TemplateMenuForm:=TTemplateMenuForm.Create(nil);
try
if (TemplateMenuForm.ShowModal = mrOK) and (TemplateMenuForm.GetSelectedMenuTemplate > 0) then
begin
i:=TemplateMenuForm.GetSelectedMenuTemplate;
Str(i + 1, new_templatemenuitem);
new_templatemenuitem:='menu_' + new_templatemenuitem;
if (XMLConfig.GetValue(new_templatemenuitem + '/Name/Value', 'does_not_exists') <> 'does_not_exists') then
begin
i:=TemplateMenuForm.GetSelectedMenuTemplate;
Str(i, new_templatemenuitem);
new_templatemenuitem:='menu_' + new_templatemenuitem;
// This deletes all subitems in menuitem, which will be replaced
str_i:='1';
while (XMLConfig.GetValue(new_templatemenuitem + '/subitem_' + str_i + '/Name/Value', 'does_not_exists') <> 'does_not_exists') do
begin
XMLConfig.DeletePath(new_templatemenuitem + '/subitem_' + str_i);
Inc(i);
Str(i, str_i);
end;
i:=TemplateMenuForm.GetSelectedMenuTemplate;
Str(i + 1, old_templatemenuitem);
old_templatemenuitem:='menu_' + old_templatemenuitem;
while (XMLConfig.GetValue(old_templatemenuitem + '/Name/Value', 'does_not_exists') <> 'does_not_exists') do
begin
// This deletes all subitems in menuitem, which will be replaced
str_j:='1';
while (XMLConfig.GetValue(new_templatemenuitem + '/subitem_' + str_j + '/Name/Value', 'does_not_exists') <> 'does_not_exists') do
begin
XMLConfig.DeletePath(new_templatemenuitem + '/subitem_' + str_j);
Inc(j);
Str(j, str_j);
end;
// (Re)place the old menuitem on other place(on other menuitem) in the menutemplates.xml file
ReplaceInTemplate(old_templatemenuitem, new_templatemenuitem);
Inc(i);
Str(i, new_templatemenuitem);
new_templatemenuitem:='menu_' + new_templatemenuitem;
Str(i + 1, old_templatemenuitem);
old_templatemenuitem:='menu_' + old_templatemenuitem;
end;
XMLConfig.DeletePath(new_templatemenuitem);
end else
begin
i:=TemplateMenuForm.GetSelectedMenuTemplate;
Str(i, old_templatemenuitem);
old_templatemenuitem:='menu_' + old_templatemenuitem;
XMLConfig.DeletePath(old_templatemenuitem);
end;
InvalidateFileStateCache;
XMLConfig.Flush;
end;
finally
TemplateMenuForm.Free;
end;
end;
procedure TDesignerMainMenu.ReplaceInTemplate(old_Item, new_Item: string);
var
i: Integer;
str_i: string;
begin
//DebugLn('Old Item: ',old_Item);
//DebugLn('New Item: ',new_Item);
//DebugLn('Tak se na to mrknem: ', XMLConfig.GetValue(old_Item + '/Name/Value',''));
XMLConfig.SetValue(new_Item + '/Name/Value', XMLConfig.GetValue(old_Item + '/Name/Value',''));
if (XMLConfig.GetValue(old_Item + '/Description/Value', 'does_not_exists') <> 'does_not_exists') then
XMLConfig.SetValue(new_Item + '/Description/Value', XMLConfig.GetValue(old_Item + '/Description/Value',''));
if (XMLConfig.GetValue(old_Item + '/SubItems/Value','') = 'true') then
begin
XMLConfig.SetValue(new_Item + '/SubItems/Value', 'true');
i:=1;
Str(i,str_i);
old_Item:=old_Item + '/subitem_';
new_Item:=new_Item + '/subitem_';
while(XMLConfig.GetValue(old_Item + str_i + '/Name/Value', 'does_not_exist') <> 'does_not_exist') do
begin
ReplaceInTemplate(old_Item + str_i, new_Item + str_i);
Inc(i);
Str(i, str_i);
end;
end;
end;
// --------------------------------------------------------------------------------------------------------------//
// Some property of some object has changed -> we need to know if caption of some menuitem has changed ----------//
// --------------------------------------------------------------------------------------------------------------//
procedure TDesignerMainMenu.OnDesignerModified(Sender: TObject);
var
i: Integer;
Instance: TPersistent;
MenuItem: TMenuItem;
InvalidateNeeded: Boolean;
DesignerMenuItem: TDesignerMenuItem;
begin
if not (Sender is TPropertyEditor) then Exit;
for i := 0 to TPropertyEditor(Sender).PropCount - 1 do
begin
Instance := TPropertyEditor(Sender).GetComponent(i);
if Instance is TMenuItem then begin
MenuItem := TMenuItem(Instance);
DesignerMenuItem := FindDesignerMenuItem(MenuItem);
if DesignerMenuItem = nil then Continue;
ChangeCaption(DesignerMenuItem, MenuItem.Caption);
InvalidateNeeded := True;
end;
end;
if InvalidateNeeded then
RealignDesigner;
end;
procedure TDesignerMainMenu.OnComponentAdded(Sender: TObject);
begin
end;
// ------------------------------------------------------//
// Move Down has been selected from context menu --------//
// ------------------------------------------------------//
procedure TDesignerMainMenu.MoveDownClick(Sender: TObject);
begin
if (MoveDown(Root, SelectedDesignerMenuItem) > 0) then
begin
SetCoordinates(POSITION_LEFT,POSITION_TOP,0,Root);
InitIndexSequence;
CreateIndexSequence(Root, SelectedDesignerMenuItem,1);
UpdateMenu(fMenu.Items, GetDesignerMenuItem(Root, SelectedDesignerMenuItem), 1, 5);
RealignDesigner;
end;
end;
// ------------------------------------------------------------------------------------//
// Adds new DesignerMenuItem before DesignerMenuItem with ID=Ident --------------------//
// ------------------------------------------------------------------------------------//
function TDesignerMainMenu.AddNewItemBefore(DMenuItem: TDesignerMenuItem; Ident: string): TDesignerMenuItem;
var
NewMI, TempMI: TDesignerMenuItem;
temp_newitemcounterstring: string;
begin
Result:=nil;
if (DMenuItem.ID = Ident) then
begin
NewMI := TDesignerMenuItem.Create(nil); // it's better to move TMenuItem.Create here from UpdateMenu()
Str(temp_newitemcounter, temp_newitemcounterstring);
NewMI.Caption:='New Item' + temp_newitemcounterstring;
NewMI.Level:=DMenuItem.Level;
NewMI.NextItem:=DMenuItem;
NewMI.SubMenu:=nil;
if (DMenuItem.ParentMenu <> nil) then
begin
NewMI.ParentMenu:=DMenuItem.ParentMenu;
NewMI.PrevItem:=nil;
DMenuItem.ParentMenu.SubMenu:=NewMI;
DMenuItem.ParentMenu:=nil;
end else
begin
NewMI.ParentMenu:=nil;
if (DMenuItem.PrevItem <> nil) then
begin
NewMI.PrevItem:=DMenuItem.PrevItem;
DMenuItem.PrevItem.NextItem:=NewMI;
end else
begin
NewMI.PrevItem:=nil;
fRoot:=NewMI;
end;
end;
DMenuItem.PrevItem:=NewMI;
// now we have to set the index of this DesignerMenuItem
if (NewMI.NextItem <> nil) then
begin
TempMI:=NewMI;
while (TempMI <> nil) do
begin
if (TempMI.PrevItem <> nil) then
TempMI.Index:=TempMI.PrevItem.Index + 1
else
TempMI.Index:=0;
TempMI:=TempMI.NextItem;
end;
end else
NewMI.Index:=DMenuItem.Index + 1;
Init(NewMI);
Result := NewMI;
end else
begin
if (DMenuItem.SubMenu <> nil) then
Result := AddNewItemBefore(DMenuItem.SubMenu,Ident);
if (Result = nil) and (DMenuItem.NextItem <> nil) then
Result := AddNewItemBefore(DMenuItem.NextItem, Ident);
end;
end;
// -----------------------------------------------------------------------------------//
// Adds new DesignerMenuItem after DesignerMenuItem with ID=Ident --------------------//
// -----------------------------------------------------------------------------------//
function TDesignerMainMenu.AddNewItemAfter(DMenuItem: TDesignerMenuItem; Ident: string): TDesignerMenuItem;
var
NewMI, TempMI: TDesignerMenuItem;
temp_newitemcounterstring: string;
begin
Result:=nil;
TempMI:=nil;
if (DMenuItem.ID = Ident) then
begin
NewMI := TDesignerMenuItem.Create(nil); // it's better to move TMenuItem.Create here from UpdateMenu()
Str(temp_newitemcounter,temp_newitemcounterstring);
NewMI.Caption:='New Item' + temp_newitemcounterstring;
NewMI.Level:=DMenuItem.Level;
NewMI.PrevItem:=DMenuItem;
NewMI.ParentMenu:=nil;
NewMI.SubMenu:=nil;
if (DMenuItem.NextItem <> nil) then
begin
NewMI.NextItem:=DMenuItem.NextItem;
DMenuItem.NextItem.PrevItem:=NewMI;
end else
NewMI.NextItem:=nil;
DMenuItem.NextItem:=NewMI;
// now we have to set the index of this DesignerMenuItem
if (NewMI.NextItem <> nil) then
begin
TempMI:=NewMI;
while (TempMI <> nil) do
begin
TempMI.Index:=TempMI.PrevItem.Index + 1;
TempMI:=TempMI.NextItem;
end;
end else
NewMI.Index:=DMenuItem.Index + 1;
Init(NewMI);
Result:=NewMI;
end else
begin
if (DMenuItem.SubMenu <> nil) then
Result:=AddNewItemAfter(DMenuItem.SubMenu,Ident);
if (Result = nil) and (DMenuItem.NextItem <> nil) then
Result:=AddNewItemAfter(DMenuItem.NextItem,Ident);
end;
end;
// ------------------------------------------------------------------------------//
function TDesignerMainMenu.AddSubMenu(DMenuItem: TDesignerMenuItem; Ident: string): TDesignerMenuItem;
var
new_menuitem: TDesignerMenuItem;
temp_newitemcounterstring: string;
begin
Result:=nil;
if ((DMenuItem.ID = Ident) and (DMenuItem.SubMenu = nil)) then
begin
new_menuitem := TDesignerMenuItem.Create(nil); // it's better to move TMenuItem.Create here from UpdateMenu()
Str(temp_newitemcounter,temp_newitemcounterstring);
new_menuitem.Caption:='New Item' + temp_newitemcounterstring;
new_menuitem.Level:=DMenuItem.Level + 1;
new_menuitem.PrevItem:=nil;
new_menuitem.ParentMenu:=DMenuItem;
new_menuitem.SubMenu:=nil;
new_menuitem.NextItem:=nil;
DMenuItem.SubMenu:=new_menuitem;
// now we have to set the index of this DesignerMenuItem
new_menuitem.Index:=0;
Init(DMenuItem.SubMenu);
Result:=DMenuItem.SubMenu;
end else
begin
if (DMenuItem.SubMenu <> nil) then
Result:=AddSubMenu(DMenuItem.SubMenu,Ident);
if (Result = nil) and (DMenuItem.NextItem <> nil) then
Result:=AddSubMenu(DMenuItem.NextItem,Ident);
end;
end;
// ------------------------------------------------------------------------------//
function TDesignerMainMenu.MoveUp(DMenuItem: TDesignerMenuItem; Ident: string): Integer;
var
TempMI: TDesignerMenuItem;
begin
Result:=0;
if (DMenuItem.ID = Ident) then
begin
if (DMenuItem.PrevItem <> nil) then
begin
TempMI:=DMenuItem.PrevItem;
TempMI.Index:=DMenuItem.Index;
TempMI.NextItem:=DMenuItem.NextItem;
DMenuItem.Index:=TempMI.Index - 1;
DMenuItem.PrevItem:=TempMI.PrevItem;
DMenuItem.ParentMenu:=TempMI.ParentMenu;
TempMI.ParentMenu:=nil;
TempMI.PrevItem:=DMenuItem;
if (DMenuItem.ParentMenu = nil) and (DMenuItem.PrevItem = nil) then
FRoot:=DMenuItem;
DMenuItem.NextItem:=TempMI;
if (DMenuItem.ParentMenu <> nil) then
DMenuItem.ParentMenu.SubMenu:=DMenuItem;
if (DMenuItem.PrevItem <> nil) then
DMenuItem.PrevItem.NextItem:=DMenuItem;
Result:=1;
end;
end else
begin
if (DMenuItem.SubMenu <> nil) then
Result:=MoveUp(DMenuItem.SubMenu,Ident);
if (Result = 0) then
if (DMenuItem.NextItem <> nil) then
Result:=MoveUp(DMenuItem.NextItem,Ident);
end;
end;
// ------------------------------------------------------------------------------//
function TDesignerMainMenu.MoveDown(DMenuItem: TDesignerMenuItem; Ident: string): Integer;
var
TempMI: TDesignerMenuItem;
begin
Result:=0;
if (DMenuItem.ID = Ident) then
begin
if (DMenuItem.NextItem <> nil) then
begin
TempMI:=DMenuItem.NextItem;
TempMI.PrevItem:=DMenuItem.PrevItem;
DMenuItem.NextItem:=TempMI.NextItem;
TempMI.NextItem:=DMenuItem;
DMenuItem.PrevItem:=TempMI;
TempMI.Index:=DMenuItem.Index;
DMenuItem.Index:=TempMI.Index + 1;
TempMI.ParentMenu:=DMenuItem.ParentMenu;
DMenuItem.ParentMenu:=nil;
if (TempMI.ParentMenu = nil) and (TempMI.PrevItem = nil) then
FRoot:=TempMI;
if (TempMI.ParentMenu <> nil) then
TempMI.ParentMenu.SubMenu:=TempMI;
if (DMenuItem.NextItem <> nil) then
DMenuItem.NextItem.PrevItem:=DMenuItem;
if (TempMI.PrevItem <> nil) then
TempMI.PrevItem.NextItem:=TempMI;
Result:=1;
end;
end else
begin
if (DMenuItem.SubMenu <> nil) then
Result:=MoveDown(DMenuItem.SubMenu,Ident);
if (Result = 0) then
if (DMenuItem.NextItem <> nil) then
Result:=MoveDown(DMenuItem.NextItem,Ident);
end;
end;
// ------------------------------------------------------------------------------//
// ------------------------------------------------------------------------------//
function TDesignerMainMenu.DeleteItem(DMenuItem: TDesignerMenuItem): Integer;
var
TempPreviousMI, TempNextMI: TDesignerMenuItem;
TempParentMenuMI: TDesignerMenuItem;
TempMI: TDesignerMenuItem;
i: Integer;
begin
Result:=0;
if DMenuItem = nil then exit;
TempParentMenuMI:=DMenuItem.ParentMenu;
TempPreviousMI:=DMenuItem.PrevItem;
TempNextMI:=DMenuItem.NextItem;
if (TempParentMenuMI = nil) and (TempPreviousMI = nil) and
(TempNextMI = nil)then
begin
if (DMenuItem.SubMenu <> nil) then
begin
DMenuItem.SubMenuPanel.Visible:=false;
TempMI:=DMenuItem.SubMenu;
while (TempMI <> nil) do
begin
TempMI.SelfPanel.Visible:=false;
TempMI:=TempMI.NextItem;
end;
DMenuItem.SubMenu.Free;
end;
DMenuItem.SubMenu:=nil;
DMenuItem.NextItem:=nil;
Result:=2;
end else
begin
if (TempPreviousMI <> nil) then
TempPreviousMI.NextItem:=TempNextMI;
if (TempNextMI <> nil) then
begin
TempNextMI.PrevItem:=TempPreviousMI;
TempMI:=TempNextMI;
i:=DMenuItem.Index;
while (TempMI <> nil) do
begin
TempMI.Index:=i;
Inc(i);
TempMI:=TempMI.NextItem;
end;
end;
if (TempParentMenuMI = nil) and (TempPreviousMI = nil) then
begin
TempNextMI.ParentMenu:=nil;
FRoot:=TempNextMI;
end;
if (TempParentMenuMI <> nil) then
begin
if (TempNextMI <> nil) then
begin
TempParentMenuMI.SubMenu:=TempNextMI;
TempNextMI.ParentMenu:=TempParentMenuMI;
end else
begin
TempParentMenuMI.SubMenu:=nil;
TempParentMenuMI.SubMenuPanel.Visible:=false;
TempParentMenuMI.Active:=false;
TempParentMenuMI.Selected:=true;
end;
end;
DMenuItem.SelfPanel.Visible:=false;
DMenuItem.SubMenuPanel.Visible:=false;
DMenuItem.Free;
Result:=1;
end;
end;
// ------------------------------------------------------------------------------//
// ------------------------------------------------------------------------------//
function TDesignerMainMenu.ChangeCaption(DMenuItem: TDesignerMenuItem;
const newcaption: string): Integer;
begin
Result:=0;
if DMenuItem.Caption=NewCaption then exit;
InitIndexSequence;
CreateIndexSequence(Root, DMenuItem.ID, 1);
DMenuItem.Caption:=newcaption;
Result:=1;
end;
procedure TDesignerMainMenu.HideDesignerMenuItem(DMenuItem: TDesignerMenuItem);
begin
if (DMenuItem.SubMenu <> nil) then
begin
HideDesignerMenuItem(DMenuItem.SubMenu);
DMenuItem.SubMenuPanel.Visible:=false;
DMenuItem.SubMenu:=nil;
end;
if (DMenuItem.NextItem <> nil) then
begin
HideDesignerMenuItem(DMenuItem.NextItem);
DMenuItem.NextItem:=nil;
end;
DMenuItem.SelfPanel.Visible:=false;
end;
// -------------------------------------------------------------------------------------------------------------------
// Finds DesignerMenuItem with identification Ident and returns a pointer to it
// -------------------------------------------------------------------------------------------------------------------
function TDesignerMainMenu.GetDesignerMenuItem(DMenuItem: TDesignerMenuItem;
const Ident: string): TDesignerMenuItem;
begin
Result:=nil;
if DMenuItem=nil then exit;
if (CompareText(DMenuItem.ID,Ident)=0) then
Result:=DMenuItem
else
begin
Result:=GetDesignerMenuItem(DMenuItem.SubMenu, Ident);
if Result<>nil then exit;
Result:=GetDesignerMenuItem(DMenuItem.NextItem, Ident);
end;
end;
function TDesignerMainMenu.FindDesignerMenuItem(AMenuItem: TMenuItem): TDesignerMenuItem;
// search the corresponding designer menu item
function FindRecursive(TheMenuItem: TMenuItem): TDesignerMenuItem;
var
ParentDesignerMenuItem: TDesignerMenuItem;
begin
Result := nil;
if TheMenuItem = nil then
exit;
// find parent
if TheMenuItem.Parent = nil then
begin
// this is TMenu.Items -> no corresponding
end
else
if TheMenuItem.Parent.Parent = nil then
begin
// top level menu item
if (TheMenuItem.GetParentMenu = fMenu) then
begin
// root item
Result:=Root;
end;
end else
begin
// sub menu item
// -> search parent
ParentDesignerMenuItem := FindRecursive(TheMenuItem.Parent);
if ParentDesignerMenuItem <> nil then
Result := ParentDesignerMenuItem.SubMenu;
end;
while (Result <> nil) and (Result.RealMenuItem <> TheMenuItem) do
Result := Result.NextItem;
end;
begin
Result := FindRecursive(AMenuItem);
end;
// ------------------------------------------------
// ------------------------------------------------
// Procedures for updating the Menu of the Designer
procedure TDesignerMainMenu.InitIndexSequence;
var
i: Integer;
begin
for i:=1 to INDEX_SEQUENCE_LENGTH do
index_sequence[i]:=-1;
end;
function TDEsignerMainMenu.CreateIndexSequence(DMenuItem: TDesignerMenuItem;
Ident: string; Ind: Integer): Boolean;
begin
Result:=false;
index_sequence[Ind]:=DMenuItem.Index;
if (DMenuItem.ID = Ident) then
Result:=true
else
begin
if (DMenuItem.SubMenu <> nil) then
begin
if (CreateIndexSequence(DMenuItem.SubMenu,Ident,Ind + 1)) then
Result:=true
else
index_sequence[Ind + 1]:=-1;
end;
if not Result then
if (DMenuItem.NextItem <> nil) then
if (CreateIndexSequence(DMenuItem.NextItem,Ident,Ind)) then
Result:=true;
end;
end;
// ------------------------------------------------------------------
// UPDATE Menu (type of update is specified via the Action parameter)
// ------------------------------------------------------------------
function TDesignerMainMenu.UpdateMenu(AMenuItem: TMenuItem;
DMenuItem: TDesignerMenuItem; Ind, TheAction: Integer): TMenuItem;
var
i: Integer;
temp_menuitem: TMenuItem;
begin
case TheAction of
// Insert new AMenuItem after selected AMenuItem
1: begin
if (index_sequence[Ind + 1] = -1) then
begin
temp_menuitem:=TMenuItem.Create(fMenu.Owner);
DMenuItem.RealMenuItem := temp_menuitem;
temp_menuitem.Caption:=DMenuItem.Caption;
// code from Mattias (one of mail he sent me)
temp_menuitem.Name:=GetDesigner.CreateUniqueComponentName(temp_menuitem.ClassName);
AMenuItem.Insert(index_sequence[Ind] + 1, temp_menuitem);
GetDesigner.PropertyEditorHook.PersistentAdded(temp_menuitem, true);
GetDesigner.Modified;
end else
begin
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction);
end;
end;
// Insert new AMenuItem before selected AMenuItem
2: begin
if (index_sequence[Ind + 1] = -1) then
begin
temp_menuitem:=TMenuItem.Create(fMenu.Owner);
DMenuItem.RealMenuItem := temp_menuitem;
temp_menuitem.Caption:=DMenuItem.Caption;
// code from Mattias (one of mail he sent me)
temp_menuitem.Name:=GetDesigner.CreateUniqueComponentName(temp_menuitem.ClassName);
AMenuItem.Insert(index_sequence[Ind] - 1, temp_menuitem);
GetDesigner.PropertyEditorHook.PersistentAdded(temp_menuitem, true);
GetDesigner.Modified;
end else
begin
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction);
end;
end;
// Creates SubMenu to an existing AMenuItem
3: begin
if (index_sequence[Ind + 1] = -1) then
begin
temp_menuitem:=TMenuItem.Create(fMenu.Owner);
DMenuItem.RealMenuItem := temp_menuitem;
temp_menuitem.Caption:=DMenuItem.Caption;
// code from Mattias (one of mail he sent me)
temp_menuitem.Name:=GetDesigner.CreateUniqueComponentName(temp_menuitem.ClassName);
AMenuItem[index_sequence[Ind]].Add(temp_menuitem);
GetDesigner.PropertyEditorHook.PersistentAdded(temp_menuitem, true);
GetDesigner.Modified;
end else
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction);
end;
// Moves Up(left) an AMenuItem (changes positions of this AMenuItem and its predecesor)
4: begin
if (index_sequence[Ind + 1] = -1) then
begin
temp_menuitem:=AMenuItem[index_sequence[Ind] + 1];
AMenuItem.Delete(index_sequence[Ind] + 1);
AMenuItem.Insert(index_sequence[Ind], temp_menuitem);
end else
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction)
end;
// Moves Down(right) an AMenuItem (changes positions of this AMenuItem and its ancestor)
5: begin
if (index_sequence[Ind + 1] = -1) then
begin
temp_menuitem:=AMenuItem[index_sequence[Ind]];
AMenuItem.Delete(index_sequence[Ind]);
AMenuItem.Insert(index_sequence[Ind] - 1, temp_menuitem);
end else
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction)
end;
// Changes a caption of AMenuItem
6: begin
if (index_sequence[Ind + 1] = -1) then
begin
//writeln(AMenuItem[index_sequence[Ind]].Caption);
AMenuItem[index_sequence[Ind]].Caption:=DMenuItem.Caption;
end else
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction)
end;
// Deletes a AMenuItem
7: begin
if (index_sequence[Ind + 1] = -1) then
begin
//AMenuItem.Remove(AMenuItem[index_sequence[Ind]]);
temp_menuitem:=AMenuItem[index_sequence[Ind]];
GlobalDesignHook.DeletePersistent(TPersistent(temp_menuitem));
//AMenuItem[index_sequence[Ind]].Free;
end else
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction)
end;
// Deletes a SubMenu of AMenuItem
8: begin
if (index_sequence[Ind + 1] = -1) then
begin
for i := AMenuItem[index_sequence[Ind]].Count - 1 downto 0 do
begin
temp_menuitem:=AMenuItem[index_sequence[Ind]].Items[i];
GlobalDesignHook.DeletePersistent(TPersistent(temp_menuitem));
//AMenuItem[index_sequence[Ind]].Delete(i);
//AMenuItem[index_sequence[Ind]].Items.Free
end;
end else
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction);
end;
// Selectes a AMenuItem in the OI
9: begin
if (index_sequence[Ind + 1] = -1) then
GetDesigner.SelectOnlyThisComponent(AMenuItem[index_sequence[Ind]])
else
UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction);
end;
// Return an AMenuItem
10: begin
if (index_sequence[Ind + 1] = -1) then
Result:=AMenuItem[index_sequence[Ind]]
else
Result:=UpdateMenu(AMenuItem.Items[index_sequence[Ind]], DMenuItem, Ind + 1, TheAction);
end;
// Sonething else
end;
end;
// ---------------------/
// TTemplateMenuForm ---/
// ---------------------/
procedure TTemplateMenuForm.FormCreate(Sender: TObject);
var
i: Integer;
templatemenuitem, str_i: string;
begin
fAction:=TemplateMenuFormCreateAction;
subitem_level:=1;
Label_template_description.Caption:=lisMenuEditorSelectTemplate;
Label_template_view.Caption:=lisMenuEditorTemplatePreview;
Edit_template_description.Text:=lisMenuEditorNewTemplateDescription;
// Templates from menutemplates.xml
i:=1;
Str(i,str_i);
templatemenuitem:='menu_';
while (XMLConfig.GetValue(templatemenuitem + str_i + '/Name/Value','does_not_exists') <> 'does_not_exists') do
begin
TemplatesListBox.Items.Add(XMLConfig.GetValue(templatemenuitem + str_i + '/Description/Value','does_not_exists'));
Inc(i);
Str(i,str_i);
end;
case fAction of
1: begin
// content of "Caption" is generated from LazarusIDEStrConsts
Caption:=lisMenuEditorInsertFromTemplate;
TemplatesListBox.Items.Add(lisMenuTemplateDescriptionStandardFileMenu);
TemplatesListBox.Items.Add(lisMenuTemplateDescriptionStandardEditMenu);
TemplatesListBox.Items.Add(lisMenuTemplateDescriptionStandardHelpMenu);
TemplateView('', 1);
end;
2: begin
// content of "Caption" is generated from LazarusIDEStrConsts
Caption:=lisMenuEditorSaveAsTemplate;
Edit_template_description.Visible:=true;
if TemplatesListBox.Items.Count > 0 then
TemplateView('menu_1/subitem_', 0);
end;
3: begin
// content of "Caption" is generated from LazarusIDEStrConsts
Caption:=lisMenuEditorDeleteFromTemplate;
if TemplatesListBox.Items.Count > 0 then
TemplateView('menu_1/subitem_', 0);
end;
end;
// Select the first menu on list and show it in "Template Preview"
if (TemplatesListBox.Items.Count > 0) then
TemplatesListBox.Selected[0]:=true;
ButtonPanel1.OKButton.OnClick := @OKBitBtnClick;
ButtonPanel1.CancelButton.OnClick := @CancelBitBtnClick;
end;
procedure TTemplateMenuForm.FormResize(Sender: TObject);
begin
TemplatesListBox.Width:=(Width div 2)-14;
end;
procedure TTemplateMenuForm.CancelBitBtnClick(Sender: TObject);
begin
SelectedMenuTemplate := 0;
end;
procedure TTemplateMenuForm.OKBitBtnClick(Sender: TObject);
var
i: Integer;
begin
for i:=0 to TemplatesListBox.Items.Count-1 do
if TemplatesListBox.Selected[i] then
SelectedMenuTemplate:=i + 1;
if (fAction = 2) then begin
if Edit_template_description.Text <> '' then
Description:=Edit_template_description.Text
else // content of "Description" is generated from LazarusIDEStrConsts
Description:=lisMenuEditorNewTemplateDescription;
end;
end;
procedure TTemplateMenuForm.TemplatesListBoxClick(Sender: TObject);
var
i: Integer;
str_i: string;
begin
ListBoxView.Clear;
for i:=0 to TemplatesListBox.Items.Count-1 do
if TemplatesListBox.Selected[i] then SelectedMenuTemplate:=i + 1;
if (fAction <> 1) then
begin
Str(SelectedMenuTemplate, str_i);
TemplateView('menu_' + str_i + '/subitem_', 0);
end else
begin
if (SelectedMenuTemplate > NUMBER_OF_DEFAULT_TEMPLATES) then
begin
Str(SelectedMenuTemplate - NUMBER_OF_DEFAULT_TEMPLATES, str_i);
TemplateView('menu_' + str_i + '/subitem_', 0);
end else
TemplateView('', SelectedMenuTemplate);
end;
ListBoxView.Selected[0]:=false;
end;
function TTemplateMenuForm.GetSelectedMenuTemplate: Integer;
begin
Result:=SelectedMenuTemplate;
end;
function TTemplateMenuForm.GetDescription: string;
begin
Result:=Description;
end;
procedure TTemplateMenuForm.TemplateView(templatemenuitem: string; default_template: Integer);
var
i,j: Integer;
item, subitem_level_space, str_i, temp_string: string;
begin
if (default_template > 0) then
begin
case default_template of
1: begin
ListBoxView.Items.Add(lisFile);
ListBoxView.Items.Add(' ' + lisNew);
ListBoxView.Items.Add(' -');
ListBoxView.Items.Add(' ' + lisOpen);
ListBoxView.Items.Add(' ' + lisMenuTemplateOpenRecent);
ListBoxView.Items.Add(' ' + lisSave);
ListBoxView.Items.Add(' ' + lisSaveAs);
ListBoxView.Items.Add(' ' + lisClose);
ListBoxView.Items.Add(' -');
ListBoxView.Items.Add(' ' + lisExit);
end;
2: begin
ListBoxView.Items.Add(lisEdit);
ListBoxView.Items.Add(' ' + lisUndo);
ListBoxView.Items.Add(' ' + lisRedo);
ListBoxView.Items.Add(' -');
ListBoxView.Items.Add(' ' + lisCut);
ListBoxView.Items.Add(' ' + lisCopy);
ListBoxView.Items.Add(' ' + lisPaste);
ListBoxView.Items.Add(' -');
ListBoxView.Items.Add(' ' + lisMenuTemplateFind);
ListBoxView.Items.Add(' ' + lisMenuTemplateFindNext);
end;
3: begin
ListBoxView.Items.Add(lisHelp);
ListBoxView.Items.Add(' ' + lisMenuTemplateContents);
ListBoxView.Items.Add(' ' + lisMenuTemplateTutorial);
ListBoxView.Items.Add(' -');
ListBoxView.Items.Add(' ' + lisMenuTemplateAbout);
end;
end;
end else
begin
if (subitem_level = 1) then
begin
temp_string:=templatemenuitem;
Delete(temp_string,7,9);
ListBoxView.Items.Add(XMLConfig.GetValue(temp_string + '/Name/Value',''));
end;
Inc(subitem_level);
i:=1;
Str(i, str_i);
while (XMLConfig.GetValue(templatemenuitem + str_i + '/Name/Value','does_not_exists') <> 'does_not_exists') do
begin
subitem_level_space:='';
for j:=1 to subitem_level do
subitem_level_space:=subitem_level_space + ' ';
item:=subitem_level_space + XMLConfig.GetValue(templatemenuitem + str_i + '/Name/Value','does_not_exists');
ListBoxView.Items.Add(item);
if (XMLConfig.GetValue(templatemenuitem + str_i + '/SubItems/Value', '') = 'true') then
TemplateView(templatemenuitem + str_i + '/subitem_', 0);
Inc(i);
Str(i, str_i);
end;
Dec(subitem_level);
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink