學習紀錄

17Life的首頁非常的漂亮

想說透過DELPHI來實作一個

這是17LIFE的GIF

https://photos.app.goo.gl/ZFZNwGDMydS4GELj1

這是Delphi弄出來的仿製品

https://photos.app.goo.gl/cEE1ndc5IAe2Xm7i1

10.2.3的版本 有幾個範例，編譯後即可呈現套用後的Style

但原廠的Style太肥導致系統很慢，因此不太適用，是用來參考還ok

但幾天前做好app之後發到實機觀看則發現style並無套用

原因其實很簡單

預設的style 只有使用windows的 如下圖

先把安卓的style弄出來

專案需求因此測試了動態載入.so  靜態載入.a 

動態載入

在Delphi 專案裡 .so 專案檔 Multi-Device Application 的專案，輸出 Android 

在Build的時候則會產生.so檔

再到 IDE ToolBar > Projcet > Deployment 將.so 加入即可

加入後必須調整兩個選項，方可讓下段程式碼 輕易讀取到 .so 的檔案

EnlessHeight-無盡的頁面模式，如果為true，頁面將根據其上的數據記錄數量增長

Stretched-是否要拉伸

StretchMode-延伸模式-smActualHeight選擇這個

smDontStretch - 不拉伸對象（默認）

smActualHeight - 伸展對象，以便為整個文本騰出空間

smMaxHeight - 伸展物體，使其底部到達放置它的樂隊的底部 - 稍後我們將看這種模式

報表就會高度就會自己長大了

每次看到別人的TChart圖表 就覺得delphi預設的真的很詭異阿 醜到一個不行的，

但應該是我不太會用因此這兩天認真的決定拿一個範本 希望能做的跟他差不多吧 

就拿匹克幫首頁的這個吧

施工完畢後

  public
    FInput:String;
    { Public declarations }

var
  mInput:WideChar;
begin
  mInput := TSpeedButton(Sender).Text[1];

var
  mInput:WideChar;
  KeyInputs: array of TInput;
  //--------------------------------------------
  procedure KeybdInput(VKey: Byte; Flags: DWORD);
  begin
    SetLength(KeyInputs, Length(KeyInputs)+1);
    KeyInputs[high(KeyInputs)].Itype := INPUT_KEYBOARD;
    with  KeyInputs[high(KeyInputs)].ki do
    begin

Arc1: TArc;

 Circle2: TCircle;

  Arc1.EndAngle := 360 / (100 / StrtoInt(edit1.Text)) ;
  Arc2.RotationAngle := Arc1.EndAngle;
  Arc2.EndAngle := 360 / (100 / StrtoInt(edit2.Text)) ;
  Arc3.RotationAngle := Arc1.EndAngle+Arc2.EndAngle;
  Arc3.EndAngle := 360 -Arc3.RotationAngle ;

var
  sSql:String;
  i:integer;
  AdoCmd :TAdoCommand  ;
  p_Start, p_Cost : DWORD;
begin

  //連線字串自己決定，1是開EXCEL的 2是DB的
  ADOConnection1.ConnectionString:='Provider = Microsoft.Jet.OLEDB.4.0; Data Source =12.xls; Extended Properties="Excel 8.0;Persist Security Info=False;IMEX=1;"';
  ADOConnection2.ConnectionString:='Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog=bcppp;Data Source=.;Initial File Name="";Server SPN="";Password="123"';

//先將EXCEL轉入 

這個問題其實我覺得應該要原廠直接改的

現在在W10 或是筆電其實都開始有做觸碰

可能沒有重觸這類的動作(Delphi也沒這樣的事件哈哈) 

但是很基本的長壓滑動這應該是很基本的。

感謝阿卍的教學

可以將 FMX.Platform.Win.pas 複製到你的專案工程目錄內, 再修改 TPlatformWin.GetScrollingBehaviour 函數, 修改如下:

function TPlatformWin.GetScrollingBehaviour: TScrollingBehaviours;
var
Value: Integer;
begin
Value := GetSystemMetrics(SM_DIGITIZER);
if ((Value and NID_READY) = NID_READY) and (((Value and NID_MULTI_INPUT) = NID_MULTI_INPUT)) then
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]
else
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]; // 手勢滑動
end;