RibaSoft

Aba LazControls — Componentes Nativos do Lazarus

A aba LazControls é muito especial. Diferente da aba Standard ou Additional (que nasceram para imitar o Delphi 7), esta aba contém componentes criados pela própria equipe do Lazarus para resolver problemas modernos de interface gráfica. Eles pegaram necessidades clássicas de quem desenvolve sistemas pesados e empacotaram em componentes prontos.

• • TLazVirtualStringTree — Grid/Tree para milhões de registros
  • Filtros Dinâmicos (TListFilterEdit, TTreeFilterEdit)
  • TExtendedNotebook — Abas com botão Fechar (estilo Chrome)
  • TSpinEditEx e TFloatSpinEditEx — Versões aprimoradas
  • TDividerBevel — Separador com texto
  • TShortPathEdit — Campo de caminho encurtado

TLazVirtualStringTree — Grid para Milhões de Registros

• Preste muita atenção neste. É uma implementação nativa do famoso paradigma Virtual TreeView. Em um TTreeView ou TListView comum, se você carregar 100 mil registros do banco (por exemplo, a tabela inteira de NCMs para o usuário consultar), o sistema consome memória gigantesca e a tela trava enquanto monta a lista.

  A Virtual Tree não armazena os dados. Ela apenas gerencia a barra de rolagem e pede os dados para você sob demanda (através de eventos como o OnGetText) apenas para os itens que estão visíveis na tela naquele milissegundo. O resultado? Você carrega milhões de linhas em uma fração de segundo.

  // Configurar o TLazVirtualStringTree: LazVirtualStringTree1.NodeDataSize := SizeOf(TItemDados); // Estrutura de dados por nó LazVirtualStringTree1.RootNodeCount := TotalRegistros; // Número total de itens // Evento OnGetText — chamado apenas para os itens VISÍVEIS na tela: procedure TFormNCM.LazVirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: String); var Dados: ^TItemDados; begin Dados := Sender.GetNodeData(Node); if Dados <> nil then case Column of 0: CellText := Dados.Codigo; // Coluna 0: Código NCM 1: CellText := Dados.Descricao; // Coluna 1: Descrição 2: CellText := Dados.Aliquota; // Coluna 2: Alíquota IPI end; end; // Comparação: TDBGrid com 100.000 registros = trava ao abrir // TLazVirtualStringTree com 100.000 registros = abre instantaneamente

  Comparação com o Firebird: É como a diferença entre um SELECT * que traz tudo de uma vez vs. um cursor no Firebird que vai buscando registro por registro conforme necessário. A VirtualTree faz o "cursor" no lado do Delphi/Lazarus.

• TLazVTHeaderPopupMenu

  Componente auxiliar que você liga na sua VirtualTree. Ele cria automaticamente aquele menu de "clicar com o botão direito no cabeçalho" para o usuário ligar e desligar as colunas do grid — igual ao Excel.

  // Ligar ao TLazVirtualStringTree no Object Inspector: LazVTHeaderPopupMenu1.VTV := LazVirtualStringTree1; // Pronto! Clicar com botão direito no cabeçalho já mostra o menu de colunas.

Filtros Dinâmicos — Busca em Tempo Real

• Se você já teve que escrever código no evento OnChange de um Edit para varrer um ListBox e esconder itens, esses componentes vão apagar esse código do seu sistema:

• TListFilterEdit — Filtrar um TListBox

  // No Object Inspector: // ListFilterEdit1.FilteredListbox := ListBox1 // Pronto. Ao digitar no ListFilterEdit1, o ListBox1 filtra automaticamente. // Preencher o ListBox normalmente: for i := 0 to qryCidades.RecordCount - 1 do begin ListBox1.Items.Add(qryCidades.FieldByName('NOME').AsString); qryCidades.Next; end; // Quando o usuário digitar "san" no ListFilterEdit1: // O ListBox1 mostrará apenas: "Santa Cruz do Rio Pardo", "Santa Maria", "Santos" // ZERO código adicional necessário!

