mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 09:59:23 +02:00
IDE: Assign event handler in better place, designer will be focused when component is selected in palette.
git-svn-id: trunk@47352 -
This commit is contained in:
parent
e79a9d4cce
commit
7b2b561fcb
@ -1549,6 +1549,7 @@ begin
|
|||||||
Application.AddOnEndSessionHandler(@OnApplicationEndSession);
|
Application.AddOnEndSessionHandler(@OnApplicationEndSession);
|
||||||
Screen.AddHandlerRemoveForm(@OnScreenRemoveForm);
|
Screen.AddHandlerRemoveForm(@OnScreenRemoveForm);
|
||||||
Screen.AddHandlerActiveFormChanged(@OnScreenChangedForm);
|
Screen.AddHandlerActiveFormChanged(@OnScreenChangedForm);
|
||||||
|
TComponentPalette(IDEComponentPalette).OnClassSelected := @ComponentPaletteClassSelected;
|
||||||
SetupHints;
|
SetupHints;
|
||||||
SetupIDEWindowsLayout;
|
SetupIDEWindowsLayout;
|
||||||
RestoreIDEWindows;
|
RestoreIDEWindows;
|
||||||
@ -3694,7 +3695,6 @@ begin
|
|||||||
', HideControls=', IDEComponentPalette.HideControls]);
|
', HideControls=', IDEComponentPalette.HideControls]);
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
IDEComponentPalette.Update(False);
|
IDEComponentPalette.Update(False);
|
||||||
TComponentPalette(IDEComponentPalette).OnClassSelected := @ComponentPaletteClassSelected;
|
|
||||||
SetupHints;
|
SetupHints;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user