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

fixed setting event of an TCollectionItem from Michael VC

Browse Source 
git-svn-id: trunk@8113 -
This commit is contained in:
mattias 2005-11-08 22:12:50 +00:00
parent 1ece20396b
commit 75890d34bf
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ideintf/propedits.pp
View File

@ -5498,7 +5498,9 @@ begin
Result:=TPropHookGetObjectName(FHandlers[htGetObject][i])(Instance); Result:=TPropHookGetObjectName(FHandlers[htGetObject][i])(Instance);
end else end else
if Instance is TComponent then if Instance is TComponent then
Result:=TComponent(Instance).Name; Result:=TComponent(Instance).Name
else if instance is TCollectionItem then
Result:=TCollectionItem(Instance).DisplayName;
end; end;
procedure TPropertyEditorHook.GetObjectNames(TypeData:PTypeData; procedure TPropertyEditorHook.GetObjectNames(TypeData:PTypeData;

1
lcl/ldocktree.pas
View File

@ -715,7 +715,6 @@ end;
procedure TAnchoredDockManager.InsertControl(Control: TControl; procedure TAnchoredDockManager.InsertControl(Control: TControl;
InsertAt: TAlign; DropCtl: TControl); InsertAt: TAlign; DropCtl: TControl);
<<<<<<< .mine
Docks Control to or into DropCtl. Docks Control to or into DropCtl.
Control.Parent must be nil. Control.Parent must be nil.