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轉入 

kuraki5336 發表在 痞客邦 留言(0) 人氣()

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

現在在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;


文章標籤

kuraki5336 發表在 痞客邦 留言(0) 人氣()

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

首先取得自己的程式版號

//取版號

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

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

文章標籤

kuraki5336 發表在 痞客邦 留言(0) 人氣()

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

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

首先兩個Rectangle TOP & Client 

#1 Rect1angle Align 設定TOP

#2 修改XRadius, YRadius 為 20 

#3 Rect2angle Align 設定Client

#4 From1 Transparency = True 

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

 

kuraki5336 發表在 痞客邦 留言(0) 人氣()

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

文章標籤

kuraki5336 發表在 痞客邦 留言(0) 人氣()

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

 

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

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

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

 

 

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

TFloatAnimation 來讓他看起來舒服一點

kuraki5336 發表在 痞客邦 留言(0) 人氣()

預計的做法是這樣的

 

Untitled Diagram.png

 

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

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

 

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

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

kuraki5336 發表在 痞客邦 留言(0) 人氣()

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

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

 

 

SQL語法 

CAST(欄位名 As 型態)

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

 

文章標籤

kuraki5336 發表在 痞客邦 留言(0) 人氣()

在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';

文章標籤

kuraki5336 發表在 痞客邦 留言(0) 人氣()

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

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 是空白的話,則必須程式控制。

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

kuraki5336 發表在 痞客邦 留言(0) 人氣()

1 2345