學習紀錄

前面有介紹透過Google雲端來更新程式。

首先取得自己的程式版號

//取版號

function GetFileVersion: String;
var
  mStr:String;
  i:integer;
begin

  mStr := GetVersionInfo('FileVersion') ;
  While Pos('.', mStr)>0 do

在以前得版本我們必須使用WindowsAPI來達到視窗圓弧。

在XE10之後的版本製作透明半橢圓就很簡易了

首先兩個Rectangle TOP & Client 

#1 Rect1angle Align 設定TOP

#2 修改XRadius, YRadius 為 20 

#3 Rect2angle Align 設定Client

#4 From1 Transparency = True 

其實以前就有這個屬性了，貌似較Transparent ...但以前沒有Rectangle可以用。

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  src: string;
  ms: TMemoryStream;
  si :TCustomsourceItem;
  img  : Timage;
  xList: TList<string>;
  scale:integer;
  d : TCustomDestinationItem;

OK 我們用兩個物件來看。THorzScrollBox [這個我不知道為什麼都做不出拉動的效果]等待大師們指教] , TPresentedScrollBox

新的版本 的移動方式有改過。

HorzScrollBox1.ViewportPosition := PointF( HorzScrollBox1.ViewportPosition.X+ HorzScrollBox1.Width, 0);

要利用這個屬性來做移動 ViewportPosition 以前的Position 現在是物件的水平位置了。

當然這樣的移動在新板的設計是不太符合需求的因此我們透過動畫來呈現

TFloatAnimation 來讓他看起來舒服一點

預計的做法是這樣的

1. 要先想辦法可以直接在程式中雲端上抓到版號

 取得Google雲端的共用Url  https://drive.google.com/file/d/1jJfpbUaS5QXYlkM7GvDKnqYw4Lsn4RRB/view?usp=sharing

紅字部分就是我們要擷取的ID..

再來透過下方的url 將紅字部分覆蓋

測試了一下，這個BCD的顯示有點麻煩，主要在DB.gird的文件內有點問題。

所以在SQL語法上，我們直接將期轉型即可解決此問題。在靜態欄位的宣告 直接使用 TFloatField就好

SQL語法 

CAST(欄位名 As 型態)

CAST (欄位名稱 AS 型態) 欄位名稱 

在Linpay整合的時候有遇到中文亂碼的問題

以下參考

HTTP := TIdHTTP.Create(nil);
        HTTP.HandleRedirects := True;
        LoadOpenSSLLibrary;
        HTTP.Request.CustomHeaders.AddValue('X-LINE-ChannelId', PlatformID);
        HTTP.Request.CustomHeaders.AddValue('X-LINE-ChannelSecret', MerchantID);
        HTTP.Request.ContentType := 'application/json';

其實較常用的應該也只有一兩種而已。其他的特效可以在這篇上面預覽

http://docwiki.embarcadero.com/RADStudio/Berlin/ja/FireMonkey_%E3%81%AE%E7%94%BB%E5%83%8F%E5%8A%B9%E6%9E%9C

簡易 說明一下

Trigger 這個屬性呢 是可以直接控制Control的動作的

以上圖為例，當我EDIT被滑鼠移過去的時候就會產生特效

如果Trigger 是空白的話，則必須程式控制。

最常用的就是加陰影或是加擴散性包圍顏色。

這個動畫元件已經存在很久了，網路文章也很多

TAnimation

TFloatAnimation ..

直接說明屬性

1. PropertyName 對應的名稱都是編輯器上的名字，例如透明位移等等的。

2. StareValue  動畫的起始點 如果選用透明 起始位置就是1

3. StopValue 動畫的截止點  如果選用透明 截止位置就是0

4. Trigger  這個在TEffect的單元在介紹  想了解的直接看這個

http://docwiki.embarcadero.com/RADStudio/Seattle/en/FireMonkey_Animation_Effects

前面Style -1 設計是針對物件有需要改變的在一個一個去設計

也有方式是直接整個帶入套用。帶這需搭配[媒體設計師] 協助設計會較為恰當

首先在設計器上我們先選擇 Bitmap Style Designer ..

開啟一份新專案。

這時候我們會看到一張透明上面有許多底圖的照片。