Issue with Delphi 12

[mhietan]

With Win64 compile:

procedure TVirtualSendToMenu.OnMenuItemClick(Sender: TObject);
var
  M: TComponent;
  DataObject: IDataObject;
  DropTarget: IDropTarget;
  DropEffect: Longint;

begin
  if (Sender is TComponent) then begin
    M := Sender as TComponent;

    if M.Tag > -1 then begin
      DoSendTo(SendToItems[M.Tag], DataObject);
      if Assigned(DataObject) then begin
        DropEffect := DROPEFFECT_COPY or DROPEFFECT_MOVE or DROPEFFECT_LINK;
        DropTarget := SendToItems[M.Tag].DropTargetInterface;
        if Assigned(DropTarget) then
          if Succeeded(DropTarget.DragEnter(DataObject, MK_LBUTTON, Point(0, 0), DropEffect)) then
          begin
            DropEffect := DROPEFFECT_COPY or DROPEFFECT_MOVE or DROPEFFECT_LINK;
            DropTarget.Drop(DataObject, 0, Point(0, 0), DropEffect)
          end
      end
    end;
  end;
end;

Compile error occurs in DoSendTo(SendToItems[M.Tag], DataObject); and DropTarget := SendToItems[M.Tag].DropTargetInterface; lines. Win32 compile is okay.

Similar errors are occurring in procedure TCustomVirtualToolbar.RebuildToolbar; in line CaptionButton.Height := ButtonList[ButtonList.Count - 1].Bottom and CaptionButton.Height := ButtonList[ButtonList.Count - 1].Bottom in line CaptionButton.Height := ButtonList[ButtonList.Count - 1].Bottom And Win32 compile is okay.

[romankassebaum]

Fixed.