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

Menu editor: Now remove the in-place caption editor. Issue #41022.

Browse Source
This commit is contained in:
Juha 2024-07-12 16:43:45 +03:00
parent 2d8a7be0db
commit af75c766b1
1 changed files with 1 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
designer/menueditor.pp
View File

@ -165,7 +165,7 @@ type
popAddSeparatorBefore, popAddSeparatorAfter, popRemoveAllSeparators,
popItemDelete, popItemAddBefore, popItemAddAfter, popItemAddSubMenu,
popItemSep,
popAddImgListIcon, popItemAddOnClick, popItemEditCaption,
popAddImgListIcon, popItemAddOnClick,
popItemOISep,
popShortcuts_,
popListShortcuts, popListShortcutsAccelerators,
@ -185,8 +185,6 @@ type
FInitialSelectedMenuItem: TMenuItem;
FItemsPopupMenu: TPopupMenu;
FRootBox: TShadowBox;
FInPlaceEditor: TEdit;
FEditedMenuItem: TMenuItem;
procedure DeleteBox(aMI: TMenuItem);
procedure DeleteItm(anItem: TMenuItem);
function GetActionForEnum(anEnum: TPopEnum): TAction;
@ -202,13 +200,11 @@ type
procedure CreateShadowBoxesAndItems;
procedure DeleteChildlessShadowAndItem(anExistingSI: TShadowItem);
procedure DeleteShadowAndItemAndChildren(anExistingSI: TShadowItem);
procedure InPlaceEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure OnDesignerModified(Sender: TObject);
procedure OnObjectPropertyChanged(Sender: TObject; NewObject: TPersistent);
procedure OnDesignerRefreshPropertyValues;
procedure RecursiveCreateShadows(aParentBox: TShadowBox; aMI: TMenuItem);
procedure SetupPopupMenu;
procedure StopEditingCaption;
procedure UpdateButtonGlyphs(isInBar: boolean);
// user actions
procedure AddFromTemplate(Sender: TObject);
@ -220,7 +216,6 @@ type
procedure AddSubMenu(Sender: TObject);
procedure AddFirstMenu(Sender: TObject);
procedure DeleteTemplate(Sender: TObject);
procedure EditCaption(Sender: TObject);
procedure ListShortcuts(Sender: TObject);
procedure ListShortcutsAndAccelerators(Sender: TObject);
procedure MoveItemAfter(Sender: TObject);
@ -713,59 +708,6 @@ begin
end;
end;
procedure TShadowMenu.EditCaption(Sender: TObject);
var
SelShadow: TShadowItem;
begin
SelShadow := SelectedShadowItem;
if (SelShadow <> nil) then begin
HideFakes;
FEditedMenuItem := FSelectedMenuItem;
FInPlaceEditor.Parent := SelShadow;
// ToDo: Calculate Left and Width properly.
FInPlaceEditor.Left := 24;
FInPlaceEditor.Width := SelShadow.Width - 24;
FInPlaceEditor.Text := FEditedMenuItem.Caption;
FInPlaceEditor.Visible := True;
FInPlaceEditor.SetFocus;
end;
end;
procedure TShadowMenu.StopEditingCaption;
var
EditedShadow: TShadowItem;
s: TCaption;
begin
if not FInPlaceEditor.Visible then Exit;
Assert(Assigned(FEditedMenuItem), 'TShadowMenu.StopEditingCaption: FEditedMenuItem = Nil');
EditedShadow := TShadowItem(GetShadowForMenuItem(FEditedMenuItem));
s := FInPlaceEditor.Text;
if s <> '' then
begin
FEditedMenuItem.Caption:=s;
if (s = cLineCaption) and AnsiStartsStr('MenuItem', FEditedMenuItem.Name) then
FEditedMenuItem.Name:=FEditorDesigner.CreateUniqueComponentName('Separator');
GlobalDesignHook.RefreshPropertyValues;
GlobalDesignHook.Modified(FEditedMenuItem);
EditedShadow.Invalidate;
end;
EditedShadow.SetFocus;
FInPlaceEditor.Text := '';
FInPlaceEditor.Visible := False;
FInPlaceEditor.Parent := Nil;
FEditedMenuItem := Nil;
RefreshFakes;
end;
procedure TShadowMenu.InPlaceEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
VK_ESCAPE: begin Key:=0; FInPlaceEditor.Text := ''; StopEditingCaption; end;
VK_RETURN: begin Key:=0; StopEditingCaption; end;
else inherited KeyDown(Key, Shift);
end;
end;
procedure TShadowMenu.AddSeparatorAbove(Sender: TObject);
var
selected: TShadowItem;
@ -900,7 +842,6 @@ var
nearestMI, mi: TMenuItem;
box: TShadowBox;
begin
StopEditingCaption;
FDesigner.FGui.BeginUpdate;
try
mi:=anExistingSI.RealItem;
@ -1232,8 +1173,6 @@ begin
end;
popItemOISep:
NewSeparatorAction;
popItemEditCaption:
NewPopItem(lisMenuEditorEditCaption, @EditCaption, KeyToShortCut(VK_RETURN, []));
popItemMoveBefore: begin
NewPopItem('', @MoveItemBefore, KeyToShortCut(VK_UP,[ssCtrl]));
MoveItemUpButton.Action:=ac;
@ -1648,7 +1587,6 @@ begin
begin
if (prevSelectedItem <> nil) then
begin
StopEditingCaption;
prevShadow:=TShadowItem(GetShadowForMenuItem(prevSelectedItem));
if (prevShadow <> nil)
and (selectedShadow.ParentBox.ParentMenuItem <> prevSelectedItem)
@ -1742,7 +1680,6 @@ begin
end;
popItemDelete: ac.Enabled:=(FMenu.Items.Count > 0);
//popItemOISep
//popItemEditCaption
popItemMoveBefore: begin
ac.Enabled:=not isFirst;
if isInBar then begin
@ -1837,9 +1774,6 @@ begin
FAddFirstItemFake.Name := 'AddFirstItemFake';
FAddFirstItemFake.Left := Popup_Origin.x;
FAddFirstItemFake.Top := Popup_Origin.y;
FInPlaceEditor := TEdit.Create(Self);
FInPlaceEditor.OnKeyDown := @InPlaceEditKeyDown;
FInPlaceEditor.Visible := False;
ConnectSpeedButtonOnClickMethods;
GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged);
GlobalDesignHook.AddHandlerModified(@OnDesignerModified);