lazarus-ccr/bindings/pascocoa/examples/simplewindow/simplewindow.pas

{
 simpleform.pas

 This example shows how to use the objective-c runtime headers to call
 initialization and finalization code for an objective-c class (in this case
 NSAutoreleasePool), and also shows a message box using minimal AppKit
 bindings to demonstrate that this can be used to build Cocoa applications.

 Compilation of this example requires the following options:
 -k-framework -kcocoa -k-lobjc

 This example project is released under public domain

 AUTHORS: Felipe Monteiro de Carvalho
}
program simplewindow;

{$mode delphi}

uses
  objc, ctypes, FPCMacOSAll, AppKit, Foundation;

const
  Str_Panel_Title = 'This is the title';
  Str_Panel_Message = 'This is the message';
var
  { classes }
  pool: NSAutoreleasePool;
  MainWindow: NSWindow;
  { strings }
  CFTitle, CFMessage: CFStringRef;
  { sizes }
  MainWindowRect: NSRect;
begin
  {  NSAutoreleasePool* pool = [[NSAutoreleasePool alloc] init]; }
  pool := NSAutoreleasePool.Create;

  // Creates the application NSApp object
  NSApp := NSApplication.sharedApplication;

  // Creates a simple window
  MainWindowRect.origin.x := 300.0;
  MainWindowRect.origin.y := 300.0;
  MainWindowRect.size.width := 300.0;
  MainWindowRect.size.height := 500.0;

  MainWindow := NSWindow.initWithContentRect(MainWindowRect,
    NSTitledWindowMask or NSClosableWindowMask or NSMiniaturizableWindowMask or NSResizableWindowMask,
    NSBackingStoreBuffered, NO);
    
  MainWindow.orderFrontRegardless;

//    CreateMenu();

  { Enters main message loop }

  NSApp.run;

  {  [pool release]; }
  pool.Free;
end.