RibaSoft

Aba Misc — A Gaveta das Utilidades que Poupam Código

A aba Misc (Miscellaneous / Diversos) é literalmente a gaveta de "utilidades que poupam código chato". Vários componentes aqui são fusões de dois componentes da aba Standard para resolver problemas clássicos de interface — especialmente em telas de configuração e formulários de dados.

• • Os "Super Edits" (TFileNameEdit, TDateEdit, TCalcEdit, TEditButton)
  • A Mágica da Persistência (TIniPropStorage)
  • Controles Numéricos (TSpinEdit, TFloatSpinEdit)
  • Combos Avançados (TCheckComboBox, TComboBoxEx)
  • Navegação de Arquivos (TShellTreeView, TShellListView)
  • Padronização Visual (TButtonPanel, TArrow)

Os "Super Edits" — Adeus, Código Repetitivo

• Em vez de você colocar um TEdit, colocar um TSpeedButton do lado, dar um nome nos dois e escrever código no evento OnClick do botão para abrir uma janela, o Lazarus já fez isso para você:

• TFileNameEdit e TDirectoryEdit

  São campos de texto que já vêm com um botão colado. Quando o usuário clica no botão, eles abrem automaticamente o diálogo de arquivo/pasta. Você não escreve uma linha de código, ele já devolve o caminho completo dentro do Edit. Perfeito para telas de configurações!

  // Na tela de configurações do ACBr, sem escrever evento algum: FileNameEditSchemas.Filter := 'Arquivos Schemas|*.xsd|Todos|*.*'; FileNameEditSchemas.DialogTitle := 'Selecionar pasta dos Schemas'; // Propriedade FileNameEditSchemas.FileName já contém o caminho escolhido // O mesmo para pasta: DirectoryEditXML.DialogTitle := 'Pasta para salvar os XMLs das NF-e'; // Propriedade DirectoryEditXML.Directory já contém a pasta escolhida

• TDateEdit e TTimeEdit

  Campos de texto com botão de calendário/relógio acoplado. Muitos digitadores experientes preferem esses ao TDateTimePicker porque é mais fácil de limpar o campo apagando o texto com o teclado.

  DateEdit1.Date := Date; // Data de hoje como padrão TimeEdit1.Time := Time; // Hora atual como padrão // Lendo o valor: qryNota.ParamByName('DATA').AsDate := DateEdit1.Date;

• TCalcEdit

  Um Edit numérico que abre uma pequena calculadora quando o botão é clicado. O resultado da conta cai direto no Edit. Muito bacana para telas de fechamento de caixa ou contas a pagar.

  CalcEdit1.Value := 0.00; // Valor inicial zerado CalcEdit1.DecimalSeparator := ','; // O usuário pode digitar diretamente ou clicar no botão para a calculadora // Lendo o valor: ValorPago := CalcEdit1.Value;

• TEditButton — O Super Edit Genérico

  É a versão "genérica": você tem o Edit e o Botão juntos, mas você escreve o código do que o botão faz. Excelente para criar campos de "Busca Rápida de Produto" (onde o botão abre a tela de pesquisa de produtos).

  // Evento OnButtonClick do TEditButton de busca de produto: procedure TFormVenda.EditButtonProdutoButtonClick(Sender: TObject); begin // Abre a tela de pesquisa de produtos: FormPesquisaProduto.ShowModal; // Preenche o Edit com o produto selecionado: if FormPesquisaProduto.ModalResult = mrOk then begin EditButtonProduto.Text := FormPesquisaProduto.Descricao; EditPreco.Text := FormatFloat('##0.00', FormPesquisaProduto.Preco); EditCodigoProduto.Text := FormPesquisaProduto.Codigo; end; end;

A Mágica da Persistência — TIniPropStorage

• Este componente é fantástico. Sabe quando o usuário redimensiona a tela, arrasta a largura das colunas de um grid, e você tem que escrever código no OnClose para salvar no INI e no OnCreate para restaurar? Esqueça isso.

  Você joga o TIniPropStorage na tela, vai nas propriedades do Formulário em SessionProperties, marca quais propriedades de quais componentes você quer salvar (ex: Width, Height, colunas do DBGrid), e pronto! O Lazarus salva e carrega tudo sozinho, automaticamente.

  // Configurar no Object Inspector do Formulário: // Form1.StorageSession -> IniPropStorage1 (aponta para o componente) // Form1.SessionProperties -> 'Width;Height;Left;Top' // Para salvar a largura das colunas do DBGrid também: // DBGrid1.SessionProperties -> 'Columns[0].Width;Columns[1].Width;...' // No código do IniPropStorage1: IniPropStorage1.IniFileName := 'config.ini'; // Arquivo a ser usado IniPropStorage1.IniSection := 'Janela_Clientes'; // Seção no INI // Nada mais a fazer! O Lazarus chama Restore no Create e Save no Close automaticamente.

  Existe também o TXMLPropStorage (salva em XML) e o TJSONPropStorage (salva em JSON) para quando você precisa de um formato mais estruturado.

Controles Numéricos Estritos

