Browse Source

ADD: DARWIN COCOA: implement ResizeWindow in TWlxModule (#602)

rich2014 3 years ago
parent
commit
16c9b94fda
1 changed files with 8 additions and 0 deletions
  1. 8 0
      src/uwlxmodule.pas

+ 8 - 0
src/uwlxmodule.pas

@@ -23,6 +23,9 @@
 unit uWlxModule;
 
 {$mode objfpc}{$H+}
+{$IFDEF DARWIN}
+{$modeswitch objectivec1}
+{$ENDIF}
 
 interface
 
@@ -45,6 +48,9 @@ uses
   {$IFDEF LCLQT5}
   , qt5, qtwidgets
   {$ENDIF}
+  {$IFDEF LCLCOCOA}
+  , CocoaAll
+  {$ENDIF}
   {$IF DEFINED(MSWINDOWS) and (DEFINED(LCLQT5) or DEFINED(DARKWIN))}
   , uDarkStyle
   {$ENDIF}
@@ -497,6 +503,8 @@ begin
     {$ELSEIF DEFINED(LCLGTK2)}
     gtk_widget_set_uposition(PGtkWidget(FPluginWindow), Left, -1);
     gtk_widget_set_usize(PGtkWidget(FPluginWindow), Right - Left, Bottom - Top);
+    {$ELSEIF DEFINED(LCLCOCOA)}
+    NSView(FPluginWindow).setFrame( NSMakeRect(Left,Top,Width,Height) );
     {$ENDIF}
   end;
 end;