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

IdeIntf: Cleanup for PropEdits.

Browse Source 
git-svn-id: trunk@58968 -
This commit is contained in:
juha 2018-09-12 18:26:14 +00:00
parent 721c734e03
commit 4d743ea119
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/ideintf/propedits.pp
View File

@ -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);