lazarus支持iphone了？

bugxiong

The sample requires a objective-p compiler (fpc 2.5.1 or higher) with cocoaint packages compiled for iPhone

2. program project1;
4. {$mode objfpc}{$H+}
5. {$modeswitch objectivec1}
6. {$linkframework UIKit}
8. uses
9.    iPhoneAll, CGContext, CGGeometry, CFString;
11. type
12.    TAppDelegate = objcclass(NSObject)
13.      procedure applicationDidFinishLaunching(application: UIApplication); message 'applicationDidFinishLaunching:';
14.    end;
16.    TMyWindow = objcclass(UIWindow)
17.    public
18.      procedure drawRect(c: CGRect); override;
19.    end;
21. const
22.    helloworld = 'Hello world';
24. // window paint method
25. procedure TMyWindow.drawRect(c: CGRect);
26. var
27.    cg : CGContextRef;
28. begin
29.    // getting current context
30.    cg:=UIGraphicsGetCurrentContext;
31.    // setting back ground color
32.    CGContextSetRGBFillColor(cg, 0, 0, 0.5, 1);
33.    CGContextFillRect(cg, c);
35.    // rotating up-side down context
36.    CGContextTranslateCTM(cg, 0, c.size.height);
37.    CGContextScaleCTM(cg, 1, -1);
39.    // setting text color
40.    CGContextSetRGBFillColor(cg, 1, 1, 0, 1);
41.    CGContextSetRGBStrokeColor(cg, 1, 1, 0, 1);
42.    // setting font  (must set any)
43.    CGContextSelectFont(cg, 'Helvetica', 30, kCGEncodingMacRoman);
44.    // rendering text
45.    CGContextShowTextAtPoint(cg, 0, c.size.height-50, helloworld, length(helloworld));
46. end;
48. var
49.    mainwindow : TMyWindow;
51. { TAppDelegate }
53. procedure TAppDelegate.applicationDidFinishLaunching(application: UIApplication);
54. begin
55.    // application has initialized, now we can create the main window
56.    mainwindow:=TMyWindow(TMyWindow.alloc);
57.    // initialize window in Objective-C style
58.    mainwindow := TMyWindow(mainwindow.initWithFrame (UIScreen.mainScreen.bounds));
59.    // activate and show the window
60.    mainwindow.makeKeyAndVisible;
61. end;
63. function NSStr(const s: string): NSString;
64. begin
65.    // converting string to NSString (CFStringRef and NSString are interchangable)
66.    Result:=NSString( CFStr(PChar(s)));
67. end;
69. var
70.    pool    : NSAutoreleasePool;
71. begin
72.    // initialize foundation memory manger (aka autorelease pool)
73.    pool := NSAutoreleasePool.alloc.init;
74.    // launching main application loop
75.    ExitCode:=UIApplicationMain(argc, argv, nil, NSSTR('TAppDelegate'));
76.    // according to docs the UIApplicationMain never returns,
77.    // but still the code present in the Obj-C main.m files
78.    pool.release;
79. end.

复制代码

上面代码编译后的效果：


Written from scratch simple arkanoid game UIKit and GoreGraphics games for iPhone/iPod.:
        

真的假的？准备开始支持iphone了？期待啊...

s_guang

哪个版本？怎么我的0.9.29没有这个选项？

wu200yong

太好了,pascal又可以发扬光大了

delphicn

好啊！lazarus前途无量啊！我们中文社区要加快学习建设，发展为最好的中文lazarus社区。

lvjack

在Mac OS上支持，我们windows系统的怎么办？

逍遥派掌门人

没有iphone的环境进行测试

fatspider

Mac OS上也没有见这些选项，是需要另外安装一些插件之类的。

vivifying

太好了  看来又要学习了

lenog

现在还没支持把。。

barboo7704

看來前景一片大好