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

IDE: double click on component palette invokes selection dialog

Browse Source 
git-svn-id: trunk@20489 -
This commit is contained in:
mattias 2009-06-06 18:56:56 +00:00
parent 5306762a21
commit 8edea32cee
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/componentpalette.pas
View File

@ -241,7 +241,12 @@ begin
//debugln('TComponentPalette.ComponentBtnDblClick ',TComponent(Sender).Name);
if SelectButton(TComponent(Sender)) and (FSelected<>nil) then begin
if FormEditingHook<>nil then begin
TypeClass:=FSelected.ComponentClass;
if assigned(FSelected.OnGetCreationClass) then
begin
FSelected.OnGetCreationClass(Self,TypeClass);
if TypeClass=nil then exit;
end else
TypeClass:=FSelected.ComponentClass;
ParentCI:=FormEditingHook.GetDefaultComponentParent(TypeClass);
if ParentCI=nil then exit;
if not FormEditingHook.GetDefaultComponentPosition(TypeClass,ParentCI,X,Y)