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

git-svn-id: trunk@41820 -
This commit is contained in:
mattias 2013-06-23 12:57:58 +00:00
parent ad78656157
commit d3184470ed

View File

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