mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-11 01:58:12 +02:00
IDE: component palette: right click does not select component and bring form to front
git-svn-id: trunk@41820 -
This commit is contained in:
parent
ad78656157
commit
d3184470ed
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user