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

IDE: component palette: right click does not select component and bring form to front

Browse Source 
git-svn-id: trunk@41820 -
This commit is contained in:
mattias 2013-06-23 12:57:58 +00:00
parent ad78656157
commit d3184470ed
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/componentpalette.pas
View File

@ -276,13 +276,16 @@ end;
procedure TComponentPalette.ComponentBtnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssShift in Shift then
SelectionMode := csmMulty
else
SelectionMode := csmSingle;
SelectButton(TComponent(Sender));
if Assigned(OnClassSelected) then
OnClassSelected(Self);
if Button=mbLeft then
begin
if ssShift in Shift then
SelectionMode := csmMulty
else
SelectionMode := csmSingle;
SelectButton(TComponent(Sender));
if Assigned(OnClassSelected) then
OnClassSelected(Self);
end;
end;
procedure TComponentPalette.ComponentBtnMouseUp(Sender: TObject; Button: TMouseButton;