RibaSoft

Aba Dialogs — A Ponte com o Sistema Operacional

A aba Dialogs é onde o Lazarus faz a ponte com o sistema operacional. A grande vantagem de usar esses componentes no Windows é que eles chamam as janelas nativas do próprio Windows, garantindo que o seu sistema tenha uma aparência profissional e familiar para o usuário final — sem precisar reinventar a roda.

• • TTaskDialog — O padrão ouro das mensagens modernas
  • Manipulação de Arquivos (TOpenDialog, TSaveDialog, TSelectDirectoryDialog)
  • Imagens (TOpenPictureDialog, TSavePictureDialog)
  • Impressão (TPrintDialog, TPrinterSetupDialog)
  • Busca de Texto (TFindDialog, TReplaceDialog)
  • Utilitários (TCalculatorDialog, TColorDialog, TFontDialog)

TTaskDialog — O Padrão Ouro das Mensagens

• Este é, sem dúvida, o componente mais subestimado dessa aba. Ele substitui os velhos ShowMessage e MessageDlg. Sabe aquelas caixas de mensagem modernas do Windows que têm um ícone grande, um título principal em azul, um texto explicativo menor, botões customizados e até uma opção "Mostrar Detalhes"? É o TTaskDialog que faz isso.

  // Exemplo de diálogo moderno para confirmar cancelamento de NF-e: var TD: TTaskDialog; TD := TTaskDialog.Create(Self); try TD.Caption := 'RibaSoft Varejo'; TD.Title := 'Cancelar Nota Fiscal?'; TD.Description := 'A NF-e 000.001 será enviada para cancelamento na Sefaz.' + #13#10 + 'Esta ação não pode ser desfeita.'; TD.MainIcon := tdiWarning; // Botões customizados (em vez dos padrões Sim/Não): with TD.Buttons.Add do begin Caption := 'Sim, cancelar nota'; ModalResult := mrYes; end; with TD.Buttons.Add do begin Caption := 'Não, manter nota ativa'; ModalResult := mrNo; Default := True; // Botão padrão (Enter) end; if TD.Execute then begin if TD.ModalResult = mrYes then ExecutarCancelamentoNFe; end; finally TD.Free; end;

  Por que substituir o ShowMessage: O ShowMessage e MessageDlg têm visual datado do Windows XP. O TTaskDialog usa a API de diálogos modernos do Windows Vista em diante, com visual aero/fluent idêntico ao do sistema operacional.

Manipulação de Arquivos e Diretórios

• TOpenDialog e TSaveDialog

  Os clássicos absolutos. Abrem as janelas nativas do Windows para localizar ou salvar arquivos. Essenciais para importar o retorno bancário (CNAB) ou exportar um grid para Excel/CSV.

  // TOpenDialog — Abrir retorno bancário CNAB240: OpenDialog1.Title := 'Selecionar arquivo de retorno bancário'; OpenDialog1.Filter := 'Arquivos CNAB|*.ret;*.RET;*.txt|Todos|*.*'; OpenDialog1.InitialDir := 'C:\RetornoBancario'; if OpenDialog1.Execute then ProcessarRetornoCNAB(OpenDialog1.FileName); // TSaveDialog — Exportar grid para CSV: SaveDialog1.Title := 'Exportar relatório'; SaveDialog1.Filter := 'CSV (Excel)|*.csv|PDF|*.pdf|Todos|*.*'; SaveDialog1.DefaultExt := 'csv'; SaveDialog1.FileName := 'relatorio_' + FormatDateTime('yyyymmdd', Now); if SaveDialog1.Execute then ExportarParaCSV(SaveDialog1.FileName);

• TSelectDirectoryDialog

  Muito usado em telas de configurações. Em vez de selecionar um arquivo, o usuário seleciona apenas a pasta. Perfeito para configurar: "Pasta onde os PDFs serão salvos" ou "Caminho dos schemas do ACBr".

  SelectDirectoryDialog1.Title := 'Selecionar pasta para salvar os XMLs das NF-e'; SelectDirectoryDialog1.InitialDir := qryConfig.FieldByName('PASTA_XML').AsString; if SelectDirectoryDialog1.Execute then begin EditPastaXML.Text := SelectDirectoryDialog1.FileName; // Salvar no banco: GravarConfiguracao('PASTA_XML', SelectDirectoryDialog1.FileName); end;

Diálogos de Imagem (com Preview)

