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;

开始执行动画。