paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 22:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added TDeviceContextMemManager

Browse Source 
git-svn-id: trunk@749 -
This commit is contained in:
lazarus 2002-02-09 01:46:16 +00:00
parent db7c768ec3
commit 1580317416
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk/gtkobject.inc
View File

@ -4920,7 +4920,7 @@ end;
function TgtkObject.NewDC: PDeviceContext;
begin
Assert(False, Format('Trace:> [TgtkObject.NewDC]', []));
New(Result);
Result:=GtkDef.NewPDeviceContext;
with Result^ do
begin
hWnd := 0;
@ -4942,6 +4942,19 @@ begin
// Assert(False, Format('Trace:< [TgtkObject.NewDC] FDeviceContexts[%d] --> 0x%p', [n, Result]));
end;
{------------------------------------------------------------------------------
procedure TgtkObject.DisposeDC(DC: PDeviceContext);
Disposes DC
------------------------------------------------------------------------------}
procedure TgtkObject.DisposeDC(pDC: PDeviceContext);
begin
if FDeviceContexts.Contains(pDC) then begin
FDeviceContexts.Remove(pDC);
GtkDef.DisposePDeviceContext(pDC);
end;
end;
{------------------------------------------------------------------------------
Function: NewGDIObject
Params: none
@ -5298,6 +5311,9 @@ end;
{ =============================================================================
$Log$
Revision 1.171 2002/08/21 14:06:40 lazarus
MG: added TDeviceContextMemManager
Revision 1.170 2002/08/21 11:42:52 lazarus
MG: reduced output