paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 04:32:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

added more Delphi win32 compatibility functions

Browse Source 
git-svn-id: trunk@2219 -
This commit is contained in:
mattias 2002-08-17 23:41:08 +00:00
parent 84c9a98202
commit 797a3c0192
1 changed files with 3 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/include/control.inc
View File

@ -1917,23 +1917,6 @@ begin
//writeln('TControl.Create END ',Name,':',ClassName);
end;
{------------------------------------------------------------------------------}
{ TControl Create Component }
{------------------------------------------------------------------------------}
procedure TControl.CreateComponent(AOwner : TComponent);
begin
CNSendMessage(LM_CREATE, Self, nil);
end;
{------------------------------------------------------------------------------}
{ TControl Destroy Component }
{------------------------------------------------------------------------------}
procedure TControl.DestroyComponent;
begin
CNSendMessage(LM_DESTROY, Self, nil);
end;
{------------------------------------------------------------------------------
Method: TControl.GetDeviceContext
Params: WindowHandle: the windowhandle of this control
@ -2065,6 +2048,9 @@ end;
{ =============================================================================
$Log$
Revision 1.110 2002/12/27 17:12:37 mattias
added more Delphi win32 compatibility functions
Revision 1.109 2002/12/25 10:21:05 mattias
made Form.Close more Delphish, added some windows compatibility functions