activex.pp OleTranslateAccelerator definition problem
lazarus / 67-Windows

----------------------------------------------------------------------
440bx · 2025-07-10 08:36

Hello,

In activex.pp, OleTranslateAccelerator is defined as:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i   function
OleTranslateAccelerator(lpFrame:IOleInPlaceFrame;
lpFrameInfo:TOleInPlaceFrameInfo;
lpmsg:LPMSG):WINOLEAPI;stdcall;external 'ole32.dll' name
'OleTranslateAccelerator'; Note the definition of the second
parameter:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  
lpFrameInfo:TOleInPlaceFrameInfo; That parameter should be a pointer
to a TOleInPlaceFrameInfo not a TOleInPlaceFrameInfo

The C definition is:
Code: C  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i HRESULT
OleTranslateAccelerator(  [in] LPOLEINPLACEFRAME     lpFrame,  [in]
LPOLEINPLACEFRAMEINFO lpFrameInfo,  [in] LPMSG                
lpmsg); Showing that the second parameter is a pointer to an
OLEINPLACEFRAMEINFO

HTH.

----------------------------------------------------------------------
ASerge · 2025-07-10 18:10

In Delphi 7 is defined as:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i function
OleTranslateAccelerator(frame: IOleInPlaceFrame;  var frameInfo:
TOleInPlaceFrameInfo; msg: PMsg): HResult; stdcall;

----------------------------------------------------------------------
marcov · 2025-07-10 19:25

So is FPC since this morning: https://gitlab.com/freepascal.org/fpc/so
urce/-/commit/5a227b98882b87ad5804c38d0e49c65ebfd9815a