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

IDE: Show designer when clicking "Selection tool" in component palette. Issue #39808, patch by n7800.

Browse Source
This commit is contained in:
Juha 2023-11-26 13:02:05 +02:00
parent 6e0bc52cbc
commit 9ed2086320
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/componentpalette.pas
View File

@ -657,6 +657,8 @@ end;
procedure TComponentPalette.SelectionToolClick(Sender: TObject); procedure TComponentPalette.SelectionToolClick(Sender: TObject);
begin begin
SelectAButton(TSpeedButton(Sender)); SelectAButton(TSpeedButton(Sender));
if Assigned(OnClassSelected) then
OnClassSelected(Self);
end; end;
procedure TComponentPalette.ComponentBtnMouseDown(Sender: TObject; Button: TMouseButton; procedure TComponentPalette.ComponentBtnMouseDown(Sender: TObject; Button: TMouseButton;