17Life的首頁非常的漂亮
想說透過DELPHI來實作一個
這是17LIFE的GIF
https://photos.app.goo.gl/ZFZNwGDMydS4GELj1
這是Delphi弄出來的仿製品
https://photos.app.goo.gl/cEE1ndc5IAe2Xm7i1
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;