cocoa: move ScreenContext to CocoaGDIObjects, always create it since it is used by any LCL application

git-svn-id: trunk@38880 -

lcl/interfaces/cocoa/cocoagdiobjects.pas

@@ -435,6 +435,7 @@ var
   DefaultPen: TCocoaPen;
   DefaultFont: TCocoaFont;
   DefaultBitmap: TCocoaBitmap;
+  ScreenContext: TCocoaContext;
 
 function CheckDC(dc: HDC): TCocoaContext;
 function CheckDC(dc: HDC; Str: string): Boolean;
@@ -1330,6 +1331,7 @@ begin
   FRegion := TCocoaRegion.CreateDefault;
   FRegion.AddRef;
   FClipRegion := FRegion;
+  FSavedDCList := nil;
   FText := TCocoaTextLayout.Create;
   FClipped := False;
 end;
@@ -2591,10 +2593,13 @@ initialization
   DefaultPen := TCocoaPen.CreateDefault;
   DefaultFont := TCocoaFont.CreateDefault;
   DefaultBitmap := TCocoaBitmap.CreateDefault;
+  ScreenContext := TCocoaContext.Create;
 
 finalization
+  ScreenContext.Free;
   DefaultBrush.Free;
   DefaultPen.Free;
   DefaultFont.Free;
   DefaultBitmap.Free;
+
 end.

lcl/interfaces/cocoa/cocoaint.pas

@@ -141,9 +141,6 @@ implementation
 uses
   CocoaCaret;
 
-var
-  ScreenContext : TCocoaContext = nil;
-
 // the implementation of the utility methods
 {$I cocoaobject.inc}
 // the implementation of the winapi compatibility methods

lcl/interfaces/cocoa/cocoaobject.inc

@@ -448,7 +448,6 @@ end;
 
 procedure InternalFinal;
 begin
-  if Assigned(ScreenContext) then ScreenContext.Free;
 end;
 
 

lcl/interfaces/cocoa/cocoawinapi.inc

@@ -1303,11 +1303,8 @@ function TCocoaWidgetSet.GetDC(hWnd: HWND): HDC;
 var
   ctx: TCocoaContext;
 begin
-  if hWnd=0 then
-  begin
-    if not Assigned(ScreenContext) then ScreenContext:=TCocoaContext.Create;
-    Result:=HDC(ScreenContext);
-  end
+  if hWnd = 0 then
+    Result := HDC(ScreenContext)
   else
   begin
     // ToDo: Not finished yet

lcl/interfaces/cocoa/cocoawscommon.pas

@@ -786,6 +786,7 @@ end;
 
 function TLCLCommonCallback.DeliverMessage(var Msg): LRESULT;
 begin
+//  WriteLn('Delivering message to target: ', PtrInt(Target), ' ', Target.ClassName);
   Result := LCLMessageGlue.DeliverMessage(Target, Msg);
 end;