paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-12 16:48:18 +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

3
ide/componentpalette.pas
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;