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

* fixed leaking of CGImage in every screen drawing operation

Browse Source 
git-svn-id: trunk@7742 -
This commit is contained in:
Jonas Maebe 2007-06-20 15:11:01 +00:00
parent 8beb015957
commit 2700c4eeb0
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/base/graph/macosx/graph.pp
View File

@ -290,7 +290,6 @@ function CreateHIView (inWindow: WindowRef; const inBounds: Rect; var outControl
var
root : ControlRef;
event : EventRef;
contentView: HIViewRef;
err : OSStatus;
label
CantCreate, CantGetRootControl, CantSetParameter, CantCreateEvent{, CantRegister};
@ -339,7 +338,7 @@ function MyDrawEventHandler (myHandler: EventHandlerCallRef;
var
myContext: CGContextRef;
bounds: HIRect;
img: CGImageRef;
begin
// writeln('event');
MyDrawEventHandler := GetEventParameter (event, // 1
@ -355,9 +354,11 @@ function MyDrawEventHandler (myHandler: EventHandlerCallRef;
if (MyDrawEventHandler <> noErr) then
exit;
EnterCriticalSection(graphdrawing);
img:=CGBitmapContextCreateImage(offscreen);
CGContextDrawImage(myContext,
bounds,
CGBitmapContextCreateImage(offscreen));
img);
CGImageRelease(img);
updatepending:=false;
LeaveCriticalSection(graphdrawing);
end;
@ -1019,7 +1020,7 @@ begin
if assigned(newEvent) then
if PostEventToQueue(source,newEvent,kEventPriorityStandard) <> noErr then
runerror(218);
result := noErr;
GraphEventHandler := noErr;
ReleaseEvent(event);
end;