Delphi 10 Berlin 在tabitem加上數字

tabbarcustom

interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TabControl, FMX.Controls.Presentation, FMX.Edit,
  FMX.EditBox, FMX.SpinBox, FMX.StdCtrls, FMX.Layouts, FMX.ListBox,
  FMX.NumberBox;
 
type
  TForm16 = class(TForm)
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    BadgeItem: TTabItem;
    SpinBox1: TSpinBox;
    ToolBar1: TToolBar;
    Switch1: TSwitch;
    ListBox1: TListBox;
    ListBoxItem1: TListBoxItem;
    ToolLabel: TLabel;
    TabControl1: TTabControl;
    procedure BadgeItemPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
    procedure SpinBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Switch1Switch(Sender: TObject);
    procedure StepperUpClick(Sender: TObject);
  private
    FBadge: Integer;
    FShowBadge: Boolean;
    procedure SetBadge(const Value: Integer);
    procedure SetShowBadge(const Value: Boolean);
    { Private declarations }
  public
    { Public declarations }
    property Badge: Integer read FBadge write SetBadge;
    property ShowBadge: Boolean read FShowBadge write SetShowBadge;
  end;
 
var
  Form16: TForm16;
 
implementation
 
{$R *.fmx}
{$R *.iPhone55in.fmx IOS}
 
procedure DrawBadge(Canvas: TCanvas; const ARect: TRectF; const Text: string;
  const Color: TAlphaColor = TAlphaColorRec.Red);
const
  Padding = 2;
  HorzTextMargin = 6;
  VertTextMargin = 4;
var
  R: TRectF;
  TextSize: TSizeF;
  Brush: TBrush;
  BadgeRadius: Single;
begin
  Canvas.Font.Size := 12;
  // Measure text width
  TextSize := TSizeF.Create(Canvas.TextWidth(Text), Canvas.TextHeight(Text));
  // Calculate badge rect
  R := TRectF.Create(0, 0, HorzTextMargin * 2 + TextSize.Width, VertTextMargin * 2 + TextSize.Height);
  if R.Width < R.Height then
    R.Width := R.Height;
  // Position rect
  R := TRectF.Create(ARect.Right - R.Width, ARect.Top, ARect.Right, ARect.Top + R.Height);
  R.Offset(-Padding, Padding);
  // Draw badge
  BadgeRadius := R.Height / 2;
  Brush := TBrush.Create(TBrushKind.Solid, Color);
  try
    Canvas.FillRect(R, BadgeRadius, BadgeRadius, AllCorners, 1, Brush);
  finally
    Brush.Free;
  end;
  // Draw text
  Canvas.Fill.Color := TAlphaColorRec.White;
  Canvas.FillText(R, Text, False, 1, [], TTextAlign.Center, TTextAlign.Center);
end;
 
procedure TForm16.BadgeItemPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  if ShowBadge then
    DrawBadge(Canvas, ARect, FBadge.ToString);
end;
 
procedure TForm16.FormCreate(Sender: TObject);
begin
  FBadge := 1;
end;
 
procedure TForm16.SetBadge(const Value: Integer);
begin
  if FBadge  Value then
  begin
    FBadge := Value;
    BadgeItem.Repaint;
  end;
end;
 
procedure TForm16.SetShowBadge(const Value: Boolean);
begin
  if FShowBadge  Value then
  begin
    FShowBadge := Value;
    BadgeItem.Repaint;
  end;
end;
 
procedure TForm16.SpinBox1Change(Sender: TObject);
begin
  Badge := Trunc(SpinBox1.Value);
end;
 
procedure TForm16.StepperUpClick(Sender: TObject);
begin
  Badge := Trunc(SpinBox1.Value);
end;
 
procedure TForm16.Switch1Switch(Sender: TObject);
begin
  ShowBadge := Switch1.IsChecked;
end;
 
end.

原始資料:https://community.embarcadero.com/blogs?view=entry&id=9074

