初めての ios アプリケーション iphone Form TLabel TButton. 図. コントロールの配置 Button OnClick Button. 00

Size: px

Start display at page:

Download "初めての ios アプリケーション iphone Form TLabel TButton. 図. コントロールの配置 Button OnClick Button. 00"

きみかずたもん
9 years ago
Views:

1 - RAD Studio で Hello world を作る - RAD Studio Hello world - RAD Studio Hello world RAD Studio RAD Studio FireMonkey. 図. プロジェクトの新規作成メニュー. 図. アプリケーションの種類選択ダイアログ 99

2 初めての ios アプリケーション iphone Form TLabel TButton. 図. コントロールの配置 Button OnClick Button. 00

3 - RAD Studio で Hello world を作る図. イベントハンドラの指定 Label.Text := 'Hello world!'; Hello world!. 0

4 初めての ios アプリケーション図. 実行結果 COLUMN デフォルトイベントコントロールのデフォルトイベントを定義できますたとえば TButton のデフォルトイベントは OnClick になっているのでボタンそのものをダブルクリックすると OnClick イベントハンドラが生成されます RAD Studio Xcode Hello world Xcode Control RAD Studio RAD Studio Way-Tools IDE Xcode RAD Studio 0

のデフォルトイベントは OnClick になっているのでボタンそのものをダブルクリックすると OnClick イベ

5 - カップラーメンタイマーを作ろう Windows ios Android UI InterfaceBuilder Storyboard Windows Delphi ios Delphi FireMonkey が Windows 上でも実行可能であることの意味 COLUMN FireMonkey で作成した ios アプリケーションは PAServer を経由して実行するためアプリケーションの配置にそこそこ時間が掛かります毎回この時間を待つのは苦痛かもしれませんしかし FireMonkey はマルチプラットフォームに対応したフレームワークですターゲット OS を Windows にすればそのまま Windows で動作するアプリケーションになりますそのアプリケーションは当然 PAServer を経由しないためコンパイル後すぐに実行されますつまり Windows 上で実行しながら大枠の動きを確認しつつ要所要所で ios シミュレータや ios デバイスで実行するということが簡単にできるのですこれは開発効率の向上に大いに寄与することでしょう - - Xcode RAD Studio FireMonkey CupRamenTimer.dproj umain.pas 0

ターゲット OS を Windows にすればそのまま Windows で動作するアプリケーションになりますそのアプリケーションは当然 PAServer を経由しないためコンパイル後すぐに実行されますつまり Windows 上で実行しながら大枠の動きを確認

6 初めての ios アプリケーションユーザーインターフェースの作成 Form Name frmmain. 図. Nameプロパティ TToolBar. 図. Alignプロパティ TToolBar TToolBar 0

7 - カップラーメンタイマーを作ろう Align Align altop Align. 表. Alignプロパティの代表的な値値説明 altop 親領域の上部にフィット幅は親領域の幅と同じ大きさ albottom 親領域の下部にフィット幅は親領域の幅と同じ大きさ alleft 親領域の左部にフィット高さは親領域の高さと同じ大きさ alright 親領域の右部にフィット高さは親領域の高さと同じ大きさ alclient 親領域の空いている領域にフィットする大きさになる alcenter 親領域の中央に表示される ToolBar bartitle TLabel ToolBar lbltitle Text.8 図.8 Textプロパティ 0

幅は親領域の幅と同じ大きさ alleft 親領域の左部にフィット高さは親領域の高さと同じ大きさ alright 親領域の右部にフィット高

8 初めての ios アプリケーション AutoSize AutoSize True.9 AutoSize 図.9 AutoSizeプロパティ ios ios ToolBar StyleLookup StyleLookup.0 0

9 - カップラーメンタイマーを作ろう図.0 StyleLookupプロパティ ToolBar StyleLookup toollabel ToolBar. 図. Style 適用後 0

10 初めての ios アプリケーション Align alclient AutoSize True False. 図. Alignの設定 TextAlign TextAlign. 表. TextAlignの値値 tacenter taleading tatrailing 説明中央寄せ左寄せ右寄せ tacenter. 08

11 - カップラーメンタイマーを作ろう図. TextAlignプロパティ TSpinBox spintimer lbltimerprefix lbltimersuffix AutoSize True. lbltimerprefix Text lbltimersuffix Text 09

12 初めての ios アプリケーション図. SpinBoxとプロパティ Ctrl. 図. 複数のコンポーネントを選択し位置揃えを行う 0

13 - カップラーメンタイマーを作ろう. 図. 位置揃えダイアログ. 図. 選択したコントロールが中央に揃う Text lblresttimeprefix

14 初めての ios アプリケーション lblresttime Text 00:00 Font.Size Font.Style fsbold btnstart Text.8 図.8 Fontプロパティ TTimer TMediaPlayer TTimer Interval OnTimer