• TTreeFilterEdit — Filtrar um TTreeView

  A mesma coisa, mas para um TTreeView. Perfeito para filtrar o menu lateral de navegação do sistema ou o Plano de Contas.

  // No Object Inspector: // TreeFilterEdit1.FilteredTreeview := TreeView1 // Ao digitar "fiscal" no campo, o TreeView exibe apenas os nós // que contêm "fiscal" no texto (como "Configurações Fiscais", "Parâmetros Fiscais")

TExtendedNotebook — Abas com Botão Fechar

• É uma evolução do TPageControl. A grande sacada: ele já vem com o botãozinho de "Fechar" (um "X") em cada aba, igual ao Google Chrome. Se você tem um PDV onde o usuário pode abrir a tela de Venda, o Cadastro de Cliente e o Contas a Pagar ao mesmo tempo, use esse componente para ele navegar entre as telas e fechar as que não está usando — tudo em uma única janela do Windows.

  // Abrir um novo módulo do sistema como uma nova aba: procedure TFormPrincipal.AbrirModulo(NomeModulo: String); var NovaAba: TTabSheet; FormModulo: TForm; begin // Cria a aba NovaAba := TTabSheet.Create(ExtendedNotebook1); NovaAba.PageControl := ExtendedNotebook1; NovaAba.Caption := NomeModulo; // Cria o formulário e o encaixa na aba FormModulo := CriarFormulario(NomeModulo); // Factory method FormModulo.Parent := NovaAba; FormModulo.BorderStyle := bsNone; FormModulo.Align := alClient; FormModulo.Show; ExtendedNotebook1.ActivePage := NovaAba; end; // Evento ao fechar uma aba (X do usuário): procedure TFormPrincipal.ExtendedNotebook1CloseTabClicked(Sender: TObject); begin // Libera o formulário filho antes de fechar a aba: if Sender is TTabSheet then TTabSheet(Sender).Controls[0].Free; TTabSheet(Sender).Free; end;

TSpinEditEx e TFloatSpinEditEx — Versões Aprimoradas

• São versões melhoradas dos SpinEdit da aba Misc. A maior diferença prática: lidam muito melhor com valores nulos (Null) e se adaptam melhor aos temas visuais do Windows 10/11. Preferira essas versões em projetos novos.

  // TSpinEditEx aceita valore nulo (campo pode ficar vazio): SpinEditEx1.MinValue := 0; SpinEditEx1.MaxValue := 9999; SpinEditEx1.EmptyValue := -1; // Valor retornado quando o campo está vazio // TLazIntegerEdit — campo numérico sem botões, extremamente leve: // Para quando você só precisa que o usuário digit um inteiro, // sem precisar das setas para incremento.

TDividerBevel — Separador com Texto

• Excelente para organizar o layout de formulários longos. Ele desenha uma linha horizontal na tela e permite colocar um texto no meio (ex: --- Endereço de Faturamento ---). Ajuda a separar grupos de dados sem o peso visual (e de processamento) de encher a tela de TGroupBox.

  // Criar um separador visual com texto no formulário de cadastro: DividerBevel1.Caption := 'Endereço de Faturamento'; DividerBevel1.Style := bsLowered; // ou bsRaised DividerBevel1.Align := alTop; DividerBevel1.Height := 22; // Resultado visual: ────── Endereço de Faturamento ──────

  Diferença do TGroupBox: O TGroupBox cria uma caixa ao redor dos componentes (borda completa) e tem peso visual maior. O TDividerBevel é apenas uma linha separadora horizontal, mais limpo e moderno para formulários extensos.

TShortPathEdit — Caminho Encurtado

• Excelente para telas de configuração. Se o usuário escolher um caminho de rede gigantesco para salvar o XML do ACBr (ex: C:\Users\Administrador\Documents\Sistema\Arquivos\NFe\2025), esse edit encurta a visualização automaticamente no meio (ex: C:\Users\...\NFe\2025) para não quebrar o layout, mas mantém o caminho real intacto para o sistema usar.

  // O componente encurta automaticamente — sem código adicional: ShortPathEdit1.Text := 'C:\Users\Administrador\Documents\Sistema\Arquivos\NFe\2025\Janeiro'; // Exibe: 'C:\Users\...\NFe\2025\Janeiro' // Mas ShortPathEdit1.Text retorna o caminho completo original