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

IDE: clean up

Browse Source 
git-svn-id: trunk@42605 -
This commit is contained in:
mattias 2013-09-05 10:08:54 +00:00
parent d132cd455b
commit 69ec5e3d47
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/componentpalette_options.pas
View File

@ -236,7 +236,6 @@ var
SrcView: TListView; SrcView: TListView;
DestPt: TPoint; DestPt: TPoint;
Ind, DestInd: integer; Ind, DestInd: integer;
szTemp: String;
Item: TListItem; Item: TListItem;
begin begin
lb := Sender as TListBox; lb := Sender as TListBox;
@ -268,6 +267,7 @@ begin
Item := SrcView.Items[Ind]; Item := SrcView.Items[Ind];
SrcView.Items.Delete(Ind); // delete the item that is being dragged SrcView.Items.Delete(Ind); // delete the item that is being dragged
// ToDo: insert item into this page in a temporary data // ToDo: insert item into this page in a temporary data
if Item=nil then ;
end; end;
inc(Ind); inc(Ind);
end; end;