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

Revert "IdeIntf: Add AnchorEditor MenuItem to Object Inspector." Does not work in user apps.

Browse Source 
This reverts commit 79e00c03c5.
This commit is contained in:
Juha 2025-07-14 13:34:12 +03:00
parent b9310a4a6d
commit 67462eb3bb
2 changed files with 5 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/ideintf/objectinspector.pp
View File

@ -734,7 +734,6 @@ type
function GridPropertyHint(Sender: TObject; PointedRow: TOIPropertyGridRow; function GridPropertyHint(Sender: TObject; PointedRow: TOIPropertyGridRow;
out AHint: string): boolean; out AHint: string): boolean;
procedure PropEditPopupClick(Sender: TObject); procedure PropEditPopupClick(Sender: TObject);
procedure AnchorEditorItemClick(Sender: TObject);
procedure AddToFavoritesPopupmenuItemClick(Sender: TObject); procedure AddToFavoritesPopupmenuItemClick(Sender: TObject);
procedure RemoveFromFavoritesPopupmenuItemClick(Sender: TObject); procedure RemoveFromFavoritesPopupmenuItemClick(Sender: TObject);
procedure ViewRestrictionsPopupmenuItemClick(Sender: TObject); procedure ViewRestrictionsPopupmenuItemClick(Sender: TObject);
@ -5222,18 +5221,6 @@ begin
OnFindDeclarationOfProperty(Self); OnFindDeclarationOfProperty(Self);
end; end;
procedure TObjectInspectorDlg.AnchorEditorItemClick(Sender: TObject);
var
idx: integer;
begin
for idx := 0 to PropertyGrid.RowCount-1 do
if PropertyGrid.Rows[idx].Name = 'Anchors' then
begin
PropertyGrid.Rows[idx].Editor.Edit;
Break;
end;
end;
procedure TObjectInspectorDlg.CutPopupmenuItemClick(Sender: TObject); procedure TObjectInspectorDlg.CutPopupmenuItemClick(Sender: TObject);
var var
ADesigner: TIDesigner; ADesigner: TIDesigner;
@ -5811,8 +5798,8 @@ end;
procedure TObjectInspectorDlg.MainPopupMenuPopup(Sender: TObject); procedure TObjectInspectorDlg.MainPopupMenuPopup(Sender: TObject);
const const
PropertyEditorMIPrefix = 'PropEdVerb'; PropertyEditorMIPrefix = 'PropertyEditorVerbMenuItem';
ComponentEditorMIPrefix = 'CompEdVerb'; ComponentEditorMIPrefix = 'ComponentEditorVerbMenuItem';
var var
ComponentEditorVerbSeparator: TMenuItem; ComponentEditorVerbSeparator: TMenuItem;
PropertyEditorVerbSeparator: TMenuItem; PropertyEditorVerbSeparator: TMenuItem;
@ -5823,7 +5810,7 @@ var
begin begin
PropertyEditorVerbSeparator := nil; PropertyEditorVerbSeparator := nil;
for I := MainPopupMenu.Items.Count - 1 downto 0 do for I := MainPopupMenu.Items.Count - 1 downto 0 do
if StartsStr(PropertyEditorMIPrefix, MainPopupMenu.Items[I].Name) then if Pos(PropertyEditorMIPrefix, MainPopupMenu.Items[I].Name) = 1 then
MainPopupMenu.Items[I].Free; MainPopupMenu.Items[I].Free;
end; end;
@ -5856,7 +5843,7 @@ var
begin begin
ComponentEditorVerbSeparator:=nil; ComponentEditorVerbSeparator:=nil;
for I := MainPopupMenu.Items.Count - 1 downto 0 do for I := MainPopupMenu.Items.Count - 1 downto 0 do
if StartsStr(ComponentEditorMIPrefix, MainPopupMenu.Items[I].Name) then if Pos(ComponentEditorMIPrefix, MainPopupMenu.Items[I].Name) = 1 then
MainPopupMenu.Items[I].Free; MainPopupMenu.Items[I].Free;
end; end;
@ -5924,15 +5911,9 @@ var
MainPopupMenu.Items.Insert(ComponentEditorVerbSeparator.MenuIndex + 1, ZItem) MainPopupMenu.Items.Insert(ComponentEditorVerbSeparator.MenuIndex + 1, ZItem)
else else
MainPopupMenu.Items.Insert(0, ZItem); MainPopupMenu.Items.Insert(0, ZItem);
// Add MenuItem for AnchorEditor at the same go.
Item := NewItem(oisAnchorEditor, 0, False, True, @AnchorEditorItemClick, 0,
ComponentEditorMIPrefix+'AnchorEditor');
Item.ImageIndex := IDEImages.LoadImage('menu_view_anchor_editor');
MainPopupMenu.Items.Insert(ZItem.MenuIndex + 1, Item);
// Then a separator
Item := NewLine; Item := NewLine;
Item.Name := ComponentEditorMIPrefix+'ZOrderSeparator'; Item.Name := ComponentEditorMIPrefix+'ZOrderSeparator';
MainPopupMenu.Items.Insert(ZItem.MenuIndex + 2, Item); MainPopupMenu.Items.Insert(ZItem.MenuIndex + 1, Item);
end; end;
var var

1
components/ideintf/objinspstrconsts.pas
View File

@ -47,7 +47,6 @@ resourcestring
oisUndo = 'Undo'; oisUndo = 'Undo';
oisFinddeclaration = 'Jump to declaration'; oisFinddeclaration = 'Jump to declaration';
oisJumpToDeclarationOf = 'Jump to declaration of %s'; oisJumpToDeclarationOf = 'Jump to declaration of %s';
oisAnchorEditor = 'Anchor Editor';
oisCutComponents = 'Cu&t'; oisCutComponents = 'Cu&t';
oisCopyComponents = '&Copy'; oisCopyComponents = '&Copy';
oisPasteComponents = '&Paste'; oisPasteComponents = '&Paste';