paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 06:18:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazActiveX: remove the typelib related code and units when compiling for WinCE because it can't be ported there, add to activexcontainer.pas a few stubs for API functions that are not defined in WinCE. Patch by Ludo Brands, bug #22152.

Browse Source 
git-svn-id: trunk@37521 -
This commit is contained in:
maxim 2012-06-04 21:06:16 +00:00
parent 54fdf62499
commit d468662d4a
3 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/activex/activexcontainer.pas
View File

@ -209,6 +209,25 @@ type
implementation
{$ifdef wince}
const
GWLP_USERDATA=GWL_USERDATA;
function GetWindowLongPtrW(hWnd:HWND; nIndex:longint):LONG;
begin
result:=GetWindowLongW(hWnd, nIndex);
end;
function SetWindowLongPtrW(hWnd:HWND; nIndex:longint; dwNewLong:LONG):LONG;
begin
result:=SetWindowLongW(hWnd, nIndex, dwNewLong);
end;
function SetWindowLongPtr(hWnd:HWND; nIndex:longint; dwNewLong:LONG):LONG;
begin
result:=SetWindowLongW(hWnd, nIndex, dwNewLong);
end;
{$endif wince}
function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam;
lParam: LParam): LRESULT; stdcall;

4
components/activex/importtypelib.pas
View File

@ -4,6 +4,7 @@ unit ImportTypelib;
interface
{$ifndef wince}
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, EditBtn,
StdCtrls,lazideintf,projectintf,PackageIntf;
@ -33,9 +34,11 @@ var
FrmTL: TFrmTL;
procedure ImpTypeLib(Sender: TObject);
{$endif wince}
implementation
{$ifndef wince}
uses typelib;
procedure ImpTypeLib(Sender: TObject);
@ -138,6 +141,7 @@ begin
end;
{$R *.lfm}
{$endif wince}
end.

8
components/activex/lazactivexreg.pas
View File

@ -33,7 +33,11 @@ unit lazactivexreg;
interface
uses
activexcontainer,ImportTypelib;
activexcontainer
{$ifndef wince}
,ImportTypelib
{$endif wince}
;
procedure Register;
@ -44,7 +48,9 @@ uses classes,LResources,MenuIntf, LCLIntf;
procedure Register;
begin
{$ifndef wince}
RegisterIDEMenuCommand(itmSecondaryTools, 'ImportTL','Import Type Library',nil,@ImpTypeLib);
{$endif wince}
RegisterComponents('ActiveX', [TActiveXContainer]);
end;