nc paslib

NC-Paslib

Pascal的（非GUI）基礎公用事業庫（Delphi/Free Pascal/Lazarus）。

tncthread-用於線程的實用程序類

 class procedure dispatch_to_main_thread(const proc : TProcedure); overload;
class procedure dispatch_to_main_thread(const proc_method : TThreadMethod); overload;

調度方法或過程呼叫主線隊列的執行。

 class procedure ensure_in_main_thread(const proc : TProcedure); overload;
class procedure ensure_in_main_thread(const proc_method : TThreadMethod); overload;

確保在主線程中執行方法或過程調用。如果當前線程是主線程，則方法或過程將直接執行而無需排隊。

tncdelay-用於延遲運行的公用事業類

 procedure run(const proc : TProcedure; const after_ms : UInt64); overload;
procedure run(const proc_method : TThreadMethod; const after_ms : UInt64); overload;

延遲後（毫秒）在主線程中執行方法或過程。

 procedure cancel(); overload;
procedure cancel(const proc : TProcedure); overload;
procedure cancel(const proc_method : TThreadMethod); overload;

取消執行指定的方法/過程或延遲隊列中的所有方法/過程。

 procedure begin_disable();
procedure end_disable();

暫時不接受begin_disable()和end_disable()之間的任何延遲運行請求。

tncanimateGroup-單個控件的順序運行動畫

 constructor Create(const control : TControl); reintroduce;

構造函數的參數指定執行動畫的控件。

 procedure add_size_animate(const w, h : Integer; const keep_center : Boolean; const duration : Cardinal);
procedure add_expand_to_left_animate(const w : Integer; const duration : Cardinal);
procedure add_move_animate(const x, y : Integer; const duration : Cardinal);
procedure add_change_animate(const x, y, w, h : Integer; const duration : Cardinal);

為每個步驟添加動畫效果，支持大小的變化，向左擴展，運動和更改（大小和位置）。

 procedure run(); overload;
procedure run(const progress_callback : TncAnimateProgressEvent); overload;

開始執行動畫。

tncanimateasyncgroup-多個控件的（同時）運行動畫（同時）

 procedure add_size_animate(const control : TControl; const w, h : Integer; const keep_center : Boolean; const duration : Cardinal);
procedure add_expand_to_left_animate(const control : TControl; const w : Integer; const duration : Cardinal);
procedure add_move_animate(const control : TControl; const x, y : Integer; const duration : Cardinal);
procedure add_change_animate(const control : TControl; const x, y, w, h : Integer; const duration : Cardinal);

添加動畫效果，支持大小的變化，向左擴展，運動和更改（大小和位置）。

 procedure add_alpha_animate(const form : TForm; const a : Integer; const duration : Cardinal);

為更改表單的alpha值添加動畫效果。

 procedure run(); overload;
procedure run(const progress_callback : TncAnimateProgressEvent); overload;

開始執行動畫。