15 - カップラーメンタイマーを作ろう Timer timerresttime Interval 00 Enabled Timer Enabled True Timer Enabled False TMediaPlayer FileName MP Play.9 図.9 TTimerとTMediaPlayer MP IPA.0

16 初めての ios アプリケーション図.0 配置マネージャを開くメニュー MP.. 図. 配置マネージャ

17 - カップラーメンタイマーを作ろう図. MPを選ぶダイアログ. 図. MPが追加される. StartUp Documents.

18 初めての ios アプリケーション図. パスの修正 Documents/alarm.mp GUI frmmain bartitle (TToolBar) lbltitle (TLabel) btnstart (TButton) lblresttime (TLabel) lblresttimeprefix (TLabel) lbltimerprefix (TLabel) lbltimersuffix (TLabel) spintimer (TSpinBox) playeralarm (TMediaPlayer) timeresttime (TTimer) 構成ツリーのコンポーネントの名前の後ろの括弧内はコンポーネントのクラス名コーディング btnstart OnClick timerresttime OnTimer frmmain OnCreate

lblresttimeprefix (TLabel) lbltimerprefix (TLabel) lbltimersuffix (TLabel) spintimer (TSpinBox)

19 - カップラーメンタイマーを作ろうリスト. カップラーメンタイマーのソースコード unit umain; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, FMX.Edit, FMX.Media; type TfrmMain = class(tform) bartitle: TToolBar; lbltitle: TLabel; spintimer: TSpinBox; lbltimerprefix: TLabel; lbltimersuffix: TLabel; lblresttime: TLabel; btnstart: TButton; lblresttimeprefix: TLabel; timerresttime: TTimer; playeralarm: TMediaPlayer; procedure btnstartclick(sender: TObject); procedure timerresttimetimer(sender: TObject); procedure FormCreate(Sender: TObject); private { private } // FTime: TDateTime; FTargetTime: Integer; FStarting: Boolean; // procedure SetAllEnabled(const ienabled: Boolean); procedure SetTime(const iresttime: Integer); public { public } end;

Media; type TfrmMain = class(tform) bartitle: TToolBar; lbltitle: TLabel; spintimer: TSpinBox; lbltimerprefix: TLabel; lbltimersuffix: TLabel; lblresttime: TLabel; btnstart: TButton;

20 初めての ios アプリケーション var frmmain: TfrmMain; implementation uses System.DateUtils; // {$R *.fmx} // btnstart OnClick procedure TfrmMain.btnStartClick(Sender: TObject); begin if (FStarting) then begin SetAllEnabled(False); end else begin if (spintimer.value = 0) then ShowMessage(' ') else begin FTime := Now; FTargetTime := Trunc(spinTimer.Value) * 0; SetAllEnabled(True); SetTime(FTargetTime); end; end; end; // frmmain OnCreate procedure TfrmMain.FormCreate(Sender: TObject); begin playeralarm.filename := GetHomePath + PathDelim + 'Documents' + PathDelim + 'alarm.mp'; end; // Enabled procedure TfrmMain.SetAllEnabled(const ienabled: Boolean); begin FStarting := ienabled; timerresttime.enabled := ienabled; spintimer.enabled := not ienabled; 8

btnStartClick(Sender: TObject); begin if (FStarting) then begin SetAllEnabled(False); end else begin if (spintimer.

21 - カップラーメンタイマーを作ろう if (ienabled) then begin btnstart.text := ' '; SetTime(FTargetTime); end else begin btnstart.text := ' '; SetTime(0); end; end; // lblresttime procedure TfrmMain.SetTime(const iresttime: Integer); begin lblresttime.text := Format('%.d:%.d', [iresttime div 0, iresttime mod 0]); end; // timerresttime OnTimer procedure TfrmMain.timerRestTimeTimer(Sender: TObject); var Diff: Integer; begin Diff := SecondsBetween(Now, FTime); if (Diff > FTargetTime) then begin SetAllEnabled(False); playeralarm.play; ShowMessage(' '); end else SetTime(FTargetTime - Diff); end; end. 9

１　シミュレーションとは何か？

１　シミュレーションとは何か？ Delphi P.1/16 Delphi Delphi Object Pascal Delphi Delphi Delphi (Borland) Windows Turbo Pascal Pascal Delphi Turbo Pascal Windows Pascal FORTRAN BASIC Java Algol Algol Pascal Pascal Pascal Pascal Delphi

初 めての ios アプリケーション iphone Form TLabel TButton. 図. コントロールの 配 置 Button OnClick Button. 00

初めての ios アプリケーション iphone Form TLabel TButton. 図. コントロールの配置 Button OnClick Button. 00