paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-26 03:22:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed TDefaultComponentEditor

Browse Source 
git-svn-id: trunk@2399 -
This commit is contained in:
mattias 2002-08-17 23:41:20 +00:00
parent 4240e2e89f
commit cff852ae18
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
designer/designer.pp
View File

@ -613,32 +613,22 @@ Begin
if (ControlSelection.SelectionForm<>nil)
and (ControlSelection.SelectionForm<>Form)
then begin
MessageDlg('Invalid mutliselection',
MessageDlg('Invalid multiselection',
'Multiselected components must be of a single form.',
mtInformation,[mbOk],0);
end else begin
ControlSelection.Add(MouseDownComponent);
//InvalidateWithParent(MouseDownComponent);
end;
end else begin
// remove from multiselection
ControlSelection.Delete(CompIndex);
//InvalidateWithParent(MouseDownComponent);
end;
end else begin
// 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);
end;
end;
end;