From 4d743ea1198853b640fc91d7dc58ecdadbd4de2f Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 12 Sep 2018 18:26:14 +0000
Subject: [PATCH] IdeIntf: Cleanup for PropEdits.

git-svn-id: trunk@58968 -
---
 components/ideintf/propedits.pp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/components/ideintf/propedits.pp b/components/ideintf/propedits.pp
index 12ead27c49..9bf784e854 100644
--- a/components/ideintf/propedits.pp
+++ b/components/ideintf/propedits.pp
@@ -5808,12 +5808,9 @@ procedure TMenuItemCaptionEditor.SetValue(const NewValue: ansistring);
 var
   Designer: TIDesigner;
   MI: TMenuItem;
-  //Obj: TObject;
   Inst: TPersistent;
 begin
-  //Obj := GetObjectValue;   <- returns an invalid pointer. Why?
-  Inst := FPropList^[0].Instance;
-  DebugLn(['TMenuItemCaptionEditor.SetValue: Instance=', Inst]);
+  Inst := GetComponent(0);
   if (NewValue = cLineCaption) and (Inst is TMenuItem) then
   begin
     MI := TMenuItem(Inst);