能取代parse服務的台灣MBaas平台-Lightspeed

Facebook收購國外著名的MBaaS(行動雲端平台)服務 Parse後,前幾天無預警的宣布一年後將關閉服務。也讓大家開始尋找新的MBaaS(行動雲端平台)服務,希望能為企業App加入推播、即時通訊、社交功能,來加速開發流程。
尋找解決方案中,看到台灣在2014年就有赫迅這家公司,提供了Lightspeed這個服務。包辦複雜的後端架構,而且提供推播、即時通訊以及社群互動功能加入app。
lightspeed01
目前該服務已經服務的客戶有許多知名的公司及媒體如Sony、遠傳電信、蘋果日報、蘋果動新聞、壹週刊網、窮游、海底撈火鍋、ump聯動優勢、csdn、中國銀聯。
lightspeed02
目前的申請方式需先至服務的申請頁面,然後填寫表單後核准。
lightspeed03
核准後會收到一封裡面有beta code的邀請函,然後註冊後就可以試用。
lightspeed04

lightspeed05

lightspeed06

相關聯結:
Lightspeed官方網站
sdk說明文件
試用申請
Lightspeed Admin Console
主控台

Delphi 10 Seattle隆重登場

很久沒更新近況了!最近Embarcadero出了Delphi 10 Seattle,主要是針對行動裝置/PC以及IOT物聯網。

到時候再來分享一下

1442335478407

另一件事在設計電子發票,當然圖片中少了CODE39的條碼啦XDD

11205488_10152975552941541_8585917734032493888_n

Day4 – Delphi XE5 簡易BMI計算器

今天教大家設計BMI計算機,螢幕快照 2013-10-12 下午12.30.53

1首先開啟一個空白專案

螢幕快照 2013-10-12 下午12.31.17

2新增一個ListBox

螢幕快照 2013-10-12 下午12.31.31

3將aligh 設為 alClient(填滿)

螢幕快照 2013-10-12 下午12.31.53

4將GroupingKind 設成 gsGrouped

螢幕快照 2013-10-12 下午12.32.17

5將StyleLookup 設定 transparentlistboxstyle

itemeditor

6在畫面上按右鍵開啟 Items Editor

itemsdesigner1

7下拉TListBoxGroupHeader後按Add Item

itemsdesigner2

8接著下拉 TListBoxItem 後按 Add Item

螢幕快照 2013-10-12 下午12.33.24

9新增如上圖

螢幕快照 2013-10-12 下午12.34.04

10點上面的LiboxGroupHeader1修改Text 為 BMI計算機,TextAligh設為 taCenter(置中)螢幕快照 2013-10-12 下午12.34.48

11陸續修改其他如上圖

螢幕快照 2013-10-12 下午12.35.16

12新增TEdit元件

螢幕快照 2013-10-12 下午12.35.34

13修改屬性Aligh 為 alRight

螢幕快照 2013-10-12 下午12.36.23

14將KeyboardType改成 vktNumberPad (預設開啟數字鍵盤)

螢幕快照 2013-10-12 下午12.36.50

15新增一個Button

螢幕快照 2013-10-12 下午12.37.06

16將Aligh 設為 alClient

螢幕快照 2013-10-12 下午12.37.24

17 Text設為計算

螢幕快照 2013-10-12 下午12.37.44

18新增Label

螢幕快照 2013-10-12 下午12.38.17

19設定完畫面如圖

螢幕快照 2013-10-12 下午12.38.35

20將edit1.text,edit2.text的TextAligh屬性設為 taTrailing (置右)

螢幕快照 2013-10-12 下午12.39.34

21都設定完之後,可以下拉成不同機器

螢幕快照 2013-10-12 下午12.39.03 螢幕快照 2013-10-12 下午12.39.16

22可以看得到在ios、android會自動轉換成各自的風格

sourcecode

23接著在畫面的計算按鈕點二下,輸入上圖的程式

