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

IDE: prevent crash in component palette options when doing drag and drop.

Browse Source 
git-svn-id: trunk@46831 -
This commit is contained in:
juha 2014-11-12 23:20:27 +00:00
parent 5c80f5b1f3
commit 957d32b9e0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/componentpalette_options.pas
View File

@ -448,11 +448,13 @@ procedure TCompPaletteOptionsFrame.ComponentsListViewDragDrop(Sender, Source: TO
var
lv: TListView;
DestInd: Integer;
SrcItem: TListItem;
SrcItem, DstItem: TListItem;
begin
lv := Sender as TListView;
DestInd := lv.GetItemAt(X, Y).Index;
DstItem := lv.GetItemAt(X, Y);
SrcItem := lv.Selected;
if (DstItem = nil) or (SrcItem = nil) then exit;
DestInd := DstItem.Index;
Assert(Source = Sender, 'TCompPaletteOptionsFrame.ComponentsListViewDragDrop: Source and Sender ListViews differ.');
DebugLn(['TCompPaletteOptionsFrame.ComponentsListViewDragDrop: DestInd=', DestInd,
', ItemIndex=', SrcItem.Index]);