nc paslib

NC-Paslib

A (non GUI) Bibliothèque d'utilitaires de base pour Pascal (Delphi / Free Pascal / Lazarus).

TnThread - une classe de services publics pour le filetage

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

Envoie l'exécution d'une méthode ou d'un appel de procédure à la file d'attente du thread principal.

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

Assure l'exécution d'une méthode ou d'un appel de procédure dans le thread principal. Si le thread actuel est le thread principal, la méthode ou la procédure sera exécutée directement sans file d'attente.

Tncdelay - une classe de services publics pour le retard en cours d'exécution

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

Exécute une méthode ou une procédure dans le thread principal après un retard (millisecondes).

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

Annule l'exécution d'une méthode / procédure spécifiée ou de toutes les méthodes / procédures dans la file d'attente de retard.

 procedure begin_disable();
procedure end_disable();

Temporairement n'accepte aucune demande de run de délai entre begin_disable() et end_disable() .

TncanimateGroup - Exécutez des animations en séquence pour un seul contrôle

 constructor Create(const control : TControl); reintroduce;

Le paramètre du constructeur spécifie le contrôle pour effectuer l'animation.

 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);

Ajoutez des effets d'animation pour chaque étape, en soutenant les changements de taille, l'expansion vers la gauche, le mouvement et les changements (en taille et en position).

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

Commencez à exécuter les animations.

Tncanimateasyncgroup - exécutez des animations de manière asynchrone (simultanément) pour plusieurs commandes

 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);

Ajoutez des effets d'animation, des changements de taille, de l'expansion à gauche, du mouvement et des changements (en taille et en position).

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

Ajoutez un effet d'animation pour modifier la valeur alpha de Form.

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

Commencez à exécuter les animations.