IDE, fixed compile for x86_64

git-svn-id: trunk@20356 -
This commit is contained in:
jesus 2009-06-02 20:25:35 +00:00
parent 07befde5d3
commit 887eb89253

View File

@ -73,7 +73,7 @@ begin
for i:= 0 to emcMax do begin
CName := MouseCommandName(i);
if CName <> '' then
ActionBox.Items.AddObject(CName, TObject(i));
ActionBox.Items.AddObject(CName, TObject(ptrint(i)));
end;
ButtonBox.Clear;
for mb := low(TMouseButton) to high(TMouseButton) do