• TOpenPictureDialog e TSavePictureDialog

  São idênticos ao Open e Save comuns, mas possuem um painel de visualização (preview) embutido na janela. Essenciais para o cadastro de produtos (selecionar a foto) ou cadastro de empresa (selecionar a logomarca para o DANFE). O usuário vê a imagem antes de dar "Ok".

  // Cadastro de produto — carregar foto do produto: OpenPictureDialog1.Title := 'Selecionar foto do produto'; OpenPictureDialog1.Filter := 'Imagens|*.jpg;*.jpeg;*.png;*.bmp|Todos|*.*'; if OpenPictureDialog1.Execute then begin ImageProduto.Picture.LoadFromFile(OpenPictureDialog1.FileName); // Salvar no banco como BLOB: qryProduto.FieldByName('FOTO').Assign(ImageProduto.Picture); end;

Impressão

• TPrintDialog

  Chama a tela padrão de "Selecionar Impressora e Número de Cópias". Como você usa o Fortes Report, ele já tem isso embutido no botão de imprimir do preview. Mas se você estiver gerando impressões em texto puro (bobina térmica), você precisa chamar esse componente antes.

  // Imprimir cupom não fiscal em impressora matricial/térmica: PrintDialog1.MinPage := 1; PrintDialog1.MaxPage := 1; PrintDialog1.Options := [poPageNums]; if PrintDialog1.Execute then ImprimirCupomNaoFiscal; // Usa a impressora selecionada pelo usuário

• TPrinterSetupDialog

  Abre a janela de preferências da impressora nativa do Windows. Útil se você quiser colocar um botão "Configurar Impressora" no menu principal do seu PDV, para o usuário ajustar o tamanho da bobina térmica sem precisar fechar o sistema.

Busca e Substituição de Texto

• Os TFindDialog e TReplaceDialog abrem uma janelinha flutuante não-modal (igual ao Ctrl+F do Bloco de Notas) para buscar ou substituir texto, sem bloquear o resto da tela. São muito úteis se o seu sistema tiver um editor de texto embutido (por exemplo, um leitor de logs ou uma aba para digitar instruções).

  // Ctrl+F para buscar no TMemo de log do sistema: FindDialog1.Options := [frDown, frHideWholeWord]; FindDialog1.OnFind := @EncontrarTextoNoLog; // Acionar com Ctrl+F: FindDialog1.Execute; // Evento OnFind: procedure TFormLog.EncontrarTextoNoLog(Sender: TObject); begin with FindDialog1 do if not MemoLog.FindText(FindText, MemoLog.SelStart + MemoLog.SelLength, Length(MemoLog.Text), Options) then ShowMessage('Texto "' + FindText + '" não encontrado.'); end;

Utilitários Práticos

• TCalculatorDialog — Calculadora rápida via tecla de atalho

  Abre uma calculadora nativa na tela. Em um PDV, você pode atrelar isso a uma tecla de atalho (ex: F12) para o caixa fazer uma conta rápida de troco sem precisar caçar a calculadora do Windows.

  // Abrir calculadora com F12 (no KeyDown do formulário): if Key = VK_F12 then begin CalculatorDialog1.Value := 0; // Começa zerada if CalculatorDialog1.Execute then EditTroco.Text := FormatFloat('##0.00', CalculatorDialog1.Value); end;

• TColorDialog — Paleta de cores para personalização

  Abre a paleta de cores do Windows. Se você quiser deixar o usuário do PDV mudar a cor de fundo da tela de vendas ou a cor da fonte do letreiro digital, basta chamar esse dialog e salvar o resultado no banco do Firebird.

  // Configuração visual da tela do PDV pelo próprio usuário: ColorDialog1.Color := Panel1.Color; // Inicia com a cor atual if ColorDialog1.Execute then begin Panel1.Color := ColorDialog1.Color; // Salvar no banco: qryConfig.Edit; qryConfig.FieldByName('COR_FUNDO_PDV').AsInteger := ColorToRGB(ColorDialog1.Color); qryConfig.Post; end;

• TFontDialog — Personalização de fontes

  Abre a janela de seleção de Fontes do Windows. Permite ao usuário escolher a fonte, tamanho e estilo para exibição de dados no sistema (útil em sistemas para idosos ou pessoas com dificuldade visual).

  FontDialog1.Font.Assign(DBGrid1.Font); // Inicia com a fonte atual do grid if FontDialog1.Execute then DBGrid1.Font.Assign(FontDialog1.Font);