paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 13:31:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ dummy for De/AllocateHWnd

Browse Source 
git-svn-id: trunk@3408 -
This commit is contained in:
florian 2006-05-01 19:28:54 +00:00
parent d3b92ccb6f
commit e2085cf71b
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/win64/classes.pp
View File

@ -35,7 +35,10 @@ type
function MakeObjectInstance(Method: TWndMethod): Pointer;
procedure FreeObjectInstance(ObjectInstance: Pointer);
{$i classesh.inc}
function AllocateHWnd(Method: TWndMethod): HWND;
procedure DeallocateHWnd(Wnd: HWND);
{$i classesh.inc}
implementation
@ -57,6 +60,18 @@ procedure FreeObjectInstance(ObjectInstance: Pointer);
end;
function AllocateHWnd(Method: TWndMethod): HWND;
begin
runerror(211);
end;
procedure DeallocateHWnd(Wnd: HWND);
begin
runerror(211);
end;
initialization
CommonInit;