• TSpinEdit (inteiros) e TFloatSpinEdit (decimais)

  São campos estritos para números. Eles já vêm com as setinhas para cima/baixo e não aceitam letras. Você define o valor mínimo e máximo. Evita que o usuário digite "abc" no campo "Quantidade" e estoure um erro de conversão antes de gravar no Firebird.

  // Para quantidade de itens (inteiro): SpinEditQtd.MinValue := 1; SpinEditQtd.MaxValue := 9999; SpinEditQtd.Value := 1; // Valor padrão SpinEditQtd.Increment := 1; // Para percentual de desconto (decimal): FloatSpinEditDesconto.MinValue := 0.00; FloatSpinEditDesconto.MaxValue := 100.00; FloatSpinEditDesconto.DecimalPlaces := 2; FloatSpinEditDesconto.Value := 0.00; FloatSpinEditDesconto.Increment := 0.5; // Lendo os valores: Quantidade := SpinEditQtd.Value; Desconto := FloatSpinEditDesconto.Value / 100; // Converte % para decimal

  Comparação com Firebird: O Firebird garante integridade no banco com CHECK (QUANTIDADE >= 1). O SpinEdit garante integridade antes de chegar ao banco, melhorando a experiência do usuário.

Combos Avançados

• TCheckComboBox — Múltipla seleção em um único campo

  Uma sacada genial de UI. É um combobox (dropdown), mas quando abre, cada linha tem uma caixinha de marcar. Em vez de ocupar a tela toda com vários CheckBoxes separados, você usa isso para "Selecione as Formas de Pagamento", e o usuário pode marcar Dinheiro, Pix e Cartão no mesmo campo.

  // Preencher as formas de pagamento: CheckComboBoxPagamento.Items.Add('Dinheiro'); CheckComboBoxPagamento.Items.Add('PIX'); CheckComboBoxPagamento.Items.Add('Cartão Débito'); CheckComboBoxPagamento.Items.Add('Cartão Crédito'); CheckComboBoxPagamento.Items.Add('Boleto'); // Verificar quais foram marcadas ao salvar o pedido: for i := 0 to CheckComboBoxPagamento.Items.Count - 1 do if CheckComboBoxPagamento.Checked[i] then GravarFormaPagamento(CheckComboBoxPagamento.Items[i]);

• TComboBoxEx — Combo com ícones

  Um combo onde você pode colocar uma pequena imagem ao lado de cada texto (usando um TImageList). Deixa opções muito mais visuais (ex: bandeiras de estados, ícones de status de NF-e).

  // Combo de status de NF-e com ícones: ComboBoxEx1.Images := ImageList1; // ImageList com os ícones de status with ComboBoxEx1.ItemsEx.Add do begin Caption := 'Autorizada'; ImageIndex := 0; // Ícone verde end; with ComboBoxEx1.ItemsEx.Add do begin Caption := 'Cancelada'; ImageIndex := 1; // Ícone vermelho end;

Navegação de Arquivos Nativa

• TShellTreeView e TShellListView

  Eles criam um "Windows Explorer" dentro do seu sistema. O ShellTreeView mostra a árvore de diretórios do Windows (C:\, D:\) e o ShellListView mostra os arquivos da pasta clicada. Muito bom se o seu ERP tiver um módulo de Gerenciador Eletrônico de Documentos (GED) para consultar PDFs de notas fiscais de fornecedores.

  // Ligar os dois componentes (ShellTreeView controla o ShellListView): ShellTreeView1.ShellListView := ShellListView1; // Ao clicar em uma pasta no TreeView, o ListView mostra o conteúdo automaticamente! // Apontar para uma pasta específica ao abrir: ShellTreeView1.Path := 'C:\XMLs_NF-e\2025'; // Pegar o arquivo selecionado no ListView: if ShellListView1.Selected <> nil then ArquivoSelecionado := ShellListView1.Selected.PathName;

Padronização Visual

• TButtonPanel — Botões OK/Cancelar padronizados

  Um componente para telas modais. Ele cria automaticamente os botões "OK", "Cancelar", "Aplicar" e "Ajuda", já posicionados no espaçamento exato e na ordem padrão que a Microsoft exige para o Windows. Garante que suas telas de configuração fiquem todas alinhadas de primeira.

  // No Object Inspector, configure as propriedades do TButtonPanel: // ShowButtons: [pbOK, pbCancel] — mostra apenas OK e Cancelar // OKButton.Caption := 'Salvar'; // CancelButton.Caption := 'Descartars'; // O OKButton já tem ModalResult = mrOk configurado automaticamente! // O CancelButton já tem ModalResult = mrCancel! // Não precisa de código no OnClick de nenhum deles.

• TArrow — Seta visual na tela

  Desenha setas na tela. Às vezes útil para criar fluxogramas visuais em uma tela de processo, como "Pedido → Faturamento → Expedição → Entregue", ajudando o usuário a entender em que etapa o documento está.

  // Criar um fluxo visual de status de pedido: Arrow1.ArrowType := atRight; // Seta apontando para a direita Arrow1.Width := 20; Arrow1.Height := 16;