procedure TForm1.Button1Click(Sender: TObject);
var
  BMI:double;
begin
  BMI := StrToFloat(FormatFloat('#.##',(StrToFloat(Edit2.text) /
         ( (StrToFloat(Edit1.Text)/ 100) * (StrToFloat(Edit1.Text)/100 )))));
  Label1.Text := FloatToStr(BMI);
end;

螢幕快照 2013-10-12 下午12.41.36

24 可以雙點不同的平台,看看跑出來的效果

螢幕快照 2013-10-12 下午12.42.16

25 Windows

螢幕快照 2013-10-12 下午12.47.44

螢幕快照 2013-10-12 下午12.48.00

26 iPhone

1386014_10151624432496541_1740355845_n 1382787_10151624432376541_1638450671_n

27  Android

Github 程式下載 https://github.com/superlevin/delphixe5bmicalc

 

Day3 – Delphi XE5簡易手電筒

在經過前二天的安裝以及設定之後,今天來教大家寫一個最簡單的app-手電筒。十分鐘就可以完成了唷 🙂

螢幕快照 2013-10-10 下午8.43.051新增空白專案

螢幕快照 2013-10-10 下午8.56.04

2接著我們要在畫面上放上二個元件,在右下角的元件盤中搜尋打上tswitch,這是一個開關的元件。直接在TSwitch快點二下

螢幕快照 2013-10-10 下午8.56.28

3第二個元件是TCameraComponent,從名稱就知道跟相機有關的,沒錯,因為手電筒就是打開相機的閃光燈。一樣也是搜尋到之後快點二下即可。

螢幕快照 2013-10-10 下午9.16.09

4二個元件放上去的畫面

螢幕快照 2013-10-10 下午8.56.45

5接下來點選畫面上的CameraComponent1元件,然後左下角的Active打勾成為 True

螢幕快照 2013-10-10 下午8.57.05

6接下來點選畫面上的Switch元件,然後將左下角的屬性視窗點Events頁籤,往下找到OnSwitch快點右邊空白處二下

螢幕快照 2013-10-10 下午8.59.57

7在裡面輸入以下的程式

  if Switch1.IsChecked then begin
    if CameraComponent1.HasFlash then
      CameraComponent1.TorchMode := TTorchMode.tmModeOn;
  end else begin
    if CameraComponent1.HasFlash then
       CameraComponent1.TorchMode := TTorchMode.tmModeOff;
  end;

稍微講解一下,如果Switch是打開的(Switch1.IsChecked),檢查相機是不是有閃光燈(CameraComponent1.HasFlash),確定有的話,就將相機的TorchMode(燈光)打開(tmModeOn),相反的就是關掉(tmModeOff)。

打完收功!按下F9之後,就是您的第一個APP程式叫「手電筒」XD

範例程式碼下載: https://github.com/superlevin/delphixe5flashlight

實機操作畫面:

Day2 – Delphi XE5 開發Android、Mac/iOS設定

Android設定

螢幕快照 2013-10-09 下午4.27.29

1開始功能表→Embarcadero RAD Studio XE5→Android Tools

螢幕快照 2013-10-09 下午4.52.09

2開啟之後,其實就是Android SDK Manager的畫面

螢幕快照 2013-10-09 下午4.53.16

3點選上面功能表Tools→Manage AVDs就可以看到delphi xe5在安裝時會自動新增一個rsxe5_android模擬器

螢幕快照 2013-10-09 下午4.37.15

4如果您已安裝好自己android手機的usb驅動程式,可以進入命令字元模式(執行→cmd),然後輸入 adb devices,如果正確的話就會列出您的手機。

Mac/iOS設定

螢幕快照 2013-10-09 下午5.03.04

