paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 14:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improve drag-n-drop logic in Component Palette Options page. Accept only in right places.

Browse Source 
git-svn-id: trunk@42914 -
This commit is contained in:
juha 2013-09-23 17:29:17 +00:00
parent b49550e81b
commit 041c0ccdaf
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/frames/componentpalette_options.pas
View File

@ -355,7 +355,7 @@ var
', ItemIndex=', lb.ItemIndex]);
if lb.ItemIndex < DestInd then
Dec(DestInd);
if (lb.ItemIndex > 0) and (DestInd > 0) and (lb.ItemIndex <> DestInd) then
if (lb.ItemIndex > 0) and (lb.ItemIndex <> DestInd) then
begin
lb.Items.Move(lb.ItemIndex, DestInd);
lb.ItemIndex := DestInd;
@ -382,7 +382,7 @@ var
DestPage := lb.Items[DestInd];
if SrcPage <> DestPage then
begin
// Source
// Source component
Ind := lb.Items.IndexOf(SrcPage);
Assert(Ind > -1, 'TCompPaletteOptionsFrame.PagesListBoxDragDrop: '
+'source page index not found.');
@ -392,7 +392,7 @@ var
+'source component index not found.');
xComp := SrcComps.Objects[Ind];
SrcComps.Delete(Ind);
// Destination
// Destination component
Ind := lb.Items.IndexOf(DestPage);
Assert(Ind > -1, 'TCompPaletteOptionsFrame.PagesListBoxDragDrop: '
+'destination page index not found.');
@ -414,10 +414,13 @@ var
begin
lb := Sender as TListBox;
DestInd := lb.ItemAtPos(Point(X, Y), true);
if Source is TListBox then
DoInsideListBox
else if Source is TListView then
DoFromListView(Source as TListView);
if DestInd > 0 then
begin
if Source is TListBox then
DoInsideListBox
else if Source is TListView then
DoFromListView(Source as TListView);
end;
end;
procedure TCompPaletteOptionsFrame.PagesListBoxDragOver(Sender,
@ -430,9 +433,9 @@ begin
lb := Sender as TListBox;
DestPt := Point(X, Y);
DestInd := lb.ItemAtPos(DestPt, true);
Accept := ( (Source is TListBox) and (Source = Sender)
and (lb.ItemIndex > 0) and (DestInd > 0)
) or (Source is TListView);
Accept := (DestInd > 0)
and ( ( (Source is TListBox) and (Source = Sender) and (lb.ItemIndex > 0)
) or (Source is TListView) );
end;
// Drag-drop ComponentsListView
@ -454,7 +457,7 @@ begin
if (SrcItem.Index > -1) and (DestInd > -1) and (SrcItem.Index <> DestInd) then
begin
lv.Selected := Nil;
lv.items.Move(SrcItem.Index, DestInd);
lv.Items.Move(SrcItem.Index, DestInd);
lv.Selected := lv.Items[DestInd];
UpdateCompMoveButtons(DestInd);
end;