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

cocoa: (de)allocate PaintStruct dinamically, cleanup

Browse Source 
git-svn-id: trunk@38933 -
This commit is contained in:
paul 2012-10-01 08:17:52 +00:00
parent d07bc91aef
commit cbfa6091d1
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -101,7 +101,6 @@ const
// Utility WS functions
function AllocCustomControl(const AWinControl: TWinControl): TCocoaCustomControl;
function EmbedInScrollView(AView: NSView): TCocoaScrollView;
implementation
@ -111,14 +110,6 @@ uses
{$I mackeycodes.inc}
function AllocCustomControl(const AWinControl: TWinControl): TCocoaCustomControl;
begin
if not Assigned(AWinControl) then
Exit(nil);
Result := TCocoaCustomControl(TCocoaCustomControl.alloc).init;
Result.callback := TLCLCommonCallback.Create(Result, AWinControl);
end;
function EmbedInScrollView(AView: NSView): TCocoaScrollView;
var
r: TRect;
@ -804,22 +795,26 @@ end;
procedure TLCLCommonCallback.Draw(ControlContext: NSGraphicsContext;
const bounds, dirty: NSRect);
var
struct: TPaintStruct;
PS: PPaintStruct;
begin
// todo: think more about draw call while previous draw still active
if Assigned(FContext) then
Exit;
FContext := TCocoaContext.Create;
FContext := TCocoaContext.Create(ControlContext);
try
FContext.ctx := ControlContext;
if FContext.InitDraw(Round(bounds.size.width), Round(bounds.size.height)) then
begin
FillChar(struct, SizeOf(TPaintStruct), 0);
struct.hdc := HDC(FContext);
struct.rcPaint := NSRectToRect(dirty);
LCLSendPaintMsg(Target, HDC(FContext), @struct);
if FHasCaret then
DrawCaret;
New(PS);
try
FillChar(PS^, SizeOf(TPaintStruct), 0);
PS^.hdc := HDC(FContext);
PS^.rcPaint := NSRectToRect(dirty);
LCLSendPaintMsg(Target, HDC(FContext), PS);
if FHasCaret then
DrawCaret;
finally
Dispose(PS);
end;
end;
finally
FreeAndNil(FContext);