paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 17:42:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed Ctrl child selection

Browse Source 
git-svn-id: trunk@2216 -
This commit is contained in:
mattias 2002-08-17 23:41:08 +00:00
parent e91d6c41ff
commit 16d0352830
1 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
designer/designer.pp
View File

@ -569,41 +569,45 @@ Begin
// no grabber resizing
CompIndex:=ControlSelection.IndexOf(MouseDownComponent);
if (ssShift in Shift) then begin
if ssCtrl in Shift then begin
// child selection
end else begin
if (ssShift in Shift) then begin
// shift key pressed (multiselection)
if CompIndex<0 then begin
// not selected
// add component to selection
if (ControlSelection.SelectionForm<>nil)
and (ControlSelection.SelectionForm<>Form)
then begin
MessageDlg('Invalid mutliselection',
'Multiselected components must be of a single form.',
mtInformation,[mbOk],0);
if CompIndex<0 then begin
// not selected
// add component to selection
if (ControlSelection.SelectionForm<>nil)
and (ControlSelection.SelectionForm<>Form)
then begin
MessageDlg('Invalid mutliselection',
'Multiselected components must be of a single form.',
mtInformation,[mbOk],0);
end else begin
ControlSelection.Add(MouseDownComponent);
InvalidateWithParent(MouseDownComponent);
end;
end else begin
ControlSelection.Add(MouseDownComponent);
// remove from multiselection
ControlSelection.Delete(CompIndex);
InvalidateWithParent(MouseDownComponent);
end;
end else begin
// remove from multiselection
ControlSelection.Delete(CompIndex);
InvalidateWithParent(MouseDownComponent);
end;
end else begin
// no shift key (single selection)
// no shift key (single selection)
if (CompIndex<0) then begin
// select only this component
// invalidate old components
for i:=0 to ControlSelection.Count-1 do
if ControlSelection[i].Component is TControl then
InvalidateWithParent(TControl(ControlSelection[i].Component));
// clear old selection and select new component
ControlSelection.AssignComponent(MouseDownComponent);
InvalidateWithParent(MouseDownComponent);
if (CompIndex<0) then begin
// select only this component
// invalidate old components
for i:=0 to ControlSelection.Count-1 do
if ControlSelection[i].Component is TControl then
InvalidateWithParent(TControl(ControlSelection[i].Component));
// clear old selection and select new component
ControlSelection.AssignComponent(MouseDownComponent);
InvalidateWithParent(MouseDownComponent);
end;
end;
end;
end else begin