View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0022049 | Lazarus | LCL | public | 2012-05-16 11:50 | 2012-05-16 22:20 |
Reporter | bolek | Assigned To | Maxim Ganetsky | ||
Priority | normal | Severity | block | Reproducibility | have not tried |
Status | closed | Resolution | fixed | ||
Product Version | 1.1 (SVN) | ||||
Fixed in Version | 1.1 (SVN) | ||||
Summary | 0022049: Cant compile activexcontainer | ||||
Description | win64 error line 588 FPrevWndProc:=Windows.WNDPROC(SetWindowLong(Handle,GWL_WNDPROC,PtrInt(@WndCallback))); should be FPrevWndProc:=Windows.WNDPROC(PtrInt(SetWindowLong(Handle,GWL_WNDPROC,PtrInt(@WndCallback)))); | ||||
Tags | No tags attached. | ||||
Fixed in Revision | 37295 | ||||
LazTarget | - | ||||
Widgetset | Win32/Win64 | ||||
Attached Files |
|
|
The correct solution is: FPrevWndProc:=Windows.WNDPROC(SetWindowLongPtr(Handle,GWL_WNDPROC,PtrInt(@WndCallback))); Patch attached. |
2012-05-16 12:47
|
AXcontainer.diff (1,046 bytes)
Index: activexcontainer.pas =================================================================== --- activexcontainer.pas (revision 37273) +++ activexcontainer.pas (working copy) @@ -584,8 +584,8 @@ var size:TPOINT; begin - SetWindowLong(Handle,GWLP_USERDATA, ptruint(Self)); - FPrevWndProc:=Windows.WNDPROC(SetWindowLong(Handle,GWL_WNDPROC,PtrInt(@WndCallback))); + SetWindowLongPtr(Handle,GWLP_USERDATA, PtrInt(Self)); + FPrevWndProc:=Windows.WNDPROC(SetWindowLongPtr(Handle,GWL_WNDPROC,PtrInt(@WndCallback))); FAttached:=true; olecheck((FOleObject as IOleObject).SetClientSite(Self as IOleClientSite)); olecheck((FOleObject as IOleObject).SetHostNames(PWideChar(name),PWideChar(name))); @@ -601,8 +601,8 @@ begin if FAttached then begin - SetWindowLong(Handle,GWL_WNDPROC,PtrUInt(@FPrevWndProc)); - SetWindowLong(Handle,GWLP_USERDATA, 0); + SetWindowLongPtr(Handle,GWL_WNDPROC,PtrInt(@FPrevWndProc)); + SetWindowLongPtr(Handle,GWLP_USERDATA, 0); end; if assigned(FOleObject) then begin |
|
thank you |
|
Applied, thanks. Please test and close if ok. |
Date Modified | Username | Field | Change |
---|---|---|---|
2012-05-16 11:50 | bolek | New Issue | |
2012-05-16 11:50 | bolek | Widgetset | => Win32/Win64 |
2012-05-16 12:36 | Ludo Brands | Note Added: 0059645 | |
2012-05-16 12:42 | Ludo Brands | Note Edited: 0059645 | |
2012-05-16 12:47 | Ludo Brands | File Added: AXcontainer.diff | |
2012-05-16 13:19 | bolek | Note Added: 0059646 | |
2012-05-16 21:57 | Maxim Ganetsky | Fixed in Revision | => 37295 |
2012-05-16 21:57 | Maxim Ganetsky | LazTarget | => - |
2012-05-16 21:57 | Maxim Ganetsky | Status | new => resolved |
2012-05-16 21:57 | Maxim Ganetsky | Fixed in Version | => 1.1 (SVN) |
2012-05-16 21:57 | Maxim Ganetsky | Resolution | open => fixed |
2012-05-16 21:57 | Maxim Ganetsky | Assigned To | => Maxim Ganetsky |
2012-05-16 21:57 | Maxim Ganetsky | Note Added: 0059655 | |
2012-05-16 21:57 | Maxim Ganetsky | Note Edited: 0059655 | |
2012-05-16 22:20 | bolek | Status | resolved => closed |