1到apple網站下載xcode並安裝(網址 https://developer.apple.com/xcode/)

螢幕快照 2013-10-09 下午5.03.35

螢幕快照 2013-10-09 下午5.03.21

2安裝完成後,打開xcode,進入選單Preferences中安裝Command line tools

螢幕快照 2013-10-09 下午5.06.27

3將C:\Program Files\Embarcadero\RAD Studio\12.0\PAServer中的RADPAServerXE5.pkg複製到mac上安裝,完成後就會出現RAD PAServer XE5

測試設定是否成功

Android APP開發

螢幕快照 2013-10-09 下午5.09.49

1打開 delphi XE5主程式,點選 File -> New -> FireMoneky Mobile Application – Delphi 新增專案

螢幕快照 2013-10-09 下午5.10.08

2選擇blank application(空白專案)

螢幕快照 2013-10-09 下午5.13.16

3自動建立一個手機app的空白專案

螢幕快照 2013-10-09 下午5.13.32

4預設是執行到android上(粗體),其他也可以直接執行在iOS的實機或模擬器上

螢幕快照 2013-10-09 下午5.16.56

螢幕快照 2013-10-09 下午5.19.57

5從右下角的Tool Palette(工具盤),點一下TButton,再回到手機畫面的空白處拖拉出您要的大小

螢幕快照 2013-10-09 下午5.21.16

螢幕快照 2013-10-09 下午5.23.20

6再到左下角的Object Inspector(物件檢視器),下拉到Text的部份,把Button1改成Hello World

螢幕快照 2013-10-09 下午5.29.17

7點開右邊的project1,把android下面target的部份設定成PC36100(壽山的HTC手機),接著點選功能表的RUN→RUN(或直接按F9)

1391869_10151619643916541_923988776_n

8實機拍攝的狀況

iOS APP開發

延續上面的1~6的步驟。

螢幕快照 2013-10-09 下午5.44.38

螢幕快照 2013-10-09 下午5.45.15

0在mac機器上打開paserver,並輸入密碼(一定要輸入),並取得該主機的ip(可以打開終端機輸入ifconfig)

未命名1

未命名

未命名2

1在ios simlulator點二下變粗體後,按右鍵Properties在profile的地方下拉,按add new

螢幕快照 2013-10-09 下午5.42.29

2輸入設定檔名稱按下一步(next)

螢幕快照 2013-10-09 下午5.42.52

螢幕快照 2013-10-09 下午5.45.48

3輸入執行paserver的主機ip以及密碼,沒問題的話按test connection會出現成功訊息

螢幕快照 2013-10-09 下午5.46.00

4設定好後按finish,接著點ok,就可以按f9執行了

螢幕快照 2013-10-09 下午6.00.39

5模擬器執行畫面如上,恭禧您!已經學會iOS跟Android APP設計的第一步了。

 

系列文章

Day1 – Delphi XE5試用安裝

在接下來的30天裡,壽山要挑戰教大家利用Delphi XE5的30天Free Trials(試用版),從delphi的門外漢,到可以設計Android、iOS程式的初學者。

首先,第一天先教大家如何申請試用版本以及安裝。

系統需求

  • 記憶體:1 GB  (2 GB以上更好)
  • 硬碟空間: 需3-24 GB 的空間
  • 光碟機(安裝程式用)
  • 基本的GPU – Any vendor DirectX 9.0 class or better (Pixel Shader Level 2)
  • 處理器: Intel® Pentium® or compatible, 1.6 GHz minimum (2GHz+ recommended)
  • 顯示器:1024×768 or higher-resolution monitor
  • 滑鼠:
  • 系統版本:
    • Microsoft® Windows 8 (32-bit and 64-bit)
    • Microsoft® Windows 7 SP1 (32-bit and 64-bit)
    • Microsoft® Windows Vista™ SP2 (32-bit and 64-bit) requires administrator rights
    • Microsoft® Windows Server® 2008 (32-bit and 64-bit)

其他需求

Mac/iOS

需要有一台OS X 10.7以上版本的電腦(可以買一台便宜的Mac mini 約二萬左右)跑paserver編譯程式。

上面需裝有XCode以及裝上command line tools。

Android

如果需要開發android程式,手機的處理器需是 ARM7 規格,版本需求是

  • Android Gingerbread (2.3.3-2.7)
  • Ice Cream Sandwich (4.0.3 and 4.0.4)
  • Jelly Bean (4.1.x, 4.2.x and 4.3.x)

接著要安裝您的手機的USB驅動程式,以及打開手機的USB 偵錯模式

下載篇

螢幕快照 2013-10-09 上午11.33.00

1到embarcadero官網(http://www.embarcadero.com),點選Logo旁的free trials

螢幕快照 2013-10-09 上午11.33.412進入後,可以看到embarcadero有提供許多產品試用版下載試用,我們點選 Delphi XE的下載

螢幕快照 2013-10-09 上午11.33.58

3點入後,會詢問你要下載那個版本Delphi XE5 Architect – 30 day trial 還是Embarcadero RAD Studio XE5 Architect – 30 day trial。我們點選Delphi XE5 Architect – 30 day trial 的download就好。螢幕快照 2013-10-09 上午11.35.13

4接下來會要求您註冊會登入帳號,如果沒有的話就打左邊的基本資料註冊一個。螢幕快照 2013-10-09 上午11.36.305都完成之後,會自動下載程式,並且會寄一封電子郵件告知您試用版本的序號是什麼。

安裝篇

下載完之後,接著我們開始安裝。

螢幕快照 2013-10-09 下午3.15.07

螢幕快照 2013-10-09 下午3.16.30

1雙點剛才下載的delphi_xe5_esd的程式二下開啟安裝程式。

螢幕快照 2013-10-09 下午3.17.39 螢幕快照 2013-10-09 下午3.17.47

2選擇語系English,按ok,接著按下一步(Next)。

螢幕快照 2013-10-09 下午3.19.08

3使用者條款,在I accept the license agreement打勾按Next

螢幕快照 2013-10-09 下午3.21.39

4到剛才註冊的信箱收信,會收到一封embarcadero寄來的試用序號,把信中的Serial Number(s)輸入到Serial Number裡面

螢幕快照 2013-10-09 下午3.23.37

5會再詢問要安裝其他語系到裡面嗎?直接按下一步

螢幕快照 2013-10-09 下午3.24.32

6會告訴您系統所需空間,以及安裝那些程式進去,按下一步(next)

螢幕快照 2013-10-09 下午3.25.47

7因為可以開發Android程式,所以會幫您安裝 android sdk跟 android ndk,繼續下一步

螢幕快照 2013-10-09 下午3.27.11

8出現android sdk的使用者條款,一樣勾選I accept the license agreement按下一步

螢幕快照 2013-10-09 下午3.28.44

9選單名稱跟出現在那位使用者的選單上,直接按下一步

螢幕快照 2013-10-09 下午3.30.05

10安裝路徑,直接下一步

螢幕快照 2013-10-09 下午3.30.52

11檔案關聯,一樣點選下一步

螢幕快照 2013-10-09 下午3.32.16

12在程式安裝或更新中,需要下載檔案的路徑位置,沒有問題的話就下一步

螢幕快照 2013-10-09 下午3.33.40

13確定沒有問題就要開始安裝囉!直接按下一步

螢幕快照 2013-10-09 下午3.34.34

14安裝程式會開始下載需要的檔案安裝,需要等待一段時間,泡杯茶喝杯咖啡(安裝時間就估個一小時吧)

螢幕快照 2013-10-09 下午4.25.08

15安裝完成!

螢幕快照 2013-10-09 下午4.27.29

參考資料

DELPHI XE5 產品概觀(捷康科技)http://embarcadero.qcomgroup.com.tw/xe5/products/delphi.html

DELPHI XE5 線上手冊 http://docwiki.embarcadero.com/RADStudio/XE5/en/Main_Page

 

系列文章