IDE: fixed compilation under 64bit

git-svn-id: trunk@14303 -
This commit is contained in:
mattias 2008-02-28 14:18:43 +00:00
parent abdd8c5aa4
commit 5546ec3c29

View File

@ -234,7 +234,7 @@ begin
begin
with IssueTreeView.Items.AddChild(nil, Issues[I]) do
begin
ID := Integer(Issues.Objects[I]);
ID := PtrInt(Issues.Objects[I]);
ImageIndex := IDEImages.LoadImage(16, WidgetSetImageNames[FIssueList[ID].WidgetSet]);
StateIndex := ImageIndex;