nc paslib

NC-Paslib

Uma biblioteca de utilitários de base (não-gui) para Pascal (Delphi/Pascal/Lazarus livre).

Tncthread - uma classe de utilitário para encadeamento

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

Despacha a execução de um método ou uma chamada de procedimento para a fila de encadeamento principal.

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

Garante a execução de um método ou uma chamada de procedimento dentro do encadeamento principal. Se o encadeamento atual for o encadeamento principal, o método ou o procedimento serão executados diretamente sem fila.

TNCDELAY - Uma classe de utilidade para atraso em execução

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

Executa um método ou um procedimento no encadeamento principal após um atraso (milissegundos).

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

Cancela a execução de um método/procedimento especificado ou todos os métodos/procedimentos na fila de atraso.

 procedure begin_disable();
procedure end_disable();

Não aceita temporariamente nenhuma solicitação de execução de atraso entre begin_disable() e end_disable() .

TNCanimateGroup - Execute animações em sequência para um único controle

 constructor Create(const control : TControl); reintroduce;

O parâmetro do construtor especifica o controle para executar a animação.

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

Adicione os efeitos da animação para cada etapa, apoiando alterações de tamanho, expansão à esquerda, movimento e alterações (em tamanho e posição).

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

Comece a executar as animações.

TNCANIMATEASYNCGROUP - Execute animações de maneira assíncrona (simultaneamente) para vários controles

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

Adicione efeitos de animação, apoiando mudanças de tamanho, expansão à esquerda, movimento e alterações (em tamanho e posição).

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

Adicione o efeito de animação para alterar o valor alfa do formulário.

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

Comece a executar as animações.