paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some dummy implementations of delphi compatibility stuff

Browse Source 
git-svn-id: trunk@7673 -
This commit is contained in:
florian 2007-06-15 18:57:05 +00:00
parent 7b47ebff6b
commit 87f87bce0b
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/win32/classes.pp
View File

@ -35,6 +35,12 @@ uses
type
TWndMethod = procedure(var msg : TMessage) of object;
function MakeObjectInstance(Method: TWndMethod): Pointer;
procedure FreeObjectInstance(ObjectInstance: Pointer);
function AllocateHWnd(Method: TWndMethod): HWND;
procedure DeallocateHWnd(Wnd: HWND);
{$i classesh.inc}
implementation
@ -45,6 +51,34 @@ uses
{ OS - independent class implementations are in /inc directory. }
{$i classes.inc}
function MakeObjectInstance(Method: TWndMethod): Pointer;
begin
{ dummy }
runerror(217);
end;
procedure FreeObjectInstance(ObjectInstance: Pointer);
begin
{ dummy }
runerror(217);
end;
function AllocateHWnd(Method: TWndMethod): HWND;
begin
{ dummy }
runerror(217);
end;
procedure DeallocateHWnd(Wnd: HWND);
begin
{ dummy }
runerror(217);
end;
initialization
